Автоматически сохранять вложения из писем, соответствующих определенному правилу

Question

Каждое утро я получаю электронное письмо от человека, и оно содержит вложение электронной таблицы. Мне удалось создать правило внешнего вида, которое ловит эти электронные письма. Теперь можно ли автоматически сохранять вложения из каждого из них в локальную папку с именем файла YYYY-MM-DD.xls?

Вложение в письме имеет случайно сгенерированное имя файла, поэтому для выбора имени файла необходимо указать дату отправки письма. NB: это на моем ноутбуке, так что есть вероятность, что электронное письмо будет отправлено в день, отличный от дня его получения (например, когда он выключен на один день), поэтому использование "сегодняшней даты" не жизнеспособный вариант.

РЕДАКТИРОВАТЬ: использование Windows 7 с Outlook 2013

Answer 1

Чтобы делать то, что вы хотите, вам нужно смешать немного VBA и правила вместе. Не уверен, какую версию Outlook вы используете, поэтому здесь никаких гарантий. Это было проверено на Outlook 2010.

Эта статья поможет вам настроить вещи - правило для автоматического сохранения вложения в Outlook.

Приведенный ниже код изменен специально для сохранения файла с форматом имени yyyy-mm-dd .

Public Sub SaveToDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat

dateFormat = Format(Now, "yyyy-mm-dd")

'Change this path to the your folder location
saveFolder = "c:\temp\"

objAtt.SaveAsFile saveFolder & "\" & dateFormat & ".xls"

Set objAtt = Nothing

End Sub

После того, как вы настроите это правило для запуска этого скрипта, он будет сохранять все вложения от этого человека каждый раз, когда получит его (и даст ему расширение .xls ). Если вы хотите изменить это, вам придется изменить свое правило или отключить его.