Làm thế nào để bạn trích xuất địa chỉ email từ trường 'Tới' trong triển vọng?

Question

tôi đã được sử dụng VBA để một mức độ nào, sử dụng mã này:

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 

Tuy nhiên điều này sẽ cho đầu ra như tên của các địa chỉ email và không phải là địa chỉ email thực tế với "something@this.domain".

Có một người hướng dẫn thư bưu điện cho phép địa chỉ email không phải tên được viết từ hộp văn bản 'To'.

Cảm ơn

Answer 1

Kiểm tra các nhận bộ sưu tập tượng cho mục mail của bạn, mà nên cho phép bạn để có được địa chỉ: http://msdn.microsoft.com/en-us/library/office/ff868695.aspx

---

Cập nhật 8/10/2017

Nhìn trở lại câu trả lời này, tôi nhận ra tôi đã làm một điều xấu bằng cách chỉ liên kết một nơi nào đó và không cung cấp thêm một chút thông tin.

Dưới đây là một đoạn mã từ trang liên kết MSDN trên, cho thấy cách nhận đối tượng có thể được sử dụng để có được một địa chỉ email (đoạn là trong 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