Доброе время суток! Собственно, задача такая: необходимо программно отправить письмо, используя VBA, при этом чтоб отправлялось без всяких подтверждений. Нашел вот такой код:
| Код |
Sub send_mail_CDO()
Dim MSG As New CDO.Message
MSG.to = “[email protected]” ‘-> адрес получателя
MSG.From = “[email protected]” ‘-> от кого
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
|
Здесь идет отправка через SMTP сервер. Можно ли как-то отправить письмо, зная адрес Exchange Server'а? |