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?

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

A GAL entry is not a contact but it is an AddressEntry among the
AddressEntries collection of the GAL AddressList. Unfortunately Department
is not exposed to the Outlook object model for AddressEntry objects. You
would have to use a different API such as CDO 1.21 (optional installation
for Outlook 2000 and later) or Extended MAPI (C++ or Delphi only) or
Redemption (3rd party library at www.dimastr.com/redemption).

The property tag you would use for Department in one of those other API's is
PR_DEPARTMENT_NAME (0x3A18001E).

You can see examples of CDO 1.21 code at http://www.cdolive.com/cdo5.htm

--
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


"SixSigmaGuy" wrote in message
...
Hi,

When I'm using Outlook and double click on a resolved name in the address
field of an email, a dialog box opens showing several properties of that
entry. One of the properties is "Department". I'm trying to write code
that
will retrieve the "Department" name for entries in the GAL, but I can't
figure out how to do it? Can anyone tell me how to get the "Department"
name
for an entry?

I see how to get it for a contact in the contacts folder, but not for the
GAL.

Thanks,

Rick

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?

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?

Sure, do all your coding with Extended MAPI (C++ or Delphi only) and you
don't need any other API's. Other than that you would need CDO, which can be
installed from the Office CD's, or Redemption or some other MAPI wrapper, or
you can use Outlook 2007's PropertyAccessor object.

--
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
...
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.

Okay, Thank you Ken for all your help on this.

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

Sure, do all your coding with Extended MAPI (C++ or Delphi only) and you
don't need any other API's. Other than that you would need CDO, which can be
installed from the Office CD's, or Redemption or some other MAPI wrapper, or
you can use Outlook 2007's PropertyAccessor object.

--
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
...
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.