#VBA OUTLOOK REBUILD INDEX CODE#
#VBA OUTLOOK REBUILD INDEX OFFLINE#

ThatвЂ™s a little recursion: Function CreateFolder_Recursive(aRootFolder As Outlook.MAPIFolder, aFolder As Outlook.MAPIFolder, bMailOnly As Boolean) _ As Outlook.MAPIFolder Dim fldReturn As Outlook.MAPIFolder Dim itm, itm2 As Object For Each itm In aRootFolder.Folders If itm.Name = aFolder.Name Then Set fldReturn = itm For Each itm2 In aFolder.Folders Set itm = CreateFolder_Recursive(fldReturn, itm2, bMailOnly) Next itm2 Exit For End If Next itm If fldReturn Is Nothing Then ' create the folder only if it is a mailfolder or if the parameter flag indicates that we shall create all folders If aFolder.DefaultItemType = olMailItem Or Not bMailOnly Then Set fldReturn = (aFolder.Name) End If If Not (fldReturn Is Nothing) Then For Each itm2 In aFolder.Folders Set itm = CreateFolder_Recursive(fldReturn, itm2, bMailOnly) Next itm2 End If End If End Function 3: Get the search folder to retrieve the vaulted eMails fromДЇinding the respective search folder is just an iteration over all stores and figuring out the SearchFolder object with the right name. I then wanted to replicate my folder tree in the target PST вЂ“ just вЂ¦ well: just вЂ™cause IвЂ™m used to. BTW: On vaulted eMails the MessageClass field reads вЂњвЂќ in its entirety. I went by the Search Folder idea as otherwise IвЂ™d have to walk through all eMails to find the vaulted ones. Once opened and copied (the вЂњcopyвЂќ is key) it loses its vault link and gets its entire content back.ДЇirst of all, I defined an Outlook Search Folder to grab all vaulted eMails. Is a simple Outlook VBA codepiece grabbing any vaulted eMail, opening it and copying it to a respective PST folder. This oneвЂ™s to explain how that solution works: I spent some thought around this recently and ultimately created a solution which works perfectly for me and now lets me access all my old mail again вЂ“ through a PST folder.

#VBA OUTLOOK REBUILD INDEX OFFLINE#

ThereвЂ™s however a difference: Once Vault has gotten hold of one of your eMails, all you really have in your folders is in essence a torso of 300 chars embedded with a link to the respective Vault item of your eMail.ДЄnd now, thereвЂ™s those occasions when you want to access exactly those old eMails that Vault has long ago grasped also when offline and вЂ“ honestly: PST is not such a bad concept (while I indeed do appreciate companiesвЂ™ aim to reduce (restrict) PST usage). You donвЂ™t realize any difference in accessing eMails whether theyвЂ™re meanwhile archived or not. It integrates pretty seamlessly with Outlook. Response = MsgBox('Add messages to ' + oFolder.вЂ¦ that moment, when in the cloud вЂ“ in a real one i.e.: in a plane somewhere over an ocean вЂ“ and you eventually got nothing else to do than reading those loads of docs you dropped into your mailbox for later use вЂ¦ that вЂ“ very вЂ“ moment вЂ¦ when your enterpriseвЂ™s archiver kicks in and Outlook tells you it canвЂ™t load your eMail as you are вЂ“ guess what? вЂ“ OFFLINE!Д®nterprise Vault is a great archiving solution.

Set oFolder = oNS.GetDefaultFolder(olFolderDrafts)

#VBA OUTLOOK REBUILD INDEX CODE#

Here is some code which adds messages in the drafts folder: (Which is how the post above was created.) You can create a list by writing some vba to add new messages to a folder and give each message a different icon_index.You can then check the folder and see what icons appear.

Vba outlook rebuild index