Custom Fields in Inbox

[J. Clay]

I have added two custom fields to my inbox. I have created a VBA form
w/code to assign values to these fields. The problem is that, the values
are not saved in the fields. I am currently not trying to show this
information on a form, just in the inbox window for each message that I
select. Can anyone suggest why this won't work? Below is the code I am
using.

'*** Code Start ***
Set objApp = CreateObject("Outlook.Application")
Set objSelection = objApp.ActiveExplorer.Selection

Select Case objSelection.Count
Case 0
MsgBox "No item is selected"
GoTo ExitSub
Case Is > 1
MsgBox "Only one (1) item may be processed at a time"
GoTo ExitSub
End Select

Set objSelItem = objSelection.Item(1)
With objSelItem
.UserProperties("LCPType") = cmbType.Value
.UserProperties("LCPKey") = txtDocID.Value
.Save
End With
'*** Code End ***

TIA,
Jim

 

[Michael Bauer]

Hi Jim,

are you sure that your fields exist already?

.UserProperties("LCPType") = cmbType.Value

Please check the error object after this line.

 

[J. Clay]

Michael,

I got this figured out. I needed to create the userproperties.

Jim