M
McKilty
I'm trying to update a routine that will update out Outlook Recipients
lists with an employee database. I've added a custom field to the
contacts called EMPID. What I would like to do is search the contacts
for a specific Employee ID (EMPID) and then update it with the
information from the database.
I'm unable to search on this field apparently:
Error: -659423223
The property "EMPID" is unknown.
Dim myFolder As Outlook.MAPIFolder
Dim myNameSpace As Outlook.NameSpace
Dim myOutlook As Outlook.Application
Dim myPublicContact As Outlook.ContactItem
Set myOutlook = CreateObject("Outlook.Application." & Val(Left
(Outlook.Version, 2)))
Set myNameSpace = myOutlook.GetNamespace("MAPI")
myNameSpace.Logon
Set myFolder = myNameSpace.Folders("Public Folders").Folders("All
Public Folders").Folders("Contacts").Folders("Recipients List")
Set myPublicContact = myFolder.Items.Find("[EMPID] = ""472""")
lists with an employee database. I've added a custom field to the
contacts called EMPID. What I would like to do is search the contacts
for a specific Employee ID (EMPID) and then update it with the
information from the database.
I'm unable to search on this field apparently:
Error: -659423223
The property "EMPID" is unknown.
Dim myFolder As Outlook.MAPIFolder
Dim myNameSpace As Outlook.NameSpace
Dim myOutlook As Outlook.Application
Dim myPublicContact As Outlook.ContactItem
Set myOutlook = CreateObject("Outlook.Application." & Val(Left
(Outlook.Version, 2)))
Set myNameSpace = myOutlook.GetNamespace("MAPI")
myNameSpace.Logon
Set myFolder = myNameSpace.Folders("Public Folders").Folders("All
Public Folders").Folders("Contacts").Folders("Recipients List")
Set myPublicContact = myFolder.Items.Find("[EMPID] = ""472""")