메일 그룹의 연락처가 이름과 전자 메일 주소로 모두 표시됨

Question

Outlook 메일 그룹에 추가하는 연락처에 이름과 전자 메일 주소가 모두 표시되도록하려면 어떻게합니까? 이러한 연락처는 다른 주소록, 메일 그룹에만 존재하지 않을 수 있습니다. 현재 그들은 전자 메일 주소 (두 열 모두)로 표시됩니다.

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

여기에 우리가 사용하는 거의 VBA의 :

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

감사하지만 Graeme's answer here는 쉬운 방법이있을 수 있습니다 나에게 아이디어를 준 : 다음은 그 예입니다.

그리고 메일 그룹의 항목에 꺾쇠 괄호를 사용하기 만하면됩니다. 예 : "Ringo Starr<rstarr@example.com>"

잘 작동합니다.

그래서 내 원래의 예는 다음과 같습니다

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

Answer 2

난 당신이 이름을 정의 할 수 있도록 각받는 사람에 대한 ContactItem을 만들어야합니다 생각합니다. 그의 대답에 대한 딕 Kusleika에

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