Como obter endereços de correio electrónico alternativo utilizando o CDO

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 196507
Exclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.
Sumário
Este artigo contém um exemplo de código Collaboration Data Objects (1. x) que demonstra como aceder ao campo PR_EMS_AB_PROXY_ADDRESSES do objecto AddressEntry. Esta propriedade contém os endereços de correio electrónico do sistema externo (endereços de correio electrónico alternativo).
Mais Informação
Pode ver a lista de endereços de correio electrónico do sistema externo (alternativo e-mailaddresses) através do Microsoft Outlook do seguinte modo:
  1. Barra de ferramentas padrão da Outlook, clique em Livro de endereços.
  2. Botão direito do rato num nome na Lista de endereços Global do Exchange e clique em Propriedades.
  3. Clique no separador de Endereços de correio electrónico .
Microsoft Exchange Server suporta os seguintes tipos de endereços:
  • Exchange
  • Microsoft Mail
  • MacMail
  • X. 400
  • Internet
  • Lotus cc: Mail
  • Personalizada
Cada destinatário num Microsoft Exchange Server pode ter um ou mais dos thesetypes de endereços. A propriedade de endereço de returnsthe de objecto de AddressEntry endereço de correio electrónico do tipo de Exchange (EX) por predefinição. Para obter o otheraddresses, pode utilizar a propriedade PR_EMS_AB_PROXY_ADDRESSES .

Nem todos os fornecedores de livro de endereços suportam a propriedade PR_EMS_AB_PROXY_ADDRESSES. É a lista de endereços Global (GAL) e é alsopresent em entradas do livro de endereços pessoal (PAB) que foram copiadas da theExchange GAL. Pastas de contactos do Outlook não suportam esta propriedade.

O seguinte código de Visual Basic utiliza CDO (1. x) para aceder à 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: 09/27/2015 10:47:00 - Revisão: 5.0

  • kbfaq kbhowto kbmsg kbmt KB196507 KbMtpt
Comentários