Добрый день. Ситуация следующая: нужен макрос VBA, который бы создавал письмо, в тело которого бы попадала информация из заданного файла Word. Макрос может быть в самом word-e, это значение не имеет.
Винда windows 7, office 2010
Забыл написать самое важное - надо чтоб форматирование текста в word сохранялось (картинки, гиперссылки и .тр.)
Sub send_mail_CDO()
Dim MSG As New CDO.Message
MSG.to = “user@corp.net” ‘-> адрес получателя
MSG.From = “boss@corp.net” ‘-> от кого
MSG.Subject = “С днём рождения” ‘-> Тема
MSG.textbody = “С днём рождения, желаю счастья и здоровья”‘->тело письма
MSG.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2‘->тип отправки, в данном случае SMTP
MSG.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtp.corp.net”‘->Адрес SMTP Сервера
MSG.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = “1″ ‘->Способ аунтификации (0 – нет, 1 – простой, 2 – NTLM аунтификация)
MSG.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/sendusername”) = “boss”‘->имя пользователя
MSG.Configuration.Fields.Item(“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = “123qwe”‘->пароль пользователя
MSG.Configuration.Fields.Item(“urn:schemas:mailheader:content-language”) = “windows-1251″‘->кодировка
MSG.Send‘-> команда отправить
End Sub
⇢