CompanyName = "..."のような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'"