Vérification de l'affichage des contacts dans une liste de distribution avec nom et adresse électronique

Question

Comment puis-je m'assurer que les contacts que j'ajoute à une liste de distribution Outlook sont affichés avec le nom et l'adresse électronique? Ces contacts peuvent n'exister dans aucun autre carnet d'adresses, seulement la liste de distribution. Actuellement, ils apparaissent juste comme une adresse e-mail (dans les deux colonnes).

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

est ici à peu près la VBA nous utilisons:

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

Merci à Dick Kusleika pour sa réponse, mais Graeme's answer here m'a donné une idée qu'il pourrait y avoir un moyen plus facile.

Et c'est juste pour utiliser des crochets dans l'entrée de la liste de distribution. Comme dans "Ringo Starr<rstarr@example.com>"

Qui fonctionne très bien.

donc mon exemple original ressemblerait à ceci:

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

Answer 2

Je pense que vous devez créer un ContactItem pour chaque destinataire afin que vous puissiez définir le nom. Voici un exemple:

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