Помогите сделать батник для сохранения вложений из outlook 2003

[Moksar]

Помогите сделать батник для сохранения вложений из outlook 2003
Нужно что бы при запуске батника вложения(в .zip) из почты(нужно что бы от одного конкретного адреса) скопировались например в C:\1.
Нужен именно батник.
Возможно вообще такое реализовать?

[Iska]

Нужен именно батник. »
Почему?

[Moksar]

Почему? »
Есть другие варианты?Надо что бы работало не всё время,а именно как запускается батник копирует вложения и всё.Данное действие надо не постоянно.

[Iska]

Другими вариантами может быть использование OutlookAttachView - View/Extract/Save Outlook Attachment (http://www.nirsoft.net/utils/outlook_attachment.html), либо подобного 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 из скрипта. Только чистая концепция.