Dim outlookApp As Object = CreateObject(“Outlook.Application”)
Dim ns As Object = outlookApp.GetNamespace(“MAPI”)
Dim rootFolder As Object = ns.GetDefaultFolder(6) ’ 6 = olFolderInbox, or use olFolderRoot = 1
Dim parentFolder As Object = Nothing
For Each folder As Object In rootFolder.Folders
If folder.Name = baseFolderName Then
parentFolder = folder
Exit For
End If
Next
If parentFolder Is Nothing Then
parentFolder = rootFolder.Folders.Add(baseFolderName)
End If
’ Check or create Year folder
Dim yearFld As Object = Nothing
For Each f As Object In parentFolder.Folders
If f.Name = yearFolder Then
yearFld = f
Exit For
End If
Next
If yearFld Is Nothing Then
yearFld = parentFolder.Folders.Add(yearFolder)
End If
’ Check or create Month folder
Dim monthFld As Object = Nothing
For Each f As Object In yearFld.Folders
If f.Name = monthFolder Then
monthFld = f
Exit For
End If
Next
If monthFld Is Nothing Then
monthFld = yearFld.Folders.Add(monthFolder)
End If