Distribution List (Outlook 2000)

Topic

New Reply

Hi all,

I have a regular meeting invitation that is being sent to a global distribution list. I can envision that by the third week, people will be well and truly sick of getting this invitation and declining it.

Is there a way of specifically excluding people from this list?

I thought of 2 alternatives, namely:

1. select the global distribution list along with another (manually created or contact) list of people to exclude (is this possible?)
2. use my own copy of the global distribution list and delete people who don’t want to get the subsequent invites (how do I copy a global distribution list to my own contact folder? – VBA? if so, how do I reference the global distribution list?)

Is there a third (or fourth) method? Any help would be greatly appreciated.

Reply | Quote

Replies

When you make your own DL and are at the point where you are selecting members from the GAL you can Shift+Click to select a whole range of accounts, then just click the add button. In my experience, there is an advantage to selecting members from the GAL in that the update seems to work more reliably.

I kind of recall reading that there is a limit to how many members can be in a personal DL, but I can’t recall for sure, or what the number was. Something to think about…

Reply | Quote

Did it. I ended up using VBA to create a replica of the global distribution group in my own contact folder. I used the following code

Private Sub mCCopyGlobalDistList()
Dim lvOLApp As ThisOutlookSession
Dim lvNameSpace As NameSpace
Dim lvGAddressList As AddressList
Dim lvGEntries As AddressEntries
Dim lvGEntry As AddressEntry
Dim lvMember As AddressEntry
Dim lvPDistList As DistListItem

Set lvOLApp = CreateObject(“Outlook.Application”)
Set lvNameSpace = lvOLApp.GetNamespace(“MAPI”)
Set lvGAddressList = lvNameSpace.AddressLists(“Global Address List”)
Set lvGEntries = lvGAddressList.AddressEntries
Set lvGEntry = lvGEntries(“Name of Global List Here”)

Set lvPDistList = lvOLApp.CreateItem(olDistributionListItem)
lvPDistList.Subject = “Your Version Name Here”

For Each lvMember In lvGEntry.Members
Set myTempItem = lvOLApp.CreateItem(olMailItem)
Set myRecipients = myTempItem.Recipients
myRecipients.Add lvMember
lvPDistList.AddMembers myRecipients
Next

lvPDistList.Save

Set myRecipients = Nothing
Set myTempItem = Nothing
Set lvPDistList = Nothing
Set lvGEntry = Nothing
Set lvGEntries = Nothing
Set lvGAddressList = Nothing
Set lvNameSpace = Nothing
Set lvOLApp = Nothing
End Sub

Reply | Quote