时间戳

首页 > 解决方案 > 根据电子邮件正文中的文本添加电子邮件收件人

vba - 根据电子邮件正文中的文本添加电子邮件收件人

问题描述

电子邮件正文示例：

由 BRENNAN Group Ltd 为 YOURTOWN 提交的智能报价请求 SQ-1234567 已由 HP 审核和引用。

如果电子邮件正文包含BRENNAN，我想在单击“转发”按钮时执行此操作：

标签： vbaoutlook

解决方案

对的，这是可能的。似乎您需要处理当用户选择项目的操作或为项目调用方法时触发的类的Forward事件。被转发的新项目作为参数提供给事件处理程序。例如：MailItemForwardForward

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Public Sub Initialize_Handler() 
 
 Set myItem = Application.ActiveInspector.CurrentItem 
 
End Sub 
 
 
 
Private Sub myItem_Forward(ByVal Forward As Object, Cancel As Boolean)  
 Forward.Cc = "email3@email.com; email4@email.com" 
End Sub

您还可以使用MailItem.Recipients属性，该属性返回Recipients代表 Outlook 项目的所有收件人的集合。Recipients.AddRecipients方法在集合中创建一个新的收件人。例如，要添加抄送收件人，您可以使用以下代码：

Dim myRecipient as Outlook.Recipient
Set myRecipient = myItem.Recipients.Add ("email3@email.com") 
myRecipient.Type = olCC

最后，如果您是 VBA 新手，您可能会发现以下页面很有帮助：

推荐阅读