按名称获取联系人组（而不是检查olFolderContacts中的每个项目）

Question

我需要联系我的Outlook联系人小组。现在我必须浏览我的联系人中的所有项目：

Set ContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
Set contactItems = ContactsFolder.Items
iCount = contactItems.Count
For i = 1 To iCount
    Set thisItem = contactItems.Item(i)
    If TypeName(thisItem) = "DistListItem" And thisItem = "promo_spam" Then
     Set myDLGroup = thisItem
     Exit For
    End If
Next i

有没有更好的方法来获得它？我在考虑像ContactsFolder.Items.Find这样的东西，但找不到正确的方法来使用它......

Answer 1

您使用的代码通常用于列出组中的项目。

如果你已经知道这个名字：

Set myDLGroup = contactItems("promo_spam")