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

[Moksar]

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

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

Нужен именно батник.

Возможно вообще такое реализовать?

[Moksar]

Цитата Moksar:



Нужен именно батник.

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

Почему?

[Moksar]

Цитата Iska:



Почему?

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

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

[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 из скрипта. Только чистая концепция.[/i]