The question would be is there a way to do this with out using CDO or
redemption? I work out of a big time corporation and they do not allow add-in
installs on the machines and we are looking at over 1000 people or machines
this would have to be installed even if they did approve it.

"Ken Slovak - [MVP - Outlook]" wrote:

The property for an AddressEntry object for Title is the property PR_TITLE
(0x3A17001E). Look at www.cdolive.com/cdo10.htm for a list of various
undocumented property tags.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Kryer" wrote in message
...
Ken or Michael -
Along with the AddressEntries collections is the Title exposed to the
Outlook object Model. I am trying to write some VBS for a custom form. On
the
form I have a custom text box and I want to say on open of this custom
form
that if you title is not equal to Collections Supervisor that the text box
becomes locked or invisible.

The current code I have now is
Function Item_Open()
if ??????? "Collections Supervisor" then
Item.GetInspector.ModifiedFormPages("Message").Tex tBox4.Visible = False
End if
End Function

?????? would be the code for where I would find the address book entry:
Title.

Is this possible?