获取交换电子邮件的实际收件人

Question

我有以下代码：

For each Item in ofChosenFolder.Items
    msgbox Item.Subject
    for each recip in Item.Recipients
        msgbox "sent to " & recip.address
        msgbox "sent to " & recip.addressEntry
    next
next

我有一些电子邮件是发给我 awalker@example.com 的，还有一些是发给 projects@example.com 的。

我的交换邮箱都收到了。

使用上面的代码，我总是得到我的 Exchange /O=EXAMPLE/OU=EXCHANGE.../CN=RECIPIENTS/CN=A Walker 等以及我的 Exchange 名称“A Walker”。这是因为 Exchange 会根据全球通讯簿解析电子邮件。

有没有办法阻止它解析电子邮件地址并识别电子邮件发送到的实际 smtp 地址？

Answer 1

这看起来像是一个完全有效的 EX 类型地址。获取 SMTP 地址

1. 检查AddressEntry.Type 属性。如果是“SMTP”，只需使用AddressEntry.Address 属性即可。

2. 如果是“EX”，使用AddressEntry.GetExchangeUser.PrimarySmtpAddress

---

答案是获取PR_TRANSPORT_MESSAGE_HEADERS。

在 VBS 中执行此操作：

For Each Item in myNameSpace.GetDefaultFolder(olFolderInbox).items
    PropName = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"  
    Set oPA = Item.PropertyAccessor
    Header = oPA.GetProperty(PropName)
    'parse the "To" line out of your header to get the email address
Next