We value your feedback.
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.
|Exchange/Outlook 2010 Calender conflict||6||46|
|Assign email Address to public folders from a distribution group Exchange 2010||19||51|
|Can we sort draft email files in Drafts box based on creating time in Outlook2010?||4||24|