There are a couple of older threads looking for this (inluding my own posted 4 years ago), but can't post to those now.
I came up with a solution that is good enough for me on this. It requires some vba that autocreates a dummy subfolder under the folder your favorite points to. Then we can jump to that and be right below the real folder.
Open Outlook vba (Shift F11) and pste these two procs in there somewhere.
Create a Quick Access Toolbar entry that points to macro JumpToFavorite.
Click on any folder in Favorites then click on the quick access button. Voila.
'
' Can jump to full path of a folder but if its a fav, it only jumps within Favs list
' So we create a dummy subfolder and jump to that
'
Sub JumpToFavorite()
Dim strUNC As String
Dim oFld As Outlook.Folder
On Error Resume Next
strUNC = ActiveExplorer.CurrentFolder.FolderPath
Set oFld = lib_FolderObjectFromPath(strUNC)
Set ActiveExplorer.CurrentFolder = oFld.Folders("jumpto")
If Err <> 0 Then
Set oFld = oFld.Folders.Add("jumpto")
Set ActiveExplorer.CurrentFolder = oFld
End If
Set oFld = Nothing
End Sub
'
' Return a folder object after passing a full path eg. from objFolder.FolderPath
'
Function lib_FolderObjectFromPath(pstrSrcFolder As String) As Outlook.Folder
Dim oNS As Outlook.NameSpace
Dim oFolder As Outlook.Folder
Dim oParFolder As Outlook.Folder
Dim strParts() As String
Dim intCnt1 As Integer
Set oNS = GetNamespace("MAPI")
strParts = Split(Mid(pstrSrcFolder, 3), "\")
Set oParFolder = oNS.Folders(strParts(0))
For intCnt1 = 1 To UBound(strParts)
Set oFolder = Nothing
On Error Resume Next
Set oFolder = oParFolder.Folders(strParts(intCnt1))
On Error GoTo 0
If oFolder Is Nothing Then
Set lib_FolderObjectFromPath = oFolder
Exit Function
End If
Set oParFolder = oFolder
Next intCnt1
Set lib_FolderObjectFromPath = oFolder
Set oFolder = Nothing
Set oParFolder = Nothing
Set oNS = Nothing
End Function
I came up with a solution that is good enough for me on this. It requires some vba that autocreates a dummy subfolder under the folder your favorite points to. Then we can jump to that and be right below the real folder.
Open Outlook vba (Shift F11) and pste these two procs in there somewhere.
Create a Quick Access Toolbar entry that points to macro JumpToFavorite.
Click on any folder in Favorites then click on the quick access button. Voila.
'
' Can jump to full path of a folder but if its a fav, it only jumps within Favs list
' So we create a dummy subfolder and jump to that
'
Sub JumpToFavorite()
Dim strUNC As String
Dim oFld As Outlook.Folder
On Error Resume Next
strUNC = ActiveExplorer.CurrentFolder.FolderPath
Set oFld = lib_FolderObjectFromPath(strUNC)
Set ActiveExplorer.CurrentFolder = oFld.Folders("jumpto")
If Err <> 0 Then
Set oFld = oFld.Folders.Add("jumpto")
Set ActiveExplorer.CurrentFolder = oFld
End If
Set oFld = Nothing
End Sub
'
' Return a folder object after passing a full path eg. from objFolder.FolderPath
'
Function lib_FolderObjectFromPath(pstrSrcFolder As String) As Outlook.Folder
Dim oNS As Outlook.NameSpace
Dim oFolder As Outlook.Folder
Dim oParFolder As Outlook.Folder
Dim strParts() As String
Dim intCnt1 As Integer
Set oNS = GetNamespace("MAPI")
strParts = Split(Mid(pstrSrcFolder, 3), "\")
Set oParFolder = oNS.Folders(strParts(0))
For intCnt1 = 1 To UBound(strParts)
Set oFolder = Nothing
On Error Resume Next
Set oFolder = oParFolder.Folders(strParts(intCnt1))
On Error GoTo 0
If oFolder Is Nothing Then
Set lib_FolderObjectFromPath = oFolder
Exit Function
End If
Set oParFolder = oFolder
Next intCnt1
Set lib_FolderObjectFromPath = oFolder
Set oFolder = Nothing
Set oParFolder = Nothing
Set oNS = Nothing
End Function