How do I access custom fields in Outlook? 1

[RockSolid]

I am currently working on a project where I am using VB.NET to read records from a database and write them into a custom Contact form in Outlook. I am able to put information into the standard fields, but have not been able to connect to the custom fields in the form to write information in them. Does anyone have any ideas?

 

[vganeshbabu]

to get the value

contact.UserProperties.Find("Custom Field1&quot.Value

and to set the value

contact.UserProperties.Find("Custom Field1&quot.Value ="TEST"

(a Star will be good if it helps)

 

[RockSolid]

Thanks for your help. However, when I tried it, I got an error message "Object reference not set to an instance of an object", which pointed to the UserProperties line, and commenting it out, the code works fine. The following is part of my code.

Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objContactFolder As Outlook.MAPIFolder
Dim objContact As Outlook.ContactItem

objOutlook = CreateObject("Outlook.Application&quot
objNamespace = objOutlook.GetNamespace("MAPI&quot
objContactFolder = objNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)

Do Until datRead.Read = False
objContact = objOutlook.CreateItem(Outlook.OlItemType.olContactItem)
objContact.MessageClass = "IPM.Contact.MaM"
objContact.Title = datRead("Title&quot
objContact.LastName = datRead("Surname&quot
objContact.FirstName = datRead("FirstName&quot

objContact.UserProperties.Find("Salutation&quot.Value = datRead("Salutation&quot

objContact.Save()
Loop

I also tried the line:
objOutlook = New Outlook.Application()
instead of the line:
objOutlook = CreateObject("Outlook.Application&quot
but I got the same error message. This was also the result when I tried putting the New in the declaration.

Can you see what I'm missing?

 

[vganeshbabu]

thank u for the star..

Try this code..

Do Until datRead.Read = False
objContact = objContactFolder.Add("IPM.Contact.MaM&quot
objContact.Title = datRead("Title&quot
objContact.LastName = datRead("Surname&quot
objContact.FirstName = datRead("FirstName&quot

objContact.UserProperties("Salutation&quot.Value = datRead("Salutation&quot

objContact.Save()
Loop

(one more star if it helps)

 

[RockSolid]

Thanks, you're an absolute legend, and truly deserve another star!!

Initially, your suggestion didn't work, but it pointed me in the right direction. After I made the following changes, it worked like a charm.

objContact = objContactFolder.Items.Add("IPM.Contact.MaM&quot
objContact.UserProperties.Find("Salutation&quot.Value = datRead("Salutation&quot

Thanks again for your help.