Return Highest Level Email Folder

Status
Not open for further replies.
H

Howard Bashinski

Member
Outlook version
Outlook 2016 32 bit
Email Account
IMAP
Hi all -

I would like to return the highest level folder in an Outlook folder path. I can get the parent, but the parent might not be the highest level. I can keep asking for the parent of the parent, but I get an error once I get to the top level.

Alternatively, how do I get the folder path to a string?

Thanx!

hb
 
Code: 
Option Explicit

Private Sub highest_folder()

    Dim obj As Object
    Dim F As Folder
    Dim nextF As Folder
  
    Set obj = ActiveWindow
  
    If TypeOf obj Is Inspector Then
        Set obj = obj.currentItem
    Else
        Set obj = obj.Selection(1)
    End If
  
    Set F = obj.Parent
    Debug.Print "Parent Folder: " & F
  
retry:

    On Error Resume Next
    Set nextF = F.Parent
    ' Turn off error bypass as soon as the purpose is served
    On Error GoTo 0
  
    If Not nextF Is Nothing Then
        Set F = nextF
        Set nextF = Nothing
        Debug.Print "next Higher Folder: " & F
        GoTo retry
    Else
        Debug.Print "Error bypassed as nextF is nothing."
    End If
  
    Debug.Print "The highest folder is: " & F

End Sub

Private Sub GetItemsFolderPath()

    ' http://vboffice.net/sample.html?lang=en&mnu=2&smp=65&cmd=showitem

    Dim obj As Object
    Dim F As Folder
    Dim Msg As String
  
    Set obj = ActiveWindow
  
    If TypeOf obj Is Inspector Then
        Set obj = obj.currentItem
    Else
        Set obj = obj.Selection(1)
    End If
  
    Set F = obj.Parent
  
    Msg = "The path is: " & F.FolderPath & vbCrLf
    Msg = Msg & "Switch to the folder?"
  
    If MsgBox(Msg, vbYesNo) = vbYes Then
        Set ActiveExplorer.CurrentFolder = F
    End If
  
End Sub
 
Status
Not open for further replies.
< Parsing All Emails | resend if no reply and send an automatic reminder >
Similar threads
Thread starter Title Forum Replies Date
O Carriage Return - Line Feeds - exporting Calendar events Using Outlook 0
R The return of weird graphical glitches in Outlook? Using Outlook 2
B ActiveExplorer return NULL on new Window user login and running Outlook first time Using Outlook 1
B return to inbox Using Outlook 5
icacream outlook 2007 - how do I stop spacing when I hit return ? Using Outlook 4
G Possible to create reports that return contacts based on account criteria? BCM (Business Contact Manager) 0
R Return Address Using Outlook 1
S ActiveExplorer return NULL on new Window user login and running Outlook first time Outlook VBA and Custom Forms 19
P Comcast IMAP broken but their second level support said to call "the Outlook company" Using Outlook 4
1 Incorrectly Setup a Rule at Domain level to not allow address from outside domain Exchange Server Administration 2
D Security patch seems to kill vbscript on Enterprise Level Outlook VBA and Custom Forms 4
R Blocked Top-Level Domain List Using Outlook 2
S Merging From Outlook 2003 Using Form or Folder Level Fields Outlook VBA and Custom Forms 9

Similar threads

Back
Top