Use Folder Path String to select folder in VBA in Outlook - vba

Question

How can I enter a string as a folder location
ex. \MySpecificEmailAddress\Inbox
To select that folder in VBA using outlook?
I obtained the path using:
... = ActiveExplorer.CurrentFolder.FolderPath
I have searched far and wide to automatically tell the script which specific folder to run a macro on without having to select the folder then run the script.

Answer 1

You should be able to enumerate Session.Stores and then Store.GetRootFolder.Folders to access all folders for a given mailbox. Depending on how many levels deep you need to go, this may take a bit more effort (i.e. recursion).
Here is a code snippet from MSDN which enumerates all folders under the mailbox/store root folders:
Sub EnumerateFoldersInStores()
Dim colStores As Outlook.Stores
Dim oStore As Outlook.Store
Dim oRoot As Outlook.Folder
On Error Resume Next
Set colStores = Application.Session.Stores
For Each oStore In colStores
Set oRoot = oStore.GetRootFolder
Debug.Print (oRoot.FolderPath)
EnumerateFolders oRoot
Next
End Sub
Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder)
Dim folders As Outlook.folders
Dim Folder As Outlook.Folder
Dim foldercount As Integer
On Error Resume Next
Set folders = oFolder.folders
foldercount = folders.Count
'Check if there are any folders below oFolder
If foldercount Then
For Each Folder In folders
Debug.Print (Folder.FolderPath)
EnumerateFolders Folder
Next
End If
End Sub

Answer 2

I have just now built and tested the following function to get an outlook folder by it's path string... of course it is in Javascript, but you can easily convert it to VBA or VBScript.
function getFolderByPath(oParent, sFoldPath) {
sFoldPath = sFoldPath.toLowerCase();
var oFolds = new Enumerator(oParent.Folders);
for(oFolds.moveFirst(); !oFolds.atEnd(); oFolds.moveNext()) {
var sPath = oFolds.item().FolderPath.toLowerCase();
if(sPath == sFoldPath) return oFolds.item();
if(sFoldPath.indexOf(sPath + "\\") == 0) return getFolderByPath(oFolds.item(), sFoldPath);
}
return null;
}
Usage:
var oRequiredFolder = getFolderByPath(oNameSpaceObject, "\\\\My\\required\\folder\\path");
Hope this helps someone.