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

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

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

 

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

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()

© Компания DIRECTUM, 2018

Сообщество пользователей DIRECTUM