Sue, thanx for the response...
Set objFolder = GetFolder("Personal Folders\Contacts\Clients") 'This
walks the folder structure to return the proper folder
Set Contact = objFolder.Items.Add(olContactItem)
'cleanup
Set objFolder = Nothing
With Contact
.MessageClass = "IPM.Contact.NodalClient v2"
'Code to populate the rest
.Save
End with
Set objFolder = GetFolder("Personal Folders\Contacts\Clients")
Set Contact = objFolder.Items.Add("IPM.Contact.NodalClient v2")
'cleanup
Set objFolder = Nothing
Changing the line that adds the Contact type from an olContactItem and then
changing its messageclass property to a line that adds the contact of the
exact messageclass resolved the issue about not having access to the custom
properties...
--
Veign
Chris Hanscom
http://www.veign.com
Application Design Section
http://www.veign.com/information/application/info_app.html
------
To create a new instance of a custom form programmatically, use the Add
method on the target folder's Items collection. If it's a message form, you
can use the Drafts folder as the target. If the target is a default folder,
you can use the Namespace.GetDefaultFolder method to return it as a
MAPIFolder object. Otherwise, you can use the code at
http://www.slipstick.com/dev/code/getfolder.htm to walk the folder hierarchy
and return the MAPIFolder corresponding to a given path string.
--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at
http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers
http://www.slipstick.com/books/jumpstart.htm