Recipients.ResolveAll 方法 (Outlook)

  • 项目

尝试解析 收件人 集合对照通讯簿中的所有 收件人 对象。

语法

expression。 ResolveAll

表达 一个代表 Recipients 对象的变量。

返回值

真正 解决的所有对象时， 假 如果一个或多个不。

示例

此Visual Basic for Applications (VBA) 示例使用 ResolveAll 方法尝试解析所有收件人，如果失败，则为每个未解析的收件人显示一个消息框。

Sub CheckRecipients() 
 
 Dim MyItem As Outlook.MailItem 
 
 Dim myRecipients As Outlook.Recipients 
 
 Dim myRecipient As Outlook.Recipient 
 
 
 
 Set myItem = Application.CreateItem(olMailItem) 
 
 Set myRecipients = myItem.Recipients 
 
 myRecipients.Add("Aaron Con") 
 
 myRecipients.Add("Nate Sun") 
 
 myRecipients.Add("Dan Wilson") 
 
 If Not myRecipients.ResolveAll Then 
 
 For Each myRecipient In myRecipients 
 
 If Not myRecipient.Resolved Then 
 
 MsgBox myRecipient.Name 
 
 End If 
 
 Next 
 
 End If 
 
End Sub

另请参阅

收件人对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。