Помогите сделать батник для сохранения вложений из outlook 2003
Помогите сделать батник для сохранения вложений из outlook 2003
Нужно что бы при запуске батника вложения(в .zip) из почты(нужно что бы от одного конкретного адреса) скопировались например в C:\1.
Нужен именно батник.
Возможно вообще такое реализовать?
|
Есть другие варианты?Надо что бы работало не всё время,а именно как запускается батник копирует вложения и всё.Данное действие надо не постоянно. |
Другими вариантами может быть использование 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 из скрипта. Только чистая концепция. |
Время: 21:10.
© OSzone.net 2001-
