Create folder an subfolder

Hi there,

I would like to know if there is a way to create folder with subfolder.

I would like to have an input box for the name of the folder. If not possible just a harcoded name such as "Employee name"

the sub folder are all the same

• Contract Documents
• Personnal Documents
• Remuneration
• Visa/Trip
• Insurance

And again if possible a choose folder box for the parent folder. If not possible straight into the inbox is fine.

I'm using outlook 2013.

Many thanks to all.

Best regards,

Sastoka

The following will allow you to choose the target folder and name the sub folder

Code:

---

Option Explicit

Sub CreateSubFolder()
Dim olNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim strName As String
    On Error Resume Next
    Set olNS = GetNamespace("MAPI")
    Set olFolder = olNS.PickFolder
    strName = InputBox("Enter sub-folder name")
    If strName = "" Then
        MsgBox "No name entered!"
        GoTo lbl_Exit
    End If
    olFolder.folders.Add strName
lbl_Exit:
    Set olNS = Nothing
    Set olFolder = Nothing
    Exit Sub
End Sub

---

Hi,

Thanks a lot.

That not complete but with the start you gave I did this.

Code:

---

Option Explicit
Sub CreateSubFolder()
    Dim olNS As Outlook.NameSpace
    Dim olFolder As Outlook.MAPIFolder
    Dim strName As String
    Dim Folders As Outlook.Folders
   
   
    On Error Resume Next
    Set olNS = GetNamespace("MAPI")
    Set olFolder = olNS.PickFolder
    strName = InputBox("Enter sub-folder name")
    If strName = "" Then
        MsgBox "No name entered!"
        GoTo lbl_Exit
    End If
    olFolder.Folders.Add strName
    Set Folders = olFolder.Folders.Item(strName).Folders
    Folders.Add "Doc Contrat", olFolderInbox
    Folders.Add "Doc Personel", olFolderInbox
    Folders.Add "Remuneration", olFolderInbox
    Folders.Add "Visa/Trip", olFolderInbox
    Folders.Add "Assurance", olFolderInbox
   
lbl_Exit:
    Set olNS = Nothing
    Set olFolder = Nothing
    Exit Sub
End Sub

---

And this does everything I want.

Many thanks.