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

imendan

Well-known member
22.09.2010
116
0
#1
Народ! Помогите, пож-та :please: ! Я создал агент, который проверяет входящую почту из 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

:)
 

imendan

Well-known member
22.09.2010
116
0
#3