Используйте VB6 для написания программ для отправки электронных писем. На выбор предлагается множество компонентов электронной почты, таких как MAPIMessages, CDONTS (NTSCollaborationDataObjects), входящие в состав IIS4.0, и программное обеспечение электронной почты, разработанное многими сторонними производителями. В этой статье рассказывается, как использовать CDONTS для разработки почтовой программы под VB.
1. Убедитесь, что SMTP-сервер установлен.
Сначала необходимо подтвердить, что SMTP-сервер установлен на сервере IIS. Это опция, которая устанавливается по умолчанию при установке OptionPack. Если SMTP-сервер установлен, в каталоге System32 будет файл cdonts.dll.
2. Самая простая программа для отправки электронной почты
Ниже приведена простейшая программа отправки электронной почты, которая отправляет электронное письмо с заголовком «Заголовок» и содержимым «Привет» с адреса [email protected] на адрес [email protected]:
PRivateSubcmdSendMail_Click()
DimobjmailasОбъект
SetobjMail=CreateObject("CDFONTS.DLL")
ObjMail.Send"[email protected]","[email protected]","Заголовок","Привет"
SetobjMail=ничего
EndSub
3. Отправьте вложения к электронной почте
Если есть прикрепленный файл, который необходимо отправить вместе с электронным письмом, вы можете использовать метод AttachFile CDONTS:
PrivateSubcmdSendMail_Click()
DimobjMailasОбъект
SetobjMail=CreateObject("CDFONTS.DLL")
WithObjMail
.From="[email protected]"
.To="[email protected]"
.Subject="Заголовок"
.Body="Привет"
.AttachFile"c:/document/sample.doc","sample.doc"
.Отправлять
КонецС
SetobjMail=ничего
EndSub
4. Часто используемые свойства и методы компонентов CDONTS.
Ниже перечислены часто используемые свойства и методы компонентов CDONTS:
свойство:
Версия: возвращает номер версии компонента CDONTS.
MailFormat: формат электронной почты, 1-обычный текстовый тип, 0-тип MIME;
Копия: установите один или несколько адресов электронной почты для справки.
От: адрес отправителя электронной почты
Кому: адрес получателя электронного письма.
Тема: заголовок
Тело: содержание
BodyFormat: формат контента, 1-обычный текст, 0-гипертекст;
метод:
AttachFile: прикрепить файл.
AttachURL: прикрепить адрес
Отправить: отправить электронное письмо
5.Отправьте электронное письмо в гипертекстовом формате.
Вы наверняка видели множество электронных писем в формате гипертекста, который может не только содержать изображения, звуки, но и встраивать анимацию. Если вы отправите такое письмо своему другу, оно обязательно преподнесет ему или ей неожиданный сюрприз, потому что это то, чего не могут сделать обычные программы отправки электронной почты. Следующий пример использует компонент CDONTS для отправки электронного письма в формате HTML, содержащего изображение с именем sample.gif. Программа выглядит следующим образом:
PrivateSubcmdSendMail_Click()
DimobjMailasОбъект
SetobjMail=CreateObject("CDFONTS.DLL")
ДимстрHTMLasString
StrHTML="〈html〉〈head〉"
StrHTML=StrHTML "〈title〉Email〈/title〉〈/head〉 с использованием гипертекстового формата
StrHTML=StrHTML "〈body〉〈p〉〈strong〉Пример отправки электронной почты с использованием CDONTS"
StrHTML=StrHTML "〈imgsrc=sample.gif〉〈/strong〉〈/p〉"
StrHTML=StrHTML "〈p〉Приведенный выше пример содержит встроенное изображение sample.gif〈/p〉"
StrHTML=StrHTML "〈/body〉〈/html〉"
WithObjMail
.From="[email protected]"
.To="[email protected]"
.Subject="Заголовок"
.Body=strHTML
.AttachURL"c:/mydata/sample.gif","sample.gif"
.BodyFormat=0
.EmailFormat=0
.Отправлять
КонецС
SetobjMail=ничего
EndSub
Я полагаю, что на данный момент вы обнаружили ошибку в обработке электронной почты SMTP. SMTP-сервер получает ваше выходное сообщение, но не проверяет имя и адрес отправителя. Это определяется механизмом асинхронной отправки SMTP, но кто-то может использовать его со скрытыми мотивами, чтобы выдать себя за кого-то другого и отправить электронные письма! В этой статье настоятельно рекомендуется не пытаться сделать это легко. Как только ваш интернет-провайдер узнает о вашем поведении, ваша учетная запись, скорее всего, будет немедленно удалена. ->