在Outlook电子邮件中获取电子邮件地址的方法有多种。以下是一些常见的方法:
Sub GetEmailAddresses()
Dim selectedMail As MailItem
Dim recipient As Recipient
' 获取当前选中的邮件
Set selectedMail = Application.ActiveExplorer.Selection.Item(1)
' 遍历邮件的所有收件人
For Each recipient In selectedMail.Recipients
' 输出收件人的电子邮件地址
Debug.Print recipient.Address
Next recipient
End Sub
通过运行上述VBA宏,可以在Outlook的VBA编辑器中查看输出的电子邮件地址。
请注意,以上方法仅适用于Outlook桌面版。如果使用的是Outlook Web App或Outlook.com,界面和操作可能会有所不同。
领取专属 10元无门槛券
手把手带您无忧上云