Outlook Save Attachment: Filename_yyyymmdd.extension

[davidlimcg23]

Call it from another macro e.g. the following will extract from the current message.

Sub GetMsg()
Dim olMsg As MailItem
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    saveAttachtoDisk olMsg
lbl_Exit:
    Exit Sub
End Sub

thanks.

can it be tweaked to extract from whole Outlook folder?

just tested the above, it only work on 1 selected mail.

much thanks!