Я пытаюсь, чтобы мой клиент Outlook сохранил все вложения, отправленные в общую папку «Входящие» на диск.Вот функция vba, которую я использую:
Public Sub CSD_SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\user\Documents\"
For Each oAttachment In MItem.Attachments
Debug.Print ("saving...")
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next oAttachment
End Sub
Я использую outlook 2016, и у меня есть правило, которое вызывает этот скрипт для всех сообщений.Некоторое руководство по выяснению, почему сообщения не сохраняются, будет полезноЗаранее спасибо.
