[Iska]

Другими вариантами может быть использование OutlookAttachView - View/Extract/Save Outlook Attachment, либо подобного VBScript-скрипта:

Код:

Option Explicit

Const olFolderInbox = 6

Dim objOutlook
Dim objNamespace
Dim objMAPIFolder
Dim objMailItem
Dim objAttachment

Set objOutlook    = WScript.CreateObject("Outlook.Application")
Set objNamespace  = objOutlook.GetNamespace("MAPI")
Set objMAPIFolder = objNamespace.GetDefaultFolder(olFolderInbox)

For Each objMailItem In objMAPIFolder.Items
	If objMailItem.SenderEmailAddress = "some@mail.com" Then
		For Each objAttachment In objMailItem.Attachments
			objAttachment.SaveAsFile "C:\1\" & objAttachment.FileName
		Next
	End If
Next

Set objAttachment = Nothing
Set objMailItem   = Nothing

Set objMAPIFolder = Nothing
Set objNamespace  = Nothing

objOutlook.Quit
Set objOutlook    = Nothing

WScript.Quit 0

В скрипте не проверяется ни существование папки «C:\1», ни возможность перезаписи одноимённых файлов вложений; не рассматриваются вопросы безопасности при доступе к адресной книге Microsoft Outlook из скрипта. Только чистая концепция.