Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Outlook and VBA (http://www.outlookbanter.com/outlook-vba/)
-   -   Creating a nested distribution list using vba (http://www.outlookbanter.com/outlook-vba/30165-creating-nested-distribution-list-using.html)

Hal October 16th 06 10:43 PM

Creating a nested distribution list using vba
 
Does any one have sample code on how to create a nest DL using VBA code ?



Michael Bauer [MVP - Outlook] October 17th 06 06:44 AM

Creating a nested distribution list using vba
 
Am Mon, 16 Oct 2006 13:43:01 -0700 schrieb Hal:

What is a "nested" list?

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


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


Hal October 17th 06 02:50 PM

Creating a nested distribution list using vba
 
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]" wrote:

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

What is a "nested" list?

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


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



Michael Bauer [MVP - Outlook] October 18th 06 07:07 AM

Creating a nested distribution list using vba
 
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

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


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]" wrote:

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

What is a "nested" list?

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


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

?



All times are GMT +1. The time now is 10:27 PM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com