Verschachtelte Verteilerlisten erstellen

Einer Verteilerliste können nicht direkt weitere Verteilerlisten hinzugefügt werden. Um verschachtelte Verteilerlisten zu erstellen, ist ein Umweg über eine E-Mail nötig: Im Beispiel wird einer E-Mail eine existierende Verteilerliste (aktuelle Auswahl im Ordner) als Empfänger hinzugefügt. Anschließend kann die Verteilerliste über die Recipients-Collection der E-Mail wieder ausgelesen und einer zweiten Verteilerliste als Empfänger hinzugefügt werden.

  So fügen Sie Makros in Outlook ein

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