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!
 
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!
 
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
 
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.
Similar threads
Thread starter Title Forum Replies Date
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
G Outlook 2021 Add Picture to Custom Contact Form Outlook VBA and Custom Forms 2
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
G automatically choosing "add to autocorrect" option Using Outlook 0
F Want to add second email to Outlook for business use Using Outlook 4
K Add an entry to a specific calendar Using Outlook 1
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
J Outlook 365 Add keywords from Listbox to the message body where cursor is placed Outlook VBA and Custom Forms 0
O Add Day Number of the year for 2023-2033 Outlook VBA and Custom Forms 5
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
Witzker Add a text line at the end of the note field in all selected Contacts Outlook VBA and Custom Forms 7
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 10
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Add contacts birthday to calendar Using Outlook 4
V How to add 'Previous Item' and 'Next Item' to the Quick Access Toolbar Using Outlook 1
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
L did MS ever add way to text via Outlook Using Outlook 5
P How to add a column named categories when searching in Outlook Using Outlook 0
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
Witzker Outlook 2019 Pls. add a Prefix for OUTLOOK 2019 here Using Outlook 1
P Add inanimate objects to meetings? Using Outlook 1
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
A "Get Add-Ins" - Which Version of Outlook to use Using Outlook 1
D Do I need Exchange Add-In? Using Outlook 6
C-S-R Manage Add-ins (Remove Wunderlist) Using Outlook 6
A iCloud add in problems Using Outlook 4
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
C Looking for feedback on new Outlook Add-in Using Outlook 0
L isn't there an OL add-on that flags addressee before sending Using Outlook 3
S Add VBA save code Using Outlook 0
P Shortcut Pane - add shortcut to Office365 group mailbox Using Outlook 1
Z Add ComboBox Value to Body of Email Outlook VBA and Custom Forms 1
G How to add a folder shortcut to outlook quick access toolbar? Using Outlook 6
G Add to Outlook Contacts - Point to non-default contacts folder Using Outlook 0
M Automatically add senders first name to a greeting Outlook VBA and Custom Forms 1
C Add Form to Appointments Received, Automatically Outlook VBA and Custom Forms 6
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
Z 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

Similar threads

Back
Top