>> User name

  • Thread starter Thread starter Jonathan Parminter
  • Start date Start date
J

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
 
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
Click to expand...
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,
Click to expand...
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"
Click to expand...
Then 'GET THE ADDRESS LIST YOU NEED
 
Back
Top