I can't figure out what I'm doing wrong. I can't find anything by Googling. Is this a black art or something?
Dim objNS As Outlook.NameSpace Dim objContactsFldr As Outlook.Folder Dim objContactItems As Outlook.Items Dim objContact As Outlook.ContactItem Set objNS = Application.GetNamespace("MAPI") Set objContactsFldr = objNS.GetDefaultFolder(olFolderContacts) Set objContactItems = objContactsFldr.Items.Restrict("[MessageClass = 'IPM.Contact.LeadGen1_1'") 'This reads perfectly Debug.Print objContact.UserProperties.Find("CallTask1").Value 'But this fails with Error 242 - Object required ... Set objContact.UserProperties.Find("CallTask1").Value = True
From novice to tech pro — start learning today.