How to add a user defined field to Redemption RDOContactItem object?

Hi there. I've changed my code that talks to Outlook to use the
Redemption RDO objects instead. When I create a new contact I need to
define some user defined fields for each contact. Using the Outlook
objects I could do this:

Dim oUP As Outlook.UserProperty
Dim oContact As Outlook.ContactItem

With oContact
' set values for standard properties
' Now add my user defined fields
oUP = .UserProperties.Add("Area",
Outlook.OlUserPropertyType.olText)
oUP.Value =
dtRow.Item(objContact.GetOrdinalCustom("Area")).ToString
oUP = .UserProperties.Add("Company - Yes/No",
Outlook.OlUserPropertyType.olText)
oUP.Value = dtRow.Item(objContact.GetOrdinalCustom("CompanyY/N"))

.Save
End With

Changing my code to use the Redemption.RDOContactItem object, I no
longer get access to the UserProperties collection. I've googled much
and so far haven't found a way to do this. Can anyone help me out
with this?

If you want to add actual UserProperties use the Outlook object model for
that. After the properties are added to the items you can then use RDO.

If you then want to access the UserProperties from RDO you can do so using
the Fields collection of the item and using the UserProperty name with
PS_PUBLIC_STRINGS and the type of UserProperty.

For example:

Const PS_PUBLIC_STRINGS = "{00062008-0000-0000-C000-000000000046}"
Const PT_LONG = &H3 ' example using a Long property (32 bit signed
integer)
Const PROP_NAME = "MyUserProperty"

' the RDO item is rdoItem

Dim tag As Long

tag = rdoItem.GetIDsFromNames(PS_PUBLIC_STRINGS, PROP_NAME)
tag = tag Or PT_LONG

You can then use tag with the Fields collection to access your UserProperty.

All UserProperties are created in the PS_PUBLIC_STRINGS namespace. However
the UserProperties collection also sets other properties in the folder when
a UserProperty is created, so using RDO to create a property in
PS_PUBLIC_STRINGS isn't enough to make that property a UserProperty for
Outlook.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"CataGeek" <kris@dyke.geek.nz> wrote in message
news:44c77204-4b26-4d56-b8ac-d11e9a3ef00c@d77g2000hsb.googlegroups.com...
> Hi there. I've changed my code that talks to Outlook to use the
> Redemption RDO objects instead. When I create a new contact I need to
> define some user defined fields for each contact. Using the Outlook
> objects I could do this:
>
> Dim oUP As Outlook.UserProperty
> Dim oContact As Outlook.ContactItem
>
> With oContact
> ' set values for standard properties
> ' Now add my user defined fields
> oUP = .UserProperties.Add("Area",
> Outlook.OlUserPropertyType.olText)
> oUP.Value =
> dtRow.Item(objContact.GetOrdinalCustom("Area")).ToString
> oUP = .UserProperties.Add("Company - Yes/No",
> Outlook.OlUserPropertyType.olText)
> oUP.Value = dtRow.Item(objContact.GetOrdinalCustom("CompanyY/N"))
>
> .Save
> End With
>
> Changing my code to use the Redemption.RDOContactItem object, I no
> longer get access to the UserProperties collection. I've googled much
> and so far haven't found a way to do this. Can anyone help me out
> with this?

On Jul 10, 1:45*am, "Ken Slovak - [MVP - Outlook]"
<kenslo...@mvps.org> wrote:
> If you want to add actual UserProperties use the Outlook object model for
> that. After the properties are added to the items you can then use RDO.
>
> If you then want to access the UserProperties from RDO you can do so using
> the Fields collection of the item and using the UserProperty name with
> PS_PUBLIC_STRINGS and the type of UserProperty.
>
> For example:
>
> Const PS_PUBLIC_STRINGS = "{00062008-0000-0000-C000-000000000046}"
> Const PT_LONG = &H3 * *' example using a Long property (32 bit signed
> integer)
> Const PROP_NAME = "MyUserProperty"
>
> ' the RDO item is rdoItem
>
> Dim tag As Long
>
> tag = rdoItem.GetIDsFromNames(PS_PUBLIC_STRINGS, PROP_NAME)
> tag = tag Or PT_LONG
>
> You can then use tag with the Fields collection to access your UserProperty.
>
> All UserProperties are created in the PS_PUBLIC_STRINGS namespace. However
> the UserProperties collection also sets other properties in the folder when
> a UserProperty is created, so using RDO to create a property in
> PS_PUBLIC_STRINGS isn't enough to make that property a UserProperty for
> Outlook.
>
> --
> Ken Slovak
> [MVP - Outlook]http://www.slovaktech.com
> Author: Professional Programming Outlook 2007.
> Reminder Manager, Extended Reminders, Attachment Options.http://www.slovaktech.com/products.htm
>
> "CataGeek" <k...@dyke.geek.nz> wrote in message
>
> news:44c77204-4b26-4d56-b8ac-d11e9a3ef00c@d77g2000hsb.googlegroups.com...
>
> > Hi there. I've changed my code that talks to Outlook to use the
> > Redemption RDO objects instead. *When I create a new contact I need to
> > define some user defined fields for each contact. *Using the Outlook
> > objects I could do this:
>
> > Dim oUP As Outlook.UserProperty
> > Dim oContact As Outlook.ContactItem
>
> > With oContact
> > * ' set values for standard properties
> > * ' Now add my user defined fields
> > * *oUP = .UserProperties.Add("Area",
> > Outlook.OlUserPropertyType.olText)
> > * *oUP.Value =
> > dtRow.Item(objContact.GetOrdinalCustom("Area")).ToString
> > * *oUP = .UserProperties.Add("Company - Yes/No",
> > Outlook.OlUserPropertyType.olText)
> > * *oUP.Value = dtRow.Item(objContact.GetOrdinalCustom("CompanyY/N"))
>
> > * *.Save
> > End With
>
> > Changing my code to use the Redemption.RDOContactItem object, I no
> > longer get access to the UserProperties collection. *I've googled much
> > and so far haven't found a way to do this. *Can anyone help me out
> > with this?

