当前联系电子邮件模板

Question

我有打开Outlook 2010模板的代码。当我从公共交换文件夹打开联系人记录时，我想使用当前联系人记录中的电子邮件地址填充“收件人：”字段。

这是代码。

Sub SendAgreement()
   Set Msg = Application.CreateItemFromTemplate("\\locationofagreementtemplate\Send Agreement.oft")
   Msg.Display
End Sub

Answer 1

假设在资源管理器中选择了联系人。如果它实际在检查器中打开，请将第一行更改为set Contact = Application.ActiveInspector.CurrenrtItem

set Contact = Application.ActiveExplorer.Selection(1)
if Contact.Type = olContact Then
  Msg.Recipients.Add Contact.Email1Address
End If