Hey Outlook, where’s that folder?

I use Xobni and Outlook 2007’s Instant Search quite often.  Once I find and open the e-mail that I’ve retrieved using either mechanism, I almost always want to find and display the folder where that message is stored.  So here’s a quick and handy little macro that will do just that:

Sub DisplayFolderContainingOpenItem()
On Error Resume Next

Dim objFolder As Outlook.MAPIFolder
Dim objExpl As Outlook.Explorer

‘Don’t do anything if nothing is open!
If ActiveInspector Is Nothing Then Exit Sub

Set objFolder = ActiveInspector.CurrentItem.Parent
objFolder.Display
Set objExpl = objFolder.GetExplorer
objExpl.WindowState = olMaximized

Set objExpl = Nothing
Set objFolder = Nothing
End Sub

Unfortunately there’s no way to select the current message in the folder as well – we’ll have to wait until the next version of Outlook to see if the Product Team has added such functionality to the object model.  😉

ROCK!

Eric Legault

Full-stack product builder & consultant for Microsoft 365 & Graph. Microsoft MVP 2003 - 2019. Outlook add-in guru. Rocker. Video/audio engineer. Collects Thors.

You may also like...

%d bloggers like this: