Outlook and VBA: create folders in pst file

[Archangelos]

Hello guys,

firstly I wish to all of you a happy and prosperous 2019.

Well, I have to create a new pst for the personal emails of 2019. It's not difficult.

However, I have to make a number of folder with a specific tree structure.

Any idea?

I have a little VBA experience with excel but I am totally clueless with Outlook.

 

[Anthony47]

For example:

Sub Add2019Folder()
Dim myNameSpace As Outlook.NameSpace
Dim myBFolder As Folder
Dim myNew2019 As Folder
 
   Set myNameSpace = Application.GetNamespace("MAPI")
   Set myBFolder = myNameSpace.GetDefaultFolder(olFolderInbox)    'Base folder
   Set myNew2019 = myBFolder.Folders.Add("Y_2019")
   myNew2019.Folders.Add ("SubFold_1")
   myNew2019.Folders("SubFold_1").Folders.Add ("SubFold_1a")
   myNew2019.Folders.Add ("SubFold_2")
   myNew2019.Folders("SubFold_2").Folders.Add ("SubFold_2a")
End Sub

This will create, within the Inbox folder, the following new forders structure

InBox
   Y_2019
      SubFold_1
         SubFold_1a
      SubFold_2
         SubFold_2a

Adapt the code to create your own structure

Bye

 

[Archangelos]

Thanks buddy,

my apologies for my late response but I saw it a couple of minutes ago.

I have a question, the code creates a new pst file?

 

[Archangelos]

Any help please?