Задача: каждый день в Оutlook приходит мыло с данными, приаттачеными к письму.
Конечная цель: по факту прихода сохранить аттач в локальном фолдере на диске (дальше им занимается другой обработчик). Пока это все делалось руками, что совсем не гуд. Хочется автоматизировать и получить что-то типа триггера.
Сделано: в Outllok написана процедура, которая бегает по мессаджам (см. текст ниже) и сохраняет аттачи. Если ее запускать ручками, отрабатывает как надо. Создан rule, который запускается по факту приходу письма. Rule кладет письмо в фолдер Outlook и вот тут я застрял...
В идеале надо бы просто запустить процедуру. Как это прямо сделать - без понятия. Что можно сделать - в обработчик rule поставить запуск application. В качестве Application подсунусть файл на VBScript. В содержимое файла запихать существующей текст процедуры и нехай крутится.
Обломился на прямом копировании в .vbs текста процедуры (все что между Sub находится) - на первой же строчке пишет - error, unexpected end of statement. Собственно с VBS не знаком.
Что посоветуете?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Sub SaveAttachment()
Dim myApp As Outlook.Application
Dim myFolder, myFolderParent, Fi, CFolder As Outlook.MAPIFolder
Dim myNS As Outlook.NameSpace
Dim myItem As Outlook.MailItem
Dim myAttach As Outlook.Attachment
Dim MailFolderName, TargetFolderName As String
Dim AttCounter, DDif As Integer
MailFolderName = "..."
TargetFolder = "..."
SnapshotPrefix = "..."
Set myApp = CreateObject("Outlook.Application")
Set myNS = myApp.GetNamespace("MAPI")
Set myFolder = myNS.GetDefaultFolder(olFolderInbox) ' get Inbox folder
Set myFolderParent = myFolder.Parent ' get Parent Folder to Inbox
' Jump to the mail Folder:
For Each Fi In myFolderParent.Folders
If Fi.Name = MailFolderName Then Set CFolder = Fi
Next
'Scroll trough all items in mail folder:
For Each myItem In CFolder.Items
DDif = DateDiff("d", myItem.CreationTime, Now)
If DDif < 3 Then
AttCounter = 0
For Each myAttach In myItem.Attachments
AttCounter = AttCounter + 1
' Check if attachment is the snapshot:
If InStrRev(myItem.Attachments.Item(AttCounter).DisplayName, SnapshotPrefix) = 1 Then
' Save attachments into the target folder
myItem.Attachments.Item(AttCounter).SaveAsFile TargetFolder & myItem.Attachments.Item(AttCounter).DisplayName
End If
Next myAttach
End If
Next myItem
End Sub
