Outlook 2010 macro to extract data from email

Something like this:

Dim itm As Object
Dim OutMail As MailItem

Set itm = ActiveInspector.CurrentItem

If itm.Class = olMail Then
    Set OutMail = itm
    If OutMail.Attachments.Count > 0 Then
        MsgBox OutMail.Attachments(1).Filename
    End If
End If

Dom