How do I make my own keyboard shortcut in Outlook 2003?

January 12, 2007 3:29 PM

How do I add my own keyboard shortcut to Outlook 2003?

At work, I am using Outlook 2003 on XP Pro. In Outlook, I have a folder setup called PROCESSED MAIL. Normally, I just left-click an email message and manually move it over to the folder.

I would like to be able to create my own custom shortcut that would allow me to move that piece of mail using a simple keystroke. Can this be done? I've scoured through the documentation on customizing the toolbar, but I'm not looking to add a button to Outlook. I'm looking to add my own custom keyboard shortcut.

Any thoughts?

posted by zooropa to computers & internet (2 comments total)

How are you with writing macros? It could be done that way.

Or you could use the built-in Ctrl-Shift-V command which opens up a list of your folders.
posted by SuperSquirrel at 3:52 PM on January 12, 2007

You can't, unfortunately.

You have to write a macro, assign a button on the toolbar, and then assign a shortcut to the button.

For instance, I have a folder called "@Done". To send the currently open email to the folder, I have a macro to do it:


Sub MoveDone()
Dim oc As Object
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim InboxFolder As MAPIFolder
Dim DoneFolder As MAPIFolder
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set InboxFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Set DoneFolder = InboxFolder.Folders("@Done")
Set oc = Application.ActiveInspector.CurrentItem

Select Case oc.Class
Case olMail
Set objMailItem = oc
objMailItem.Move DoneFolder
End Select
End Sub

The code checks that the item is in fact a Mail item, and does not work for the currently selected item, but the currently open item.

You also can't assign buttons to the context menus.
posted by blue_wardrobe at 3:54 PM on January 12, 2007