Die Gewährleistung der Kontakte in einer Verteilerliste wird sowohl mit Namen und E-Mail-Adresse angezeigt

Question

Wie kann ich die Kontakte sicherzustellen, dass ich in eine Outlook-Verteilerliste hinzufügen, werden sowohl mit Namen und E-Mail-Adresse angezeigt? Diese Kontakte können keine anderen Adressbuch existieren in, sondern nur die Verteilerliste. Derzeit zeigen sie nur als eine E-Mail-Adresse eines (in beiden Spalten).

alt text http://img52.imageshack.us/img52/1804/tempgg .jpg

Hier ist etwa die VBA wir verwenden:

    Do Until RS.EOF

        //here's where we want to inject RS!FirstName, RS!Surname etc
        objRecipients.Add RS!Email
        objRecipients.Resolve

        RS.MoveNext
    Loop


    Set objDistList = contactsFolder.Items.Add("IPM.DistList")
    objDistList.DLName = "Whatever"

    objDistList.AddMembers objRecipients
    objDistList.Save

    etc

Answer 1

Dank Dick Kusleika für seine Antwort aber Graeme Antwort hier gab mir eine Idee könnte es einen einfacheren Weg geben.

Und das ist nur zu Verwendung spitzer Klammern in dem Eintrag in die Verteilerliste. Wie in "Ringo Starr<rstarr@example.com>"

Welche ganz gut funktioniert.

So mein ursprüngliches Beispiel würde wie folgt aussehen:

objRecipients.Add RS!FullName & "<" & RS!Email & ">"

Answer 2

Ich glaube, Sie einen ContactItem für jeden Empfänger erstellen, so dass Sie den Namen definieren. Hier ein Beispiel:

Sub testdistlist()

    Dim oRecips As Recipients
    Dim ciDist As DistListItem
    Dim ci As ContactItem
    Dim mi As MailItem

    Set mi = Application.CreateItem(olMailItem)
    Set oRecips = mi.Recipients

    Set ciDist = Application.CreateItem(olDistributionListItem)

    'replace this with your recordset loop
    Set ci = Application.CreateItem(olContactItem)
    ci.FirstName = "John"
    ci.LastName = "Lennon"
    ci.Email1Address = "jlennon@example.com"
    ci.Save

    oRecips.Add ci.FullName

    Set ci = Application.CreateItem(olContactItem)
    ci.FirstName = "Ringo"
    ci.LastName = "Starr"
    ci.Email1Address = "rstarr@example.com"
    ci.Save

    oRecips.Add ci.FullName
    'end replace

    ciDist.AddMembers oRecips

    ciDist.Save
    ciDist.Display
    mi.Close olDiscard

End Sub