Страница 1 из 1
Макрос сохранения вложений для Outlook
Добавлено: Чт дек 28, 2023 11:22 am
Fedor
Коллеги, помогите, плиз, найти макрос для автоматического сохранения вложений из Outlook на диск. Спасибо.
Re: Макрос сохранения вложений для Outlook
Добавлено: Чт янв 25, 2024 10:29 am
JuliaS
Я пользуюсь этим.
Public Sub AdvanceBalances (MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Docs\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub
Красным выделила то, то надо будет поменять. Название макроса и путь, куда сохранять.