Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.