आप दृष्टिकोण में 'टू' फ़ील्ड से ईमेल पते कैसे निकालते हैं?

Question

मैं कुछ हद तक VBA का उपयोग कर दिया गया है, इस कोड का उपयोग:

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 

हालांकि इस "something@this.domain" के साथ ईमेल पते के नाम और नहीं वास्तविक ईमेल पते के रूप में उत्पादन देता है।

वहाँ mailobject कि ईमेल पते और नहीं नाम 'To' पाठ बॉक्स से लिखा जा करने की अनुमति देगा का एक attributte है।

धन्यवाद

Answer 1

बाहर अपने मेल आइटम के लिए प्राप्तकर्ता संग्रह वस्तु है, जो आपको पता पाने के लिए अनुमति चाहिए जांच: http://msdn.microsoft.com/en-us/library/office/ff868695.aspx

---

अद्यतन 8/10/2017

खोज रहे हैं इस जवाब पर वापस, मुझे एहसास हुआ कि मैंने कहीं और लिंक करके और कुछ और जानकारी प्रदान करके एक बुरी चीज की है।

यहाँ, इसके बाद के संस्करण है कि MSDN लिंक से एक कोड का टुकड़ा है दिखा वस्तु कैसे प्राप्तकर्ता एक ईमेल पता (स्निपेट VBA में है) प्राप्त करने के लिए इस्तेमाल किया जा सकता:

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