Come recuperare gli indirizzi di posta elettronica alternativo utilizzando CDO

IMPORTANTE: il presente articolo è stato tradotto tramite un software di traduzione automatica di Microsoft ed eventualmente revisionato dalla community Microsoft tramite la tecnologia CTF (Community Translation Framework) o da un traduttore professionista. Microsoft offre articoli tradotti manualmente e altri tradotti automaticamente e rivisti dalla community con l’obiettivo di consentire all'utente di accedere a tutti gli articoli della Knowledge Base nella propria lingua. Tuttavia, un articolo tradotto automaticamente, anche se rivisto dalla community, non sempre è perfetto. Potrebbe contenere errori di vocabolario, di sintassi o di grammatica. Microsoft declina ogni responsabilità per imprecisioni, errori o danni causati da una traduzione sbagliata o dal relativo utilizzo da parte dei clienti. Microsoft aggiorna frequentemente il software e gli strumenti di traduzione automatica per continuare a migliorare la qualità della traduzione.

Clicca qui per visualizzare la versione originale in inglese dell’articolo: 196507
Dichiarazione di non responsabilità per articoli della Microsoft Knowledge Base su prodotti non più supportati
Questo articolo è stato scritto sui prodotti per cui Microsoft non offre più supporto. L’articolo, quindi, viene offerto ‘così come è’ e non verrà più aggiornato.
Sommario
In questo articolo contiene un esempio di codice Collaboration Data Objects (1. x) che illustra come accedere al campo PR_EMS_AB_PROXY_ADDRESSES dell'oggetto AddressEntry. Questa proprietà contiene gli indirizzi di posta elettronica di un sistema esterno (indirizzi di posta elettronica alternativi).
Informazioni
È possibile visualizzare l'elenco di indirizzi di posta elettronica di sistema esterno (mailaddresses e alternativo) tramite Microsoft Outlook come segue:
  1. Sulla barra degli strumenti standard di Outlook, fare clic su Rubrica.
  2. Fare un nome dall' Elenco indirizzi globale di Exchange e scegliere proprietà.
  3. Fare clic sulla scheda Indirizzi di posta elettronica .
Microsoft Exchange Server supporta i seguenti tipi di indirizzi:
  • Exchange
  • Microsoft Mail
  • MacMail
  • X. 400
  • Internet
  • Lotus cc: Mail
  • Personalizzato
Tutti i destinatari di un Microsoft Exchange Server possono avere uno o più thesetypes di indirizzi. La proprietà Address di restituisce oggetto AddressEntry indirizzo di posta elettronica di tipo Exchange (EX) per impostazione predefinita. Per recuperare il otheraddresses, è possibile utilizzare la proprietà PR_EMS_AB_PROXY_ADDRESSES .

Non tutti i provider della Rubrica indirizzi supportano la proprietà PR_EMS_AB_PROXY_ADDRESSES. Non di Exchange globale elenco indirizzi globale, ed è alsopresent nelle voci della Rubrica di indirizzi personale (PAB) che sono state copiate dall'elenco indirizzi globale di theExchange. Le cartelle di contatti di Outlook non supportano questa proprietà.

Il seguente codice di Visual Basic utilizza CDO (1. x) per accedere alla proprietàPR_EMS_AB_PROXY_ADDRESSES :

Codice di esempio

   ' 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

Avviso: questo articolo è stato tradotto automaticamente

Proprietà

ID articolo: 196507 - Ultima revisione: 05/07/2016 09:29:00 - Revisione: 4.0

  • kbfaq kbhowto kbmsg kbmt KB196507 KbMtit
Feedback