发送到共享联系人组

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文章很有帮助。