Извлечь Входящие Сообщения Из Outlook С Аттачментами

[imendan]

Народ! Помогите, пож-та lease: ! Я создал агент, который проверяет входящую почту из Outlook. Не получается извлечь вложения и удалить сообщение.
Предоставляю Вам часть кода. Прошу помочь дописать агент.

Const olFolderInbox = 6
Dim olApp, inbox, col, ns, sm

Set olapp = createobject("outlook.application")
Set ns = olapp.getnamespace("mapi")

Set inbox = ns.GetDefaultFolder(olFolderInbox)

Set col = inbox.items

Forall msg In col
Print msg.subject
End Forall

 

[Medevic]

Пара секунд в гугле.
А вообще это к лотусу не имеет отношения.

Ссылка скрыта от гостей

 

[imendan]

Пара секунд в гугле.
А вообще это к лотусу не имеет отношения.

Ссылка скрыта от гостей

Огромное спасибо! Получилось все прекрасно! Вот как только не искал в гугле, но на эту страницу никак не выходил!