vba - mail - SenderName de la macro de Outlook está en blanco

send outlook email from excel using vba

Question

Deseo obtener las propiedades de SenderName y To de un objeto de MailItem , pero están en blanco.

Veo que hay SentOn , Subject y otras propiedades que no están en blanco. ¿Alguien sabe por qué estos dos están en blanco?

Aquí está mi código:

Sub TestMacro()
Dim myOlApp As New Outlook.Application
Dim myOlexp As Outlook.Explorer
On Error Resume Next
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
For Each myItem In myOlSel
strRawSubj = myItem.Subject
strSender = myItem.SenderName ''blank
strLongTo = myItem.To ''blank
Next
End Sub

EDITAR: Esto funciona si ejecuto Outlook como administrador. ¿Es posible obtener estos valores sin tener que ejecutar Outlook como administrador?

Answer 1

Prueba lo siguiente ...

Usa el código en el módulo regular

Option Explicit
Public Sub Example()
Dim olMsg As mailitem
Set olMsg = ActiveExplorer.Selection.Item(1)
''// All print on Immediate Window
Debug.Print olMsg.SenderName
Debug.Print olMsg.sender
Debug.Print olMsg.SenderEmailAddress
Debug.Print olMsg.Categories
Debug.Print olMsg.subject
Debug.Print olMsg.To
Debug.Print olMsg.CC
Debug.Print olMsg.ReceivedByName
Debug.Print olMsg.SenderEmailType
End Sub

Answer 2

prueba esto por favor

Sub TestMacro()
Dim myOlexp As Outlook.Explorer
Dim myOlSel As Selection
'' On Error Resume Next '' do not use during development ... hides errors
Set myOlexp = Application.ActiveExplorer '' "Application" object already exists
Set myOlSel = myOlexp.Selection
For Each myItem In myOlSel
Debug.Print Len(myItem.Subject) '' print the length of each string
Debug.Print Len(myItem.SenderName) '' maybe the strings are being obfuscated somehow
Debug.Print Len(myItem.To)
Next
Set myOlSel = Nothing
Set myOlexp = Nothing
End Sub