Never mind. I'm stupid. I used the wrong Find value. So you have to use the
name of the custom field in the user defined field list, not the name it
acquires when it is placed on the form.

"John Lane" wrote:

Please see the code snippet below. I have tried the three variations of
UserProperties and it always comes up with "Object variable or With variable
not set". Could someone adivse on what the proper syntax is? Thanks.

Set olMAPI = GetObject("", "Outlook.Application").GetNamespace("MAPI")
Set curInbox = olMAPI.GetDefaultFolder(olFolderInbox)

For itmcnt = 1 To curInbox.Items.Count
strMessageClass = curInbox.Items(itmcnt).MessageClass
If strMessageClass = "IPM.Note" Then
Set oMailItem = curInbox.Items(itmcnt)
If oMailItem.subject = "TEST1" Then
MsgBox "Subject = " & oMailItem.subject
'strText = oMailItem.UserProperties.Find("TextBox1").Value
'strText = oMailItem.UserProperties("TextBox1").Value
Set myTextBox = oMailItem.UserProperties("TextBox1")
MsgBox "myTextBox Object = " & myTextBox
strText = myTextBox.Value
MsgBox "TextBox1 = " & strText
End If
End If
Next