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

VBA の代わりに .Net を使用しています。しかし、あなたの VBA コードにインスピレーションを与えることを願っています。

Answer 2

MailItem.Sender.GetExchangeUser().PrimarySmtpAddress

これはOutlook2010で機能することは知っていますが、マイレージは2003年によって異なる場合があります。