Отправка письма по протоколу SimpleMAPI

Contents

Постановка задачи

Необходимо отправить письмо с вложением.

Программный код

// Определить константы.

adTypeBinary = 1

adReadToEnd = -1

// Создать почтовую фабрику.

MailFactory = CreateObject("SBUM.MailFactory")

// Запросить у фабрики сервер типа "SimpleMAPI".

Server = MailFactory.GetServer("SimpleMAPI")

// Создать параметры входа.

Credentials = MailFactory.CreateParamList()

Server.Logon(Credentials)

// Создать новое сообщение.

NewMessage = MailFactory.CreateMessage()

// Указать отправителя сообщения.

NewMessage.FromName = "Пользователь 1"

NewMessage.FromAddress = "user1@mymailserver.ru"

// Указать получателей сообщения.

NewMessage.To.Items("Пользователь2") = "user2@mymailserver.ru"

// Загрузить вложение при помощи потока.

AttachStream = CreateObject("ADODB.Stream")

AttachStream.Type = adTypeBinary

AttachStream.Open

AttachStream.LoadFromFile("D:\attachment.xml")

AttachBinary = AttachStream.Read(adReadToEnd)

NewMessage.Attachments.Items("attach.xml") = AttachBinary

// Указать тело сообщения.

NewMessage.Body = "Посмотрите вложенный XML-файл"

// Указать тему сообщения.

NewMessage.Subject = "Проверка схемы"

// Указать параметр "применять пользовательский интерфейс при отправке".

NewMessage.Properties.Items("UI") = True

// Отправить сообщение.

Server.SendMessage(NewMessage)

// Выполнить выход с сервера.

Server.Logoff()