CDO kullanarak diğer e-posta adreslerini almak nasıl

ÖNEMLİ: Bu makale, Microsoft Makine Çevirisi Düzenleme yazılımı tarafından tercüme edilmiş olup, yüksek olasılıkla profesyonel bir çevirmen yerine CTF teknolojisi kullanılarak, Microsoft Topluluğu tarafından düzenlenmiştir. Microsoft, Bilgi Bankamız içindeki tüm makaleleri kendi dilinizde okuyabilmeniz için size hem profesyonel çevirmenler tarafından tercüme edilen hem de makine tarafından tercüme edildikten sonra Topluluk tarafından kontrol edilen makaleler sunar. Bununla birlikte, makine tarafından tercüme edilen, hatta Topluluk tarafından kontrol edilen bir makale bile her zaman mükemmel dil kalitesinde olmayabilir. Makalede dilinizi konuşan yabancı birisinin yapabileceği türden sözcük, söz dizimi veya dilbilgisi hataları bulunabilir. Microsoft, içeriğin hatalı tercümesinin veya müşterilerimiz tarafından kullanımının doğurabileceği olası yanlış anlamalar, hatalar veya zararlardan sorumlu değildir. Öte yandan Microsoft, Makine Çevirisi Düzenleme işlemini geliştirmek amacıyla Makine Çevirisi Düzenleme yazılımını ve araçlarını sık sık güncelleştirmektedir.

Makalenin İngilizcesi aşağıdaki gibidir: 196507
Kullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.
Özet
Bu makale AddressEntry nesnesinin PR_EMS_AB_PROXY_ADDRESSES alana erişmek nasıl oluşturulduğunu gösteren bir birlikte çalışma veri nesneleri (1.x) kod örnek içerir. Bu özellik, yabancı Sistem e-posta adresleri (diğer e-posta adresleri) içerir.
Daha fazla bilgi
Yabancı sistem Microsoft Outlook aracılığıyla e-posta adresleri (diğer e-mailaddresses) listesini aşağıda görebilirsiniz:
  1. Outlook standart araç çubuğundan, Adres defterinitıklatın.
  2. Bir Exchange Genel adres listesi adını sağ tıklatın ve Özellikler' i tıklatın.
  3. E-posta adresleri sekmesini tıklatın.
Microsoft Exchange Server adresleri aşağıdaki türlerini destekler:
  • Exchange
  • Microsoft Mail
  • MacMail
  • X.400
  • İnternet
  • Lotus cc: Mail
  • Özel
Microsoft Exchange Server'daki her alıcı bir veya daha fazla adres thesetypes olabilir. Address özelliği, AddressEntry nesne eşleşmenin Exchange (EX) varsayılan e-posta adresini yazın. Otheraddresses almak için PR_EMS_AB_PROXY_ADDRESSES özelliğini kullanabilirsiniz.

Tüm adres defteri sağlayıcısı PR_EMS_AB_PROXY_ADDRESSESözelliğini destekler. Alsopresent theExchange GAL ' Kopyalanan Kişisel Adres Defteri'nin (PAB) girdileri olan ve Exchange Genel adres listesi (GAL) yapar. Outlook kişi klasörü bu özelliği desteklemez.

Aşağıdaki Visual Basic kodunu CDO (1.x)PR_EMS_AB_PROXY_ADDRESSES özelliğine erişmek için kullanır:

Örnek kod

   ' 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

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 196507 - Son İnceleme: 10/11/2015 09:29:00 - Düzeltme: 4.0

  • kbFAQ kbhowto kbmsg kbmt KB196507 KbMttr
Geri bildirim