Синтаксис:
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()
© Компания DIRECTUM, 2018 | Сообщество пользователей DIRECTUM |