Сохраните и переименуйте вложение из outlook 2013 в определенную папку

Question

Я использовал шаги из другого поста на этом сайте, и он работал в течение нескольких дней, а теперь нет. Файл всегда приходит от одного человека и всегда является вложением xlsm.

Я включил небезопасные Правила Почты Клиента в Outlook, чтобы включить запуск сценария

Затем я создал правило, которое перемещает электронную почту от определенного человека в подпапку в папке «Входящие»

правило вложения

а затем запускает следующий скрипт

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\Automation\CBM\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub

Перемещение в подпапку работает, но сохранение вложения в папке больше не выполняется.

Я проверил настройки макроса, и они установлены, чтобы включить все.

Я не уверен, почему это перестало работать. он запускается, но после перехода в подпапку ничего не происходит.

Любой совет будет принята с благодарностью

Answer 1

Как я вижу на скриншоте и используемом вами макросе, правило запускает макрос SaveAttachments, а ваш скрипт называется saveAttachtoDisk. Может быть, ваше правило просто запускает другой скрипт, который ничего не делает?