Outlook: Move Items to Folder (with GUI folder list and not inputbox)

I was searching for a Macro online for Outlook mail items moved to different folders.

Have seen few codes that performs the same but with this code I used the GUI folder listing instead of prompting for an inputbox to avoid errors as most users are not aware of the Folder paths.

I submitted the code to OutlookCodeDotCom: Moving mail items to specified folder

It has 30++ downloads so far... not bad!

1. Sub MoveMailToFolders()
2. Dim objNS As Outlook.NameSpace
3. Dim MyFolder As Outlook.MAPIFolder
4. Dim objItem As Outlook.MailItem
5. Dim ctr As Integer
6. On Error Resume Next
8. ctr = 0
9. Set objNS = Application.GetNamespace("MAPI")
10. Set MyFolder = objNS.PickFolder
12. MsgBox "The selected mail item(s) will be moved to: " & vbCrLf & vbCrLf & _
13. "Folder Path: " & MyFolder.FolderPath & vbCrLf & _
14. "Folder Name: " & MyFolder.Name _
15. , vbOKOnly + vbInformation, "Outlook Help"
17. For Each objItem In Application.ActiveExplorer.Selection
18. If MyFolder.DefaultItemType = olMailItem Then
19. If objItem.Class = olMail Then
20. ctr = ctr + 1
21. objItem.Move MyFolder
22. End If
23. End If
24. Next
26. MsgBox "Moved: " & ctr & " mail item(s) to: " & MyFolder.Name, vbInformation, "Outlook Help"
28. Set objNS = Nothing
29. Set MyFolder = Nothing
30. End Sub

Then using the Customize option on the toolbar, you can create a button for the Macro and assign a shortcut key to it!


If at first you fail, call it version 1.0