Selecione um item numa Caixa de Entrada do Outlook e use uma rotina como mostrada abaixo:
Sub Exemplo()
Dim exp As Outlook.Explorer
Dim sel As Outlook.Selection
Dim obj As Object
Dim con As ContactItem
Dim mi As MailItem
Set exp = Application.ActiveExplorer
Set sel = exp.Selection
For Each obj In sel
Select Case obj.Class
Case olMail
Set mi = obj
Debug.Print mi.en
Debug.Print mi.Parent.Name
Debug.Print mi.Parent.Parent.Name
End Select
Next obj
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
