Creating Nested Distribution Lists

Nested distlists allow to combine groups of contacts to another group.

Last modified: 2008/01/08 | Accessed: 45.928  | #61
◀ Previous sample Next sample ▶
ReplyAll ReplyAll
ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.

You cannot directly add a distribution list to another one. So a detour via a MailItem is necessary: We add an existing distribution list (current folder selection in this sample) as a recipient to an e-mail. Then we can get the list back via the MailItem's Recipients collection and add that one to a second distribution list.

tip  How to add macros to Outlook
Public Sub CreateNestedDL()
  Dim DL As Outlook.DistListItem
  Dim Mail As Outlook.MailItem

  Set DL = Application.ActiveExplorer.Selection(1)

  Set Mail = Application.CreateItem(olMailItem)
  Mail.Recipients.Add DL.DLName

  If Mail.Recipients.ResolveAll Then
    Set DL = Application.CreateItem(olDistributionListItem)
    DL.AddMembers Mail.Recipients
    DL.DLName = "test item"
  End If
End Sub
Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.
email  Send a message