Bryan explained on 21-10-10 :

Sorry, SingleClick selects eMail, DoubleClick shows eMail contents.
Then you must arrange a macro button on the tool bar or simply execute
the procedure from VBE.

===============================================
Public Sub Selection_SaveAttachmentsToDir()
Dim Selected As Outlook.Selection, i As Integer, j As
Outlook.Attachment
Set Selected = ActiveExplorer.Selection

For i = 1 To Selected.Count
With Selected(i)
If .Class = olMail And .Attachments.Count Then
For Each j In .Attachments
j.SaveAsFile "C:\MyFolder\" & j.FileName
Next
End If
End With
Next

End Sub
================================================

Bruno