VPF::Отправить письмо, используя VBA

CrazyTactic

Дата 18.11.2010, 18:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 21.10.2010

Репутация: нет
Всего: нет

Доброе время суток! Собственно, задача такая: необходимо программно отправить письмо, используя 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'а?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »