Add folders inside a PST. How?

Status
Not open for further replies.

skyfox

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
I am stuck again at what should be a simple if not a trivial task. I cannot seem to find a way to get this done or find the proper syntax to use to get it done. Adding folders to a PST file that is.

I have managed to create a PST file via VBA code based on some examples that I came across. (VBA code running within Outlook 2010)

Dim nSpace As Outlook.NameSpace
Dim pstFolder As Outlook.MAPIFolder

nSpace.AddStoreEx "C:\" & nSpace.CurrentUser & "\My Storage.pst", olStoreUnicode

Set pstFolder = nSpace.Folders.GetLast
pstFolder.Name = "My Storage" ' Sets Displayed Name

set pstFolder = Nothing
set nSpace = Nothing


So now that I have the "My Storage" PST file created, what is the proper syntax to create additional folders inside of this PST file with VBA? Majority the examples seems to be for creating folders inside the "DEFAULT" email folders and none of those methods that were adopted from those seem to work for PST files.

This email account is strictly for archiving all emails that is being sent to it. (receive only account) None of the other features of Outlook (Calendar, Contacts, Notes, etc.etc. are not used and never will be. What I need to do is filter out the inbox items and then send them to their applicable (yet to be created) folders inside this single PST file. I have sorted out the filtering 0f incoming mail. Based on this filtering, I have a routine that will generate new folder names from a collection. All I need is the simplest way to create new folders inside this PST file.

Thanks for any and all help.

Best Regards!
 

skyfox

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
Ok, so I finally got it. Took a 1/2 pint of straight "JOHNNIE WALKER BLACK" before the answer just floated in.
Incase if anyone else is looking for an answer for the same question...


Dim nSpace As Outlook.NameSpace
Dim pstFolder As Outlook.Folder
Dim NewSubFolder As Outlook.Folder


Set nSpace = Application.GetNamespace("MAPI")
Set pstFolder = nSpace.Folders("My Storage") ' Your PST file name
Set NewSubFolder = pstFolder.Folders.Add("JhonnieSpoke") 'Your new Folder name


Set nSpace = Nothing
Set pstFolder = Nothing
Set NewSubFolder = Nothing


This seems simple enough. Not sure why my other 100 similar tries did not pan out.

Cheers!
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
i have a macro sample at Create Outlook Folders from a List of Folder Names - the sample adds them under the selected folder, but that is easily changed - in your case, you need to create them at the top level... and deleted items is always added to new pst as the only default folder, so we can use it. The pst is not the default pst, so you'll need the getfolderpath function from Working with VBA and non-default Outlook Folders

Code:
Sub AddFolders()
Dim nSpace As Outlook.NameSpace
Dim pstFolder As Outlook.MAPIFolder
Dim myFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder
Set nSpace = Application.GetNamespace("MAPI")
nSpace.AddStoreEx "C:\" & nSpace.CurrentUser & "\My Storage.pst", olStoreUnicode

Set pstFolder = nSpace.Folders.GetLast
strPstName = "My Storage"
pstFolder.Name = strPstName ' Sets Displayed Name

' get the function 
Set myFolder = GetFolderPath(strPstName & "\Deleted Items")
Set myNewFolder = myFolder.Parent.Folders.Add("New Folder")
Set pstFolder = Nothing
Set nSpace = Nothing
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Set pstFolder = nSpace.Folders("My Storage") ' Your PST file name
Set NewSubFolder = pstFolder.Folders.Add("JhonnieSpoke") 'Your new Folder name
oh, yeah, you already have it identified, so you wouldn't need to find it with getfolderptah. (Maybe i need some johnny walker to help me think. :))
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
N Favorite Folders list in outlook navigation pane, can you add a message to the favorite folder list Using Outlook 2
B Microsoft Personal Folders Backup add-in (pfbackup) Using Outlook 9
O Outlook tasks - Add text column with multiple lines Using Outlook 3
W April 2020 Office 365 Update - Add-Ons fail after Office 365 Update Using Outlook 6
B Task Filter Not Working When I add too many criteria Using Outlook 0
D Add date next to day name in Outlook Today calendar view Using Outlook 1
D iCloud Add-in not working in Outlook 2013 and Outlook 2016 After Windows Upgrade & iCloud Upgrade Using Outlook 2
P Add Paste Unformatted to QAT Using Outlook 1
M Ignore slow add-ins Using Outlook 0
B Add Prefix text to Subject Line Using Outlook 1
Jennifer Murphy Add birthdays to calendar Using Outlook 7
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
P Add, remove, & reorder folder pane Using Outlook 6
L Tired of Outlook disabling Adobe PDF Creator add-in Using Outlook 1
R Add 'Company' to Select Names Form Using Outlook 1
A Outlook 2016 Web add-in missing on some machines Using Outlook 9
P Syncing problems with add-ins Using Outlook 3
Mark Foley Cannot enable add-in in outlook 2010 Using Outlook 0
BretAB Is it possible to add a lookup field to a Message form? Outlook VBA and Custom Forms 4
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
iwshim outlook 2013 - I cannot see the "Manage Add-ins" Using Outlook 2
A Add multiple servers "on behalf of" email to "safe senders" list. Using Outlook 1
S Add Exchange Account as Secondary to Existing PST? Exchange Server Administration 1
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3
A Add to Outlook Contacts from email - default view Outlook VBA and Custom Forms 1
P Add a contact to the New Task in Outlook 2016 Using Outlook 2
e_a_g_l_e_p_i Is there a way to add something that is in the "Format Text" tab to the "basic Text" on the message tab Using Outlook 1
B When working on emails in a certain folder, when I hit reply or reply all, I would like it re always reply all and add an email address to send to Outlook VBA and Custom Forms 3
M Macro to add date/time stamp to subject Outlook VBA and Custom Forms 4
O Outlook on Android - add BCC Using Outlook 2
J Execute Add-In Button from VBA Outlook 2016 Outlook VBA and Custom Forms 1
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11
B When I add more search strings to RULES, it is not processing them Using Outlook 3
D Add Tetxbox at form open Outlook VBA and Custom Forms 1
Andrew Quirl Open attachment, manipulate without add-on program? Outlook VBA and Custom Forms 5
B Searching for a Add-In Using Outlook 3
J Add Fillable Fields to Existing Template Outlook VBA and Custom Forms 1
J vb to c# for Outlook add-in. Using Outlook 0
S Send email via SMTP - use transport rules to add to senders inbox (then rule to move to sent items Exchange Server Administration 1
R Outlook add-in to create new contact from an email. Using Outlook 0
twofivepie GTD Netcentrics add-in for 2016 Outlook VBA and Custom Forms 13
D Add all meeting rooms to the meeting request by default Outlook VBA and Custom Forms 0
A add birthday to outlook contacts Using Outlook 1
Tanja Östrand Outlook 2016 - Create Macro button to add text in Subject Outlook VBA and Custom Forms 1
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
K add pdf to every reply or forward Outlook VBA and Custom Forms 1
R Add Exchange Account to existing POP3 Outlook 2007 Profile Using Outlook 0
Commodore Microsoft Exchange Add-in Using Outlook 2
O Outlook 2016 follow-up flags--how can I add dates? Using Outlook 1
oliv- GetTable Add body Outlook VBA and Custom Forms 4
Similar threads


















































Top