Thanks for that Ken. I've been coming to the conclusion that I have to
use the Outlook objects rather than redemption to do this, and it's
great to get such a clear explaination. Much appreciated!

Next version of Redemption (4.6) will expose UserProperties collection on
all RDO items.
Keep in mind that a user property is nothing but a named property
(accessible through RDOMail.Fields[]), but Outlook alos expects user
property definition in yet another named property blob. UserProperties reads
and updates that blob.
Contact me at my private e-mail address if you want a beta version.
--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"CataGeek" <kris@dyke.geek.nz> wrote in message
news:6b5d0d73-abe4-41d7-ae5b-09c4eb65f55b@59g2000hsb.googlegroups.com...
On Jul 10, 1:45 am, "Ken Slovak - [MVP - Outlook]"
<kenslo...@mvps.org> wrote:
> If you want to add actual UserProperties use the Outlook object model for
> that. After the properties are added to the items you can then use RDO.
>
> If you then want to access the UserProperties from RDO you can do so using
> the Fields collection of the item and using the UserProperty name with
> PS_PUBLIC_STRINGS and the type of UserProperty.
>
> For example:
>
> Const PS_PUBLIC_STRINGS = "{00062008-0000-0000-C000-000000000046}"
> Const PT_LONG = &H3 ' example using a Long property (32 bit signed
> integer)
> Const PROP_NAME = "MyUserProperty"
>
> ' the RDO item is rdoItem
>
> Dim tag As Long
>
> tag = rdoItem.GetIDsFromNames(PS_PUBLIC_STRINGS, PROP_NAME)
> tag = tag Or PT_LONG
>
> You can then use tag with the Fields collection to access your
> UserProperty.
>
> All UserProperties are created in the PS_PUBLIC_STRINGS namespace. However
> the UserProperties collection also sets other properties in the folder
> when
> a UserProperty is created, so using RDO to create a property in
> PS_PUBLIC_STRINGS isn't enough to make that property a UserProperty for
> Outlook.
>
> --
> Ken Slovak
> [MVP - Outlook]http://www.slovaktech.com
> Author: Professional Programming Outlook 2007.
> Reminder Manager, Extended Reminders, Attachment
> Options.http://www.slovaktech.com/products.htm
>
> "CataGeek" <k...@dyke.geek.nz> wrote in message
>
> news:44c77204-4b26-4d56-b8ac-d11e9a3ef00c@d77g2000hsb.googlegroups.com...
>
> > Hi there. I've changed my code that talks to Outlook to use the
> > Redemption RDO objects instead. When I create a new contact I need to
> > define some user defined fields for each contact. Using the Outlook
> > objects I could do this:
>
> > Dim oUP As Outlook.UserProperty
> > Dim oContact As Outlook.ContactItem
>
> > With oContact
> > ' set values for standard properties
> > ' Now add my user defined fields
> > oUP = .UserProperties.Add("Area",
> > Outlook.OlUserPropertyType.olText)
> > oUP.Value =
> > dtRow.Item(objContact.GetOrdinalCustom("Area")).ToString
> > oUP = .UserProperties.Add("Company - Yes/No",
> > Outlook.OlUserPropertyType.olText)
> > oUP.Value = dtRow.Item(objContact.GetOrdinalCustom("CompanyY/N"))
>
> > .Save
> > End With
>
> > Changing my code to use the Redemption.RDOContactItem object, I no
> > longer get access to the UserProperties collection. I've googled much
> > and so far haven't found a way to do this. Can anyone help me out
> > with this?

Thanks for that Ken. I've been coming to the conclusion that I have to
use the Outlook objects rather than redemption to do this, and it's
great to get such a clear explaination. Much appreciated!