Макрос сохранения вложений для Outlook

Обсуждение средств VBA для автоматизации и аналитики.
Ответить
Fedor
Новенький аналитик
Новенький аналитик
Сообщения: 7
Зарегистрирован: Чт ноя 30, 2023 6:49 am
Поблагодарил(-а): 3 раз(-а)

Макрос сохранения вложений для Outlook

Сообщение Fedor »

Коллеги, помогите, плиз, найти макрос для автоматического сохранения вложений из Outlook на диск. Спасибо.
Аватара пользователя
JuliaS
Verified
Бог аналитики
Бог аналитики
Сообщения: 62
Зарегистрирован: Вт ноя 21, 2023 8:55 am
Лучшие ответы: 5
Поблагодарил(-а): 1 раз(-а)
Поблагодарили: 11 раз(-а)

Re: Макрос сохранения вложений для Outlook

Сообщение 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

Красным выделила то, то надо будет поменять. Название макроса и путь, куда сохранять.
Ответить