使用 VBA 从 Outlook 电子邮件正文中提取电子邮件地址？
我在我公司的交换服务器中使用带有登录ID的outlook 2000。
我有一个名为“undelivered_email”的文件夹，位于个人文件夹下。我设置了一条规则来移动所有标题类似于“未送达的电子邮件”的电子邮件的副本。
现在，我如何循环遍历此“undelivered_email”文件夹中的所有电子邮件，并访问每封电子邮件的正文，然后获取内容正文内部的任何电子邮件地址？
例如，这是一份未送达电子邮件通知的内容副本：
####################################################################
# THIS IS A WARNING ONLY. YOU DO NOT NEED TO RESEND YOUR MESSAGE. #
####################################################################
Your message could not be delivered for 1 days, 20 hours, 0 minutes.
It will be retried until it is 3 days, 0 hours, 0 minutes old.
For further assistance, please send mail to <postmaster>
If you do so, please include this problem report. You can
delete your own text from the attached returned message.
< [email protected] >: this domain could be reached at this time
嗯，我真的不需要使用 vba，任何方法都可以。应该是最简单的一个。 我有很多此类未送达的电子邮件通知需要处理，我需要提取里面的电子邮件。如果我们可以将电子邮件列表导出到文件中，那就太好了。
I am using outlook 2000 with a login id in a exchange server of my company.
I have a folder named "undelivered_email" which in under personal folder. I set a rule to move a copy of all the email with title similar to "undelivered email".
Now, how can I loop through all the email in this "undelivered_email" folder, and access the body of each email, then get any email address inside the content body?
For example, this is a copy of the content of a undelivered email notice:
####################################################################
# THIS IS A WARNING ONLY. YOU DO NOT NEED TO RESEND YOUR MESSAGE. #
####################################################################
Your message could not be delivered for 1 days, 20 hours, 0 minutes.
It will be retried until it is 3 days, 0 hours, 0 minutes old.
For further assistance, please send mail to <postmaster>
If you do so, please include this problem report. You can
delete your own text from the attached returned message.
< [email protected] >: this domain could be reached at this time
Well, I don't really need to use vba, any method will do. Should be the easiest one.
I have a lot of such undelivered email notice to handle, I need to extract the email inside. And it would be good if we can export the email list to a file.
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
我在 Google 上搜索“outlook vba 退回电子邮件”并得到了一些有希望的点击：
I Googled "outlook vba bounced email" and got some promising hits: