Outlook Save Attachment: Filename_yyyymmdd.extension

[gmayor]

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