Creating a nested distribution list using vba

[Guest]

Does any one have sample code on how to create a nest DL using VBA code ?

 

[Michael Bauer [MVP - Outlook]]

Am Mon, 16 Oct 2006 13:43:01 -0700 schrieb Hal:

What is a "nested" list?

 

[Guest]

Michael

Since DLs have a limit of 160 members or so when the user is on Exchange,
the way around this problem is to create a DL within a DL.. This is also none
as a nested DL.

 

[Michael Bauer [MVP - Outlook]]

Am Tue, 17 Oct 2006 05:50:02 -0700 schrieb Hal:

Thanks Hal, my dictionary doesn´t know that word.

Here´s a sample of how to do that, however I´m not sure if you really can
reliably workaround the limit:

Public Sub CreateNestedDL()
Dim DL As Outlook.DistListItem
Dim Mail As Outlook.MailItem

' Assuming there´s a DL selected:
Set DL = Application.ActiveExplorer.Selection(1)
Set Mail = Application.CreateItem(olMailItem)

' The DL´s name must be unique so that it resolves:
Mail.Recipients.Add DL.DLName
Debug.Print Mail.Recipients.ResolveAll

Set DL = Application.CreateItem(olDistributionListItem)
DL.AddMembers Mail.Recipients
DL.DLName = "test nest"
DL.Save
DL.Display
End Sub