Shortcut for downloading attachments in e-mail

[paik1002]

I'd like to know if there is a shortcut key for downloading attachments from a received e-mail.

[gmayor]

Isn't Right Click > Save All Attachments short enough for you?

[paik1002]

Yes but I'd have to point to the attached file first, which would not do. I'd like to do it solely via a keyboard, and quickly. It would defeat the purpose of using a shortcut key if a mouse were to intervene.

[gmayor]

You can do it with a keyboard shortcut attached to the macro ProcessSelectedMessage (or run SaveAttachments as a script from a rule as the messages arrive, which needs no shortcut or further user involvement)

Option Explicit

Sub ProcessSelectedMessage()
Dim olMsg As MailItem
    On Error GoTo lbl_Exit
    Set olMsg = ActiveExplorer.Selection.Item(1)
    SaveAttachments olMsg
lbl_Exit:
    Exit Sub
End Sub

Sub SaveAttachments(Item As Outlook.MailItem)
Dim olAtt As Attachment
Dim strFileName As String
Const strPath As String = "C:\Path\"        'The path where the files are to be saved
    If Item.Attachments.Count > 0 Then
        For Each olAtt In Item.Attachments
            If Not olAtt.FileName Like "image*.*" Then
                strFileName = strPath & olAtt.FileName
                olAtt.SaveAsFile strFileName
            End If
        Next olAtt
    End If
lbl_Exit:
    Exit Sub
End Sub

[paik1002]

Thank you for the code.