Hassle-free live chat software re-imagined for business growth. 2 users, always free.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!