Option Explicit
Private Sub cmdCheckFolderStructure_Click()
Call CreateFolderStructure("Standard Inbox Sub-Folder1")
Call CreateFolderStructure("Standard Inbox Sub-Folder2")
Call CreateFolderStructure("Standard Inbox Sub-Folder3")
End Sub
Private Sub CreateFolderStructure(ByVal sFolderName As String)
Dim oNS As Outlook.NameSpace
Dim oInbox As Outlook.MAPIFolder
Dim oNewFolder As Outlook.MAPIFolder
Dim i As Integer
Dim bFound As Boolean
Set oNS = Application.GetNamespace("MAPI")
Set oInbox = oNS.GetDefaultFolder(olFolderInbox)
For i = 1 To oInbox.Folders.Count
If oInbox.Folders.Item(i).Name = sFolderName Then
bFound = True
Exit For
Else
bFound = False
End If
Next
If bFound = False Then
Set oNewFolder = oInbox.Folders.Add(sFolderName, olFolderInbox)
End If
End Sub