在Outlook VBA中获取getTable()收件人电子邮件地址的最快方法

Sub GetRecipientEmailAddress()
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress As String
    
    ' 获取当前选中的邮件
    Set objMail = Application.ActiveExplorer.Selection(1)
    
    ' 遍历所有收件人
    For Each objRecipient In objMail.Recipients
        ' 获取收件人的电子邮件地址
        strEmailAddress = objRecipient.Address
        
        ' 在此处可以对电子邮件地址进行处理或使用
        ' ...
        
        ' 打印收件人的电子邮件地址
        Debug.Print strEmailAddress
    Next objRecipient
End Sub