Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim categ As String, emailremitente As String
If Item.Class = olMail Then
Set NewMail = Item
NewMail.ShowCategoriesDialog
categ = NewMail.Categories
emailremitente = "xxx@xxx.com"
End If
leer categ, emailremitente
End Sub
MsgBox olMail.Session.accounts.Item(1) ' Te saca la cuenta default de outlook