Несколько лет go, я создал несколько правил Outlook, чтобы сохранить вложение при получении письма. Критерии каждого правила: стр. c слов в теме, «только на этом компьютере», удаляет сообщение и запускает следующий скрипт из модуля:
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "S:\CSVs"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Sleep (5000)
Set objAtt = Nothing
Next
End Sub
Версия - Outlook 365 ProPlus 1912 ( ежемесячный канал) на Windows Server 2012-R2. Windows является актуальным, за исключением этих 2 необязательных обновлений (я ограничен в обновлении):
- 2020-01 Предварительный просмотр ежемесячного накопительного пакета качества (KB4534324)
- 2020-01 Предварительный просмотр накопительного пакета качества для. NET Framework (KB4535674)
Некоторые затронутые электронные письма приходят каждый час, остальные - ежедневно.
Все работало до тех пор, пока около 2 месяцев go, что, возможно, совпало с обновлением Windows и / или Office 365. С тех пор я получаю сообщения «правила по ошибке», ожидающие меня каждое утро, когда я удаленно на сервер (я предполагаю, что я остаюсь в системе). Все части правил выполняются, кроме вложений не сохраняются. Первоначально я подозревал, что это была проблема с VPN, из-за которой я отключился и отключился через 8 часов, но сегодня утром я получил 2 ошибки правил, когда был подключен к VPN и серверу. Если я запускаю правила Outlook вручную, никаких ошибок.
Я подозреваю, что проблема связана с кодом VB, и, с различными предложениями из поиска Google, я пробовал сочетания проверки / снятия отметки "только на этом компьютере" , private & publi c объявления / подписки в скрипте VBA.
Отказ от ответственности: VBA новичок