Beliebig viele Unterordner erstellen

Das Beispiel erstellt vier Unterordner im aktuellen Ordner. Die Liste können Sie beliebig erweitern. Im ersten Array-Argument steht der Ordnername in Anführungszeichen, im zweiten steht der Ordnertyp.

Wenn Sie abschließend nicht alle Ordnertypen sehen können, drücken Sie STRG+6, um die Ordnerliste anzuzeigen. Aufrufen können Sie das Makro z.B. über ALT+F8.

  So fügen Sie Makros in Outlook ein

Public Sub CreateSubfolders()
  Dim CurrentFolder As Outlook.MAPIFolder
  Dim Subfolder As Outlook.MAPIFolder
  Dim List As New VBA.Collection
  Dim Folders As Outlook.Folders
  Dim Item As Variant
  
  List.Add Array("Nachrichten", olFolderInbox)
  List.Add Array("Termine", olFolderCalendar)
  List.Add Array("Team", olFolderContacts)
  List.Add Array("ToDo", olFolderTasks)
  
  Set CurrentFolder = Application.ActiveExplorer.CurrentFolder
  Set Folders = CurrentFolder.Folders
  For Each Item In List
    Folders.Add Item(0), Item(1)
  Next
End Sub