>> User name

[Jonathan Parminter]

Hi, I have a public calendar folder using custom
appointment items.

I am looking for a method using vb script that allows me
to determine whether the user of an appointment item is a
member of an Exchange distribution group (Global Address
List). I can then change the item from read/write to read
only.

Any ideas or suggestions appreciated

Thanks
Jonathan

 

[Jonathan Parminter]

Thanks Eric,
Sorry to take so long to respond... I've been taking
advantage of fresh snow to indulge in a bit of skiing so
haven't been checking this newsgroup since you posted a
reply.

Cheers
Jonathan

-----Original Message-----
Take a look at the macro below. You'll have to add some

logic to find the desired Distribution List. Then,
navigate through the Members collection to look for a
specific person. You'll probably need to match the value
of the AppointmentItem.Organizer property with
AddressEntry.Name.

Sub GetGAL()
Dim objAddLists As Outlook.AddressLists, objAddList As Outlook.AddressList
Dim objAddresses As Outlook.AddressEntries,

objAddress As Outlook.AddressEntry

Dim objAddress2 As Outlook.AddressEntry
Dim objNS As Outlook.namespace

Set objNS = Application.GetNamespace("MAPI")
Set objAddLists = objNS.AddressLists

For Each objAddList In objAddLists
If objAddList.Name = "Global Address List"

Then 'GET THE ADDRESS LIST YOU NEED