MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|Adding second domain to Autodiscover - Exchange 2010||26||68|
|Interpreting a header of junk mail||8||124|
|Outlook calendar not showing up in google calendar||1||15|
|How can I mark Outlook e-mail as read with one mouse click, and reading pane is off?||9||8|