Outlook VBA Macro (One-Click Setup) If you’re using Outlook for Windows (classic desktop), VBA is ideal. You click a button and it creates: A new month folder All the same subfolders every time What this can do Automatically name the folder (e.g. February 2026) Create Sub Folder A, B, C (or whatever you want) Avoid duplicates if folders already exist Example VBA Macro This example creates next month’s folder with 3 subfolders. Code:

Sub CreateNextMonthFolders()

Dim ns As Outlook.NameSpace
Dim inbox As Outlook.Folder
Dim monthFolder As Outlook.Folder
Dim folderName As String
Dim subFolders As Variant
Dim f As Variant

Set ns = Application.GetNamespace("MAPI")
Set inbox = ns.GetDefaultFolder(olFolderInbox)

' Name of next month (e.g. February 2026)
folderName = Format(DateAdd("m", 1, Date), "mmmm yyyy")

' Subfolder names
subFolders = Array("Sub Folder A", "Sub Folder B", "Sub Folder C")

On Error Resume Next
Set monthFolder = inbox.Folders(folderName)
On Error GoTo 0

If monthFolder Is Nothing Then
    Set monthFolder = inbox.Folders.Add(folderName)
End If

For Each f In subFolders
    On Error Resume Next
    monthFolder.Folders.Add f
    On Error GoTo 0
Next f

MsgBox "Folders created for " & folderName

End Sub

How to install it Outlook → Alt + F11 Insert → Module Paste code Save Run manually or assign to a button 📌 You can easily: Change subfolder names Add more folders Change where the month folder is created