vba - 将交换电子邮件转换为 smtp 电子邮件

Question

是否可以将交换电子邮件转换为 smtp 电子邮件。我可以在谷歌搜索时找到一些帮助，但解决方案不可行，因为我使用的是旧版本（outlook 2003）。

当我检查 MailItem.SenderEmailAddress 属性时，该属性中的值看起来像这种格式

/O=MYCOMPANY/OU=COUNTRY/CN=RECIPIENTS/CN=joseph

我想将其转换为 smtp 电子邮件，它应该是

joseph@mail.com

Answer 1

我正在为我的.Net使用这种方式：

service.ResolveName(emailAddress.Address).First().Mailbox.Address
// emailAddress.Address = "/o=ExchangeLabs/ou=Exchange(abc)/cn=Recipients/cn=xyz"
// => abc@xyz.com

ResolveName 方法参考：https ://msdn.microsoft.com/en-us/library/dd635548(v=exchg.80).aspx

我正在使用 .Net 而不是 VBA。但是希望会激发您的 VBA 代码。

Answer 2

MailItem.Sender.GetExchangeUser().PrimarySmtpAddress

我知道这适用于 Outlook 2010，但您的里程可能会随 2003 年而有所不同。