VBOffice

Creating Nested Distribution Lists

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

Last modified: 2008/01/08 | Accessed: 47.950  | #61
◀ Previous sample Next sample ▶
SAM SAM
Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.

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"
    DL.Save
    DL.Display
  End If
End Sub
ReplyAll ReplyAll
ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.
email  Send a message