发送到共享联系人组

Question

我正在从共享邮箱创建新电子邮件，并尝试从同一共享邮箱的密件抄送字段中添加联系人组。

我目前正在使用我自己的联系人中的测试列表，但我找不到是否有引用共享邮箱组的方法。

使用 SendTo = "测试列表" 进而 .BCC = 发送至

我可以添加什么内容来访问该共享联系人组吗？

Answer 1

您可以使用Recipients.Add 方法在Recipients 集合中创建一个新的收件人。

Set myItem = Application.CreateItem(olMailItem)  
Set myRecipient = myItem.Recipients.Add ("Eugene Astafiev")  
myRecipient.Type = olCC
myRecipient.Resolve()
If Not myRecipient.Resolved Then 
  ' access the shared folder to get the corresponding contacts
End If 

Resolve 方法尝试根据通讯簿解析“收件人对象”。如果无法解决，您可以尝试使用GetSharedDefaultFolder 方法访问共享联系人文件夹，该方法返回代表指定用户的指定默认文件夹的Folder 对象。因此，在共享文件夹中，您可能会找到所需的联系人。

How To: Fill TO,CC and BCC fields in Outlook programmatically 文章可能对您有所帮助。