Re: UserProperties for New Items

Did you forget ".Add"?

Set objUserProperty = objAppointmentItem.UserProperties.Add("Job Number",
olText)
objUserProperty.Value = Worksheets("upload").Range("B" & intRow).Value

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"dch3" <dch3@discussions.microsoft.com> wrote in message
news:667CEEA0-D5E0-49A0-BE1B-D02B88EE12A9@microsoft.com...
> I'm trying to assign a name to a new user property, however VBA is saying
> that the property is read-only. Help?
>
> Dim objUserProperty As Outlook.UserProperty
>
> Set objUserProperty = objAppointmentItem.UserProperties
> objUserProperty.Name = "Job Number"
> objUserProperty.Type = olText
> objUserProperty.Value = Worksheets("upload").Range("B" & intRow).Value
>
> (...there's nothing like IT rebuilding your laptop and not mentioning that
> not all of the folders on the laptop will be backuped first)