Sub ProcessMessage()
'An Outlook macro by Graham Mayor
Dim olMsg As MailItem
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    MsgBox HasPicture(olMsg)
lbl_Exit:
    Exit Sub
End Sub

Private Function HasPicture(olItem As MailItem) As Boolean
'An Outlook macro by Graham Mayor
Dim olAttach As Attachment
Dim strExt As String
Dim j As Long
    On Error GoTo lbl_Exit
    If olItem.Attachments.Count > 0 Then
        For j = olItem.Attachments.Count To 1 Step -1
            Set olAttach = olItem.Attachments(j)
            If olAttach.FileName Like "image*.*" Then
                HasPicture = True
                Exit For
            End If
        Next j
        olItem.Save
    End If
lbl_Exit:
    Set olAttach = Nothing
    Set olItem = Nothing
    Exit Function
End Function