筛选 Outlook 联系人，其中公司名称 = "..."

Question

我开始编写代码，但我不知道我需要在变量 objContact 中写什么来选择文件夹中的项目联系人。

我试过了：

sFilter = "[CompanyName= 'BEIS'"
Set objContact = objContactsFolder.Items.Find(sFilter)
objContact.Delete

目前我的代码看起来像这样：

Sub ChangeCompanyName()
     Dim objContactsFolder 'As Outlook.MAPIFolder
     Dim objContacts 'As Outlook.Items
     Dim strCo 'As String
     Dim objContact 'As Object
     Dim iCount 'As Integer
   ' Set
     Set objOutlook = CreateObject("Outlook.Application")
     Set objNameS = objOutlook.GetNamespace("MAPI")
     Set objContactsFolder = objNameS.GetDefaultFolder(olContactItem)
     Set objContacts = objContactsFolder.Items
   ' Delete Contact if company names = strCo
     strCo = "BEIS"
     Set objContact = ???
     For Each objContact In objContacts
       If TypeName(objContact) = "ContactItem" Then
         If objContact.CompanyName = strCo Then
            objContact.Delete
         End If
       End If
     Next
   ' Clean up
     Set objContact = Nothing
     Set objContacts = Nothing
     Set objContactsFolder = Nothing
End Sub

Answer 1

您的过滤器错误。您缺少"]"：

sFilter = "[CompanyName] = 'BEIS'"