Propriedade Recipient.Resolved (Outlook)
Retorna um Boolean que indica True se o destinatário foi validado no catálogo de endereços. Somente leitura.
Sintaxe
expression. Resolved
Expressão Uma variável que representa um objeto 'Destinatário'.
Comentários
Se houver nomes semelhantes para um destinatário em um Catálogo de Endereços, você poderá resolver o destinatário especificando o endereço de email SMTP completo do destinatário.
Exemplo
Este exemplo Visual Basic for Applications (VBA) usa o método Resolve para resolver o objeto Recipient que representa Dan Wilson e, em seguida, retorna a pasta de calendário padrão compartilhada de Dan.
Sub ResolveName()
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim CalendarFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("Dan Wilson")
myRecipient.Resolve
If myRecipient.Resolved Then
Call ShowCalendar(myNamespace, myRecipient)
End If
End Sub
Sub ShowCalendar(myNamespace, myRecipient)
Dim CalendarFolder As Outlook.Folder
Set CalendarFolder = _
myNamespace.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
CalendarFolder.Display
End Sub
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.