Outlook 2010 Marco Empfängermailadresse(n) auslesen - nicht Anzeigename

For each rec in m.Recipients
    Msgbox rec.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x39FE001E")  
Next

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim m As MailItem, varEntryIDs As Variant, i As Integer, objItem As Object, regex As Object, headers As String
    Set regex = CreateObject("vbscript.regexp")  
    regex.IgnoreCase = True: regex.Global = True: regex.MultiLine = True
    regex.Pattern = "^To:(.*)"  

    varEntryIDs = Split(EntryIDCollection, ",")  
    For i = 0 To UBound(varEntryIDs)
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
        If objItem.Class = olMail Then
            Set m = objItem
            headers = m.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")  
            Set to_matches = regex.Execute(headers)
            If to_matches.Count > 0 Then
                regex.Pattern = "[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}"  
                Set to_mails = regex.Execute(to_matches(0).submatches(0))
                If to_mails.Count > 0 Then
                    For Each mail In to_mails
                        MsgBox mail
                    Next
                End If
            End If
        End If
    Next
End Sub

^To:([\s\S]*)^Subject