Open Containing Folder in Outlook

By -
I got increasingly frustrated in Outlook when after a search I couldn't find the email item I was looking at in its original folder.  I could see the folder if I added the column to the search results, but didn't know where that folder was in my directory tree.  So if you have more than one "done" folder or something, it can be hard to find.

To solve this (as it was no different in Outlook 2013 and I'd be wanting this for some time) I came up with the following code to

  • Show the path to the folder
  • Open that folder, so that the folder contents can be seen.
In effect, this is an Open Containing Folder for Outlook.  Enjoy.



Sub GoToFolder()
    Dim loThisEmail As MailItem, loInspector As Inspector
    Dim loFolder As Folder
    
    Set loInspector = Application.ActiveInspector
    
    If loInspector Is Nothing Then
        MsgBox "No active inspector"
    Else
        Set loThisEmail = loInspector.CurrentItem
        
        Set loFolder = loThisEmail.Parent
        
        ShowFolderPath loFolder
    End If

End Sub

Public Sub ShowFolderPath(toFolder As Folder)
    Dim lsPath As String
    Dim lsParent As String
    Dim loFolder As Folder
    Dim lsJoin As String
    Dim llContinue As Boolean
    
    lsJoin = ""
    lsPath = ""
    llContinue = True
    
    Set loFolder = toFolder
    
    Do While llContinue
        
        lsPath = loFolder.Name & lsJoin & lsPath
        lsJoin = "-->"
    
        lsParent = ParentPath(loFolder.Parent)
        
        If Len(lsParent) = 0 Then
            llContinue = False
        Else
            Set loFolder = loFolder.Parent
        End If
    Loop
    
    lsPath = lsPath & vbCrLf & vbCrLf & "Open this folder?"
    
    If MsgBox(lsPath, vbYesNo) = vbYes Then
        toFolder.Display
    End If
End Sub

Public Function ParentPath(toFolder As Folder) As String

    Dim loFolder As Folder
    
    ParentPath = ""
    
    'Bit of a kludge
    If toFolder.Parent <> "Mapi" Then
        Set loFolder = toFolder.Parent
    
        If IsObject(loFolder) Then
            ParentPath = loFolder.Name
        End If
    End If

End Function


Comments

Post a Comment

Popular posts from this blog

Morrisons Three Fish Roast

By -
At Christmas, we purchased a couple of Three Fish Roasts from Morrsions as an alternative to the usual turkey, which we also cooked.  We really liked the sound of the salmon, cod and smoked haddock combined into one roast. We cooked them as directed - 30 minutes at 180 degrees - and were delighted as they came out of the oven and the aroma wafted through the kitchen.  We left the turkey to rest and then carved it, so started to try to carve the three fish roast.  Sadly, it disintegrated at the slightest touch, so it became something of a plate of loose, random chunks of fish.  Not many people went for it! When we tasted it, though, it was very pleasant indeed. So, how to solve the problem of the collapsing roast? It was simple, in the end.  We had some puff pastry in the freezer.  We purchased another three fish roast and simply rolled the fish in the pastry, piercing a couple of holes for any steam to escape.  In the oven for 40 minutes a...
Read more

Get Friends and Family to Record Onto Your Yoto

By -
Image
 We purchased our little girl (2.5 years old) a Yoto player for Christmas as she likes putting CDs into the CD player and taking them out.  It looked like she would enjoy putting the story cards in and out of it.  And she did - she loves it! The other thing we were intrigued by was the "Make Your Own" cards.  We knew you could essentially put CDs and certain blogs "onto" cards, but what we hadn't appreciated was that we could put our own sounds and voices onto cards. In this time of lockdown and only seeing friends and relatives via video calls, we thought it might be nice to get friends and family to record a song or nursery rhyme and to put them onto cards.  I needed a way that would be easy enough for the technophobes to be able to do this without causing them a headache and also without causing me a headache. A Simple Way for Others to Create a Media File For Your I dismissed the idea of trying to get them to record from their PC and email it to me.  If...
Read more

How to Stop the Annoying Nag Message in Outlook Asking to Take Outlook Anywhere

By -
Image
 I had an annoying message in Outlook 365 which appeared every day saying "Take Outlook Anywhere.  Stay connected to what matters.  Get Started (or Get it Now)"  There appears to be no way of stopping this appearing through the user interface, although you can just close it.  The reminder seems to appear every day  Even after a bit of searching online, I couldn't really see any obvious, clear solutions.  I even found some post suggesting that you need to complete on online form to opt out.  As far as I could tell this was just a data-harvesting scam.  This is what I pieced together to get rid of it. Open Regedit (Start --> Run --> Regedit) You then need to navigate to this node Computer\HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\TargetedMessagingService\MessageData\ Right-Click MessageData and choose "Find" Type 425141231 (I got this value by clicking get started and taking it from the URL) You should find a node endin...
Read more