ник: Анатолий (Киев)
Например так (переменные пообъявляйте сами):
Set OL = CreateObject("Outlook.Application")
Set NS = OL.GetNamespace("MAPI")
NS.Logon
Set myFolder = NS.Folders("Личные папки").Folders("Входящие")
strFileMask = "ABC*.txt"
MinDate = Date - 1
For i = myFolder.Items.Count To 1 Step -1 'Цикл по входящим в порядке убывания
Set myItem = myFolder.Items(i)
If myItem.CreationTime < MinDate Then Exit For 'Только за вчера и сегодня
If myItem.Attachments.Count > 0 Then 'Если есть вложения
strFileName = myItem.Attachments(1)
If strFileName Like strFileMask Then 'Если имя файла соответствует маске
myItem.Attachments(1).SaveAsFile strPath
End If
End If
Next
|