Метод Recipients.ResolveAll (Outlook)

Статья
04/07/2023

Пытается разрешить все объекты Recipient в коллекции Recipients в адресной книге.

Синтаксис

выражение. ResolveAll

Выражение Переменная, представляющая объект Recipients .

Возвращаемое значение

Значение True , если все объекты были разрешены, значение False , если один или несколько объектов не были разрешены.

Пример

В этом примере Visual Basic для приложений (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

См. также

Объект Recipients

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через