Объекты DIRECTUM

 

Объект IMailServer

 

Метод SendMessage – отправить сообщение

Синтаксис:

procedure SendMessage(

  Message: IMessage);

Параметры:

Message – отправляемое сообщение.

Описание:

Метод имеет смысл только для серверов, поддерживающих работу с исходящими сообщениями (MAPI, SMTP, SimpleMAPI).

Метод отправляет указанное сообщение.

Пример использования:

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

MailFactory = CreateObject("SBUM.MailFactory")

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

Server = MailFactory.GetServer("MAPI")

//Создать и означить параметры входа

Credentials = MailFactory.CreateParamList()

Credentials.Items("ProfileName") = "Outlook"

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

Server.Logon(Credentials)

//Создать новое письмо

NewMessage = MailFactory.CreateMessage()

//Указать тему письма

NewMessage.Subject = "Тема письма"

//Указать получателя письма

NewMessage.To.Items("Получатель") ="recipient@mail.company.com"

//Указать тело письма

NewMessage.Body = "Текст письма"

//Указать важность письма

NewMessage.Importance ="Low"

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

Server.SendMessage(NewMessage)

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

Server.Logoff()