从电子邮件正文中提取电子邮件地址

Question

我正在尝试自动响应我们从网络托管服务商收到的电子邮件。

电子邮件包含发送回复的地址。

如何从电子邮件正文中提取电子邮件地址，并将其插入新电子邮件的 TO ？

Answer 1

Outlook对象模型提供了三种使用项主体的主要方法：

1. Body - 表示Outlook项目的明文正文的字符串。
2. HTMLBody - 表示指定项目的HTML正文的字符串。
3. Word editor - 正在显示的消息的Microsoft Word文档对象模型。 Inspector类的WordEditor属性从Word对象模型返回Document类的实例，您可以使用它来设置消息体。

您可以在Chapter 17: Working with Item Bodies中详细了解所有这些方式。我们取决于你选择处理消息体的方式。

要在Outlook中设置TO字段，您可以使用the corresponding property或使用Recipients集合。以下代码行使用Add方法将“Dan Wilson”添加为收件人：

 Dim myRecipient As Outlook.Recipient 
 Set myRecipient = mailItem.Recipients.Add("Dan Wilson") 

最后，您可能会发现Getting Started with VBA in Outlook 2010文章很有帮助。