Добрый день, прошу помощи в следующем вопросе....

Нашел макрос отправки сообщений через Gmail, прекрасно работает... но не удается методом тыка вставить в него часть кода, которая бы прикрепляла активную рабочую книгу/лист.

PS в качестве опционала, если не сложно, подскажите как прикрутить строчку кода, которая название письма брала бы из ячейки на активном листе, а тело письма из 2 не смежных других ячеек. Буду признателен, спасибо.

Макрос

Скрытый текст

Private Sub CommandButton1_Click() Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Update End With strbody = "Поздравляем!!!! Ваше письмо успешно отправлено !!!!" With iMsg Set .Configuration = iConf .To = "" .CC = "" .BCC = "" .From = """ВашеИмя"" <Reply@something.nl>" .Subject = "Попытка отправить письмо с помощью CDO" .TextBody = strbody .Send MsgBox "Отправлено!" End With End Sub

Часть кода которую хотелось бы прикрутить:

Скрытый текст
ThisWorkbook.Sheets("test").Copy ActiveWorkbook.SaveAs "c:\test.xls" ' Сохраняем активный лист ActiveWorkbook.Close False attach$ = "c:\test.xls"

Прошу прощения, на этом сайте достаточно информации по этой теме, вот одно из ни...
http://planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=57975&TITLE_SEO=57975-makros-rass...
http://excelvba.ru/code/cdo