Como recuperar endereços de email alternativo usando o CDO

IMPORTANTE: Este artigo foi traduzido pelo software de tradução automática da Microsoft e eventualmente pode ter sido editado pela Microsoft Community através da tecnologia Community Translation Framework (CTF) ou por um tradutor profissional. A Microsoft oferece artigos traduzidos automaticamente por software, por tradutores profissionais e editados pela comunidade para que você tenha acesso a todos os artigos de nossa Base de Conhecimento em diversos idiomas. No entanto, um artigo traduzido pode conter erros de vocabulário, sintaxe e/ou gramática. A Microsoft não é responsável por qualquer inexatidão, erro ou dano causado por qualquer tradução imprecisa do conteúdo ou por seu uso pelos nossos clientes.

Clique aqui para ver a versão em Inglês deste artigo: 196507
Aviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Este artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.
Sumário
Este artigo contém um exemplo de código Collaboration Data Objects (1. x) que demonstra como acessar o campo PR_EMS_AB_PROXY_ADDRESSES do objeto AddressEntry. Esta propriedade contém os endereços de email do sistema externo (endereços de correio electrónico alternativo).
Mais Informações
Você pode ver a lista de endereços de email de sistema externo (e-mailaddresses alternativo) através do Microsoft Outlook da seguinte maneira:
  1. Na barra de ferramentas padrão do Outlook, clique em Catálogo de endereços.
  2. Clique em um nome da Lista de endereços Global do Exchange e clique em Propriedades.
  3. Clique na guia E-mail Addresses.
Microsoft Exchange Server suporta os seguintes tipos de endereços:
  • Exchange
  • Microsoft Mail
  • MacMail
  • X. 400
  • Internet
  • Lotus cc: mail
  • Personalizado
Cada destinatário de um Microsoft Exchange Server pode ter um ou mais dos thesetypes de endereços. A propriedade Address do returnsthe do objeto AddressEntry endereço de email do Exchange (EX) tipo por padrão. Para recuperar o otheraddresses, você pode usar a propriedade PR_EMS_AB_PROXY_ADDRESSES .

Nem todos os provedores de catálogo de endereço suportam à propriedade PR_EMS_AB_PROXY_ADDRESSES. A lista Global de endereços (GAL) Exchange faz, e é alsopresent em entradas do catálogo de endereços pessoal (PAB) que foram copiados de theExchange GAL. Pastas de contatos do Outlook não suportam essa propriedade.

O seguinte código de Visual Basic utiliza CDO (1. x) para acessar a propriedadePR_EMS_AB_PROXY_ADDRESSES :

Código de exemplo

   ' This code sample assumes a valid reference to CDO (1.x) library.   ' To use CDO (1.0) library, however, you must declare all CDO objects   ' variables as Object. For example, "Dim objSession As Object."   Option Explicit   ' This constant is not included in the CDO (1.x) type library,   ' so you must declare it explicitly or use the provided   ' value directly.   Const CdoPR_EMS_AB_PROXY_ADDRESSES = &H800F101E   Private Sub Command1_Click()     Dim objSession As MAPI.Session     Dim objMessage As MAPI.Message     Dim objRecip As MAPI.Recipient     Dim objField As MAPI.Field     Dim v     ' Create Session object and Logon.     Set objSession = CreateObject("MAPI.Session")     objSession.Logon     ' Show AddressBook and choose a recipient.     Set objMessage = objSession.Outbox.Messages.Add     Set objMessage.Recipients = objSession.AddressBook(OneAddress:=True)     Set objRecip = objMessage.Recipients(1)     ' Show the display name and EX type address.     MsgBox "Display Name: " & objRecip.Name     MsgBox "Default Address: " & objRecip.Address     ' Get the PR_EMS_AB_PROXY_ADDRESSES property.     Set objField = _        objRecip.AddressEntry.Fields(CdoPR_EMS_AB_PROXY_ADDRESSES)     ' PR_EMS_AB_PROXY_ADDRESSES is a multivalued property (PT_MV_TSTRING).     ' Therefore, you need to extract the individual members.     For Each v In objField.Value         MsgBox "Foreign System Address: " & v     Next     ' Clean up and exit.     Set objMessage = Nothing     Set objRecip = Nothing     Set objField = Nothing     objSession.Logoff     Set objSession = Nothing     Unload Me   End Sub

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 196507 - Última Revisão: 06/11/2016 22:57:00 - Revisão: 5.0

  • kbFAQ kbhowto kbmsg kbmt KB196507 KbMtpt
Comentários