确保通讯组列表中的联系人同时显示姓名和电子邮件地址

Question

如何确保添加到 Outlook 通讯组列表的联系人同时显示姓名和电子邮件地址？这些联系人可能不存在于任何其他地址簿中，仅存在于通讯组列表中。目前，它们仅显示为电子邮件地址（在两列中）。

替代文本 http://img52.imageshack.us/img52/1804/tempgg.jpg< /a>

我们使用的 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

我认为您必须为每个收件人创建一个 ContactItem，以便您可以定义名称。这是一个例子：

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 = "[email protected]"
    ci.Save

    oRecips.Add ci.FullName

    Set ci = Application.CreateItem(olContactItem)
    ci.FirstName = "Ringo"
    ci.LastName = "Starr"
    ci.Email1Address = "[email protected]"
    ci.Save

    oRecips.Add ci.FullName
    'end replace

    ciDist.AddMembers oRecips

    ciDist.Save
    ciDist.Display
    mi.Close olDiscard

End Sub

Answer 2

感谢 Dick Kusleika 的回答，但 Graeme 的回答给出了我的想法可能有一种更简单的方法。

这只是在通讯组列表的条目中使用尖括号。如 “Ringo Starr[电子邮件受保护]>"

效果很好。

所以我原来的例子看起来像这样：

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