在Excel中从VBA返回outlook发件人地址

Sub GetSenderEmailAddress()
    Dim OutlookApp As Object
    Dim OutlookNamespace As Object
    Dim OutlookMail As Object
    Dim MailItem As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 获取Outlook命名空间
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    
    ' 获取当前选定的邮件
    Set OutlookMail = OutlookApp.ActiveExplorer.Selection.Item(1)
    
    ' 获取发件人地址
    MsgBox OutlookMail.SenderEmailAddress
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookNamespace = Nothing
    Set OutlookApp = Nothing
End Sub