Проверка, является ли полученный активный объект сообщением:
Sub IsItMailItem1()
Dim MailItem1 As MailItem
Dim myinspector As Outlook.Inspector
Dim Object1 As Object
Set Object1 = Application.ActiveExplorer.Selection.Item(1)
If Object1.Class = olMail Then
MsgBox "Это сообщение"
Else: MsgBox "Это не сообщение"
End If
End Sub
Большое спасибо. Проблема решена, и тема закрыта.