使用VBA从Outlook无法发送的电子邮件中检索电子邮件地址

Question

我有一系列宏来完成所需的任务，其中涉及从Outlook上的1个特定帐户向每个销售代表发送电子邮件。该电子邮件地址是从Excel中说为Col B的Sales Associates名称中检索的。（名字姓氏）我已经拆分了名字并附加了域。在极少数情况下，Sales Associates的电子邮件地址不仅是FirstName LastName，因此我必须检测退回的电子邮件。

[当电子邮件地址错误时，Outlook将发送“ Undeliverable”（NDR报告）。我正在尝试从此无法发送的邮件中检索电子邮件地址。有时，这些无法投递的电子邮件会更改为“中文”字符。

我不是VBA专家。我尝试了Internet上的多种解决方案，但似乎都没有用。

https://answers.microsoft.com/en-us/office/forum/office_2013_release-customize/problem-in-vba-reading-text-from-body-of-out-of/1d8ca369-a4c0-41da-9d28-3f490de3ed8c

Extract text string from undeliverable email body to excel

Outlook Undeliverable Bounce Report-Item Search Issues, VBA

Answer 1

您可以尝试使用ReportItem.Recipients属性获取电子邮件地址。如果仍然无法按照帖子中提到的页面所述进行操作，则可以：

1. [使用基于Outlook的低级API-扩展MAPI或围绕此API的任何第三方包装，例如“兑换”。
2. 将项目保存到磁盘，然后解析它并从此处获取所需的信息。