Сохранение вложений в папку на диске

@Maks · Регистрация: 13.03.2013

Author24 — интернет-сервис помощи студентам

Категорически всех приветствую!
Есть такая задачка: на отдельно созданный почтовый ящик, авторизованный в outlook 2010, присылают сканы документов.
Необходимо настроить аутлук таким образом, чтобы эти сканы автоматом копировались в созданную на диске папке, например "D:\Mail\attachments".
В правилах аутлука я такой функции не нашел, соответственно, прошу совета, как это можно реализовать.

Добавлено через 2 часа 19 минут
Помогло следующее:
Создал макрос в аутлуке (Alt+F11)

Visual Basic

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
dateOfMailItem = Format(itm.ReceivedTime, "yyyy.mm.dd")
saveFolder = "D:\Mail\attachments"
 If Dir(saveFolder, vbDirectory) = "" Then
     MkDir saveFolder
 End If
For Each objAtt In itm.Attachments
'Проверяем наличие файла с таким же именем
j = " "
  For i = 1 To 1000
   If Not Dir(saveFolder & "\" & dateOfMailItem & j & objAtt.FileName) = "" Then
    j = "_" & i & "_"
   Else
    Exit For
   End If
  Next i
'Конец проверки
objAtt.SaveAsFile saveFolder & "\" & dateOfMailItem & j & objAtt.FileName
Set objAtt = Nothing
Next
End Sub

Далее, создал правило.

Вот так

В главном меню жмем "Сервис" - "Правила и оповещения..."
В появившемся окне "Правила и оповещения" жмем кнопку "Новое"
На этапе "Какие сообщения следует отбирать?" указываем критерий письма
На этапе "Что следует сделать с сообщением?" выбираем галочкой "Запустить сценарий" и кликаем по надписи "сценарий"
В появившемся маленьком окне "Выбор сценария" выбираем сценарий в названии которого содержится "saveAttachtoDisk"
Жмем "ок" и "готово"

	01.02.2022, 12:12

Сохранение вложений в папку на диске

Решение