E-posta adreslerini görünümde 'To' alanından nasıl çıkarırsınız?

Question

Bu kodu kullanarak, bir dereceye kadar VBA kullanarak edilmiştir:

Sub ExtractEmail() 
Dim OlApp As Outlook.Application 
Dim Mailobject As Object 
Dim Email As String 
Dim NS As NameSpace 
Dim Folder As MAPIFolder 
Set OlApp = CreateObject("Outlook.Application") 
' Setup Namespace 
Set NS = ThisOutlookSession.Session 
' Display select folder dialog 
Set Folder = NS.PickFolder 
' Create Text File 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set a = fs.CreateTextFile("c:\mydocuments\emailss.txt", True) 
' loop to read email address from mail items. 
For Each Mailobject In Folder.Items 
    Email = Mailobject.To 
    a.WriteLine (Email) 
Next 
Set OlApp = Nothing 
Set Mailobject = Nothing 
a.Close 
End Sub 

Ancak bu "something@this.domain" ile e-posta adresleri isimlerinin değil, gerçek e-posta adresi olarak çıkış verir.

'To' Textbox yazılacak e-posta adreslerini ve isimlerini sağlayacak mailobject bir attributte var mıdır.

Teşekkür

sen adresini almak için izin vermelidir posta öğesi için Alıcılar koleksiyon nesnesi, dışarı

Answer 1

Kontrol: http://msdn.microsoft.com/en-us/library/office/ff868695.aspx

---

Güncelleme 8/10/2017

Looking Bu cevaba geri döndüğümde, sadece bir yerle bağlantı kurarak ve biraz daha fazla bilgi vermemekle kötü bir şey yaptığımı fark ettim.

Sub GetSMTPAddressForRecipients(mail As Outlook.MailItem) 
    Dim recips As Outlook.Recipients 
    Dim recip As Outlook.Recipient 
    Dim pa As Outlook.PropertyAccessor 
    Const PR_SMTP_ADDRESS As String = _ 
     "http://schemas.microsoft.com/mapi/proptag/0x39FE001E" 
    Set recips = mail.Recipients 
    For Each recip In recips 
     Set pa = recip.PropertyAccessor 
     Debug.Print recip.name &; " SMTP=" _ 
      &; pa.GetProperty(PR_SMTP_ADDRESS) 
    Next 
End Sub