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

264
Mindbender

Я использовал шаги из другого поста на этом сайте, и он работал в течение нескольких дней, а теперь нет. Файл всегда приходит от одного человека и всегда является вложением 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

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

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

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

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

0
Правило может работать, но как вы узнали, что код сделал? Вы можете вставить MsgBox для проверки. Если код выполняется, вы можете поместить код для перемещения элемента после сохранения вложений, исключив этот шаг из правила. niton 5 лет назад 0
Я не думаю, что это выполняется. Я добавляю MsgBoxs в код, и ничего не всплывает .... Я также не могу запустить код из модуля ... отображается пустым Я добавил MsgBox "начальный код" прямо под Dim saveFolder As String и MsgBox "окончание код "между Next и End Sub Mindbender 5 лет назад 0
Если для этого вопроса не предложено решение, вы можете переключиться на ItemAdd, который запускается, когда почта перемещается, автоматически или вручную, в указанную папку. https://superuser.com/questions/286658/how-to-run-outlook-rule-than-message-moved-to-folder niton 5 лет назад 0
Я нашел этот код и изменил его в соответствии со своими потребностями. Это работает, но я не уверен, как это изменить. То, что я хотел бы сделать, это сохранить файл как Report_ACTIVITY.xlsm каждый раз. Вы можете помочь с этой частью? Это ссылка на оригинальный код, который я использовал http://www.vbaexpress.com/kb/getarticle.php? Kb_id = 522 Mindbender 5 лет назад 0
Вы можете создать новый вопрос, но так как этот часто задаваемый вопрос больше не нужно задавать. См. Https://stackoverflow.com/questions/43639596/saving-and-renaming-an-outlook-attachment-with-static-name niton 5 лет назад 0

1 ответ на вопрос

0
thims

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

Похожие вопросы