如何确保我添加到 Outlook 通讯组列表的联系人同时显示姓名和电子邮件地址?这些联系人可能不存在于任何其他通讯簿中,仅存在于通讯组列表中。目前,它们仅显示为电子邮件地址(在两列中)。
替代文字 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