Модификация прикладной системы

 

Работа с электронной почтой

 

 

Получение заголовков непрочитанных сообщений Exchange

 

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

MailFactory = CreateObject("SBUM.MailFactory")

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

Server = MailFactory.GetServer("MAPI")

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

Credentials = MailFactory.CreateParamList()

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

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

Server.Logon(Credentials)

// Создать и означить параметры фильтрации сообщений.

FilterParams = MailFactory.CreateParamList()

FilterParams.Items("Read") = False

// Найти все входящие, попадающие под условия фильтра.

IncomingMessages = Server.SearchInbox(FilterParams)

MessageHeaders =""

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

i = 0

while i < IncomingMessages.Count

  Msg = IncomingMessages.Values(i)

  // Составить список адресатов. 

  Tolist = Msg.To

  To =""

  j = 0   

  while j < Tolist.Count

    To = To & Tolist.Names(j) & " <" & Tolist.Values(j) & ">; " 

    j = j + 1

  endwhile

  // Сформировать текст с заголовками почтового сообщения.

  MessageHeaders = MessageHeaders &

    "ID: " & Msg.ID & CR &

    "Subject: " & Msg.Subject & CR &

    "Size: " & Msg.Size & CR &

    "Importance: " & Msg.Importance & CR &

    "From: " & Msg.FromName & " <" & Msg.FromAddress & ">" & CR &

    "To: " & To & CR &

    "--------------------------------------------------------" & CR & CR

  i = i + 1  

endwhile

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

Server.Logoff()

// Показать пользователю заголовки почтовых сообщений.

ShowMessage(MessageHeaders)

 

 

 

См. также:

·         Получение писем по протоколу POP3, сохранение HTML-тел и вложений;

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