ник: osmor
x = MyFolder.Items.count ' Определяем кол-во писем в папке
With MyFolder
For i = 1 To x ' Все письма
Set myItem = .Items(i) 'Получаем ссылку на конкретное письмо
MySubject = myItem.Subject ' получаем заголовок письма
If MySubject = FindSubject Then ' если заголовок равен заданному заголовку
Set myAttachments = myItem.Attachments ' получаем все вложения
'Сохранение с заданным именем файла вложения
myAttachments.Item(1).SaveAsFile MyFilePath ' сохраняем ПЕРВОЕ вложение с указанным именем
'...или c исходным именем вложения:
'myAttachments.Item(1).SaveAsFile myAttachments.Item(1).DisplayName
myItem.Delete ' удаляем письмо
Exit For 'Выходим из цикла перебирающего все письма т.к. найдено искомое
End If ' конец If проверки темы пиьса
Next i ' конец цикла перебирающего все письма
End With
|
поправьте код под ваши нужды
Если Вы будете сохранять вложение по имени, то MyFilePath использоваться не будет