Private Sub attSelect()
Dim oItm As Object
For Each oItm In ActiveExplorer.Selection
 
    If TypeOf oItm Is mailItem Then
        saveAttachtoDisk2 oItm
    End If
Next
End Sub