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

[Fedor]

Коллеги, помогите, плиз, найти макрос для автоматического сохранения вложений из 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

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