Using Outlook Macros to Move Email Items to Another Outlook Folder

When my work PC came off lease I took the necessary steps to back up my documents, IE favorites, etc. so I could add them on the new machine. After getting the new machine (and turning in the old one), it didn’t take me long to realize I had forgotten to copy something I use A LOT – Outlook macros. Unfortunately, I didn’t make notes when I set them up several years ago, so I had to start from scratch. There were plenty of examples on the web, but each assumed the target folder was located under the Inbox folder. My target folders were located on the same level as the Inbox. I finally got it working and decided to document the process for future reference.

The premise behind these macros is based on David Allen’s “Getting Things Done” methodology (GTD). I was also influenced by the “Inbox Zero” series on Merlin Mann’s “43 Folders” website, and a very good 2008 MacWorld article series entitled “Empty Your Inbox.”

While my email inbox never really gets to ‘zero,’ I am able to keep it pretty lean – depending on how diligent I am in following the GTD system.

Step 1 – Create your target folders

To create folders, right-click where you want to the folders to be created and select “New Folder” from the pop-up menu. I created my folders under the main Mailbox home folder. If you want to have your folders sort to the top of the list, start the folder name with a symbol such as ‘@’.

I use 4 main folders:

  1. @Action – Items I need to take action on to complete
  2. @Filed – Items I want to keep for future reference (i.e., I don’t want to delete it)
  3. @Someday – Items I may want to take action on at some point in the future; no time constraint
  4. @Waiting – Items I’m waiting on a response from someone else before I can resolve

Step 2 – Create your Outlook Macros

In Outlook (2007), click on the Tools | Macro menu item and select Visual Basic Editor (or use the Alt+F11 shortcut). Copy/paste the following VB Macro into the script editor. Make sure to change the name of the folders to match your email setting.

'Outlook VB Macro to move selected mail item(s) to a target folder
Sub MoveToFiled()
On Error Resume Next

Dim ns As Outlook.NameSpace
Dim moveToFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem

Set ns = Application.GetNamespace("MAPI")

'Define path to the target folder
Set moveToFolder = ns.Folders("Mailbox - Jim Merrell").Folders("@Filed")

If Application.ActiveExplorer.Selection.Count = 0 Then
   MsgBox ("No item selected")
   Exit Sub
End If

If moveToFolder Is Nothing Then
   MsgBox "Target folder not found!", vbOKOnly + vbExclamation, "Move Macro Error"
End If

For Each objItem In Application.ActiveExplorer.Selection
   If moveToFolder.DefaultItemType = olMailItem Then
      If objItem.Class = olMail Then
         objItem.move moveToFolder
      End If
  End If
Next

Set objItem = Nothing
Set moveToFolder = Nothing
Set ns = Nothing

End Sub

Here is how it looks in the VB Editor:

Step 3 – Test macros

To test the macros, click Run on the menu, the green ‘play’ button, or press F5 (Run Macro) in the VB Editor window. If no errors are displayed, verify that the selected email(s) has moved to the desired target folder.

Update 5/25/2011: If nothing seems to happen when you run the macro (i.e., no error message and the email isn’t moving to the target folder), the security settings on the machine may be blocking the macros from running. See the following post for more information.

Step 4 – Repeat

Repeat steps 2 and 3 above to create a separate macro for each of your target folders. For simplicity, I added all the macros to the default module (module1); copy/paste each function/macro after the “End Sub” line of the previous macro. After you copy/paste the code remember to:

  • Update the function/method name of the script to describe what the macro does (i.e., Sub MoveToFiled(), Sub MovedToAction(), etc.)
  • Update the path to your target folder
  • Save the macro/script file

Update 5/25/2011: A ‘cleaner’ way to avoid all the duplication of code – the only difference is the name of the target folder – is to have a main function that does all the work and then call that function passing in the name of the target folder. Example:

'Outlook VB Macro to move selected mail item(s) to a target folder
Sub MoveToFolder(targetFolder)
On Error Resume Next

Dim ns As Outlook.NameSpace
Dim MoveToFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem

Set ns = Application.GetNamespace("MAPI")

'define path to the target folder; the following assumes the target folder
'is a sub-folder of the main Mailbox folder
Set MoveToFolder = ns.Folders("Mailbox - Jim Merrell").Folders(targetFolder)

If Application.ActiveExplorer.Selection.Count = 0 Then
    MsgBox ("No item selected")
    Exit Sub
End If

If MoveToFolder Is Nothing Then
    MsgBox "Target folder not found!", vbOKOnly + vbExclamation, "Move Macro Error"
End If

For Each objItem In Application.ActiveExplorer.Selection
    If MoveToFolder.DefaultItemType = olMailItem Then
        If objItem.Class = olMail Then
            objItem.move MoveToFolder
        End If
    End If
Next

Set objItem = Nothing
Set MoveToFolder = Nothing
Set ns = Nothing

End Sub

Sub MoveToFiled()
    MoveToFolder ("@Filed")
End Sub

Sub MoveToAction()
    MoveToFolder ("@Action")
End Sub

Sub MoveToWaiting()
    MoveToFolder ("@Waiting")
End Sub

Step 5 – Add button to Outlook menu bar

To run the macro using the click of the mouse, or using hot keys, I added the macros to the menu bar. Right-click on a toolbar and select ‘Customize…’ from the pop-up menu

On the Commands tab of the Customize window, scroll down the Categories list and select Macros. You should see the macros (created in step 2 above) in the Commands section.

To add a macro to the toolbar, left-click and drag the macro command(s) to the toolbar and release in the desired location.

With the Customize window still displayed, right-click on the macro item in the toolbar to display additional customization options. To enable the macro to run using a keyboard shortcut, use the ‘&’ character before the desired character (used in conjunction with the Alt key) in the Name. For example, to run the “MoveToFiled” macro with the Alt+1 shortcut, change the name to “&1.MoveToFiled.” (Note the ‘.’ is just to provide a visual separation.)  Also, to save space on the toolbar, select “Text Only (Always).”

The finished result looks like this:

Now you can run your macro by clicking on the toolbar item, or using the Alt+1, Alt+2, or Alt+3 shortcut.

Next: Adding Macros to Outlook’s Quick Access Toolbar

Have a great day!

94 thoughts on “Using Outlook Macros to Move Email Items to Another Outlook Folder”

  1. When I run this I get the “Target folder not found” error.” I changed your code for folders to:

    Set moveToFolder = ns.Folders(“Mailbox – Solution Center\Inbox”).Folders(“*Assigned Tickets”)

    The “*Assigned Tickets” folder is a sub-folder in our Inbox folder. Can you see what I’m doing wrong?

    1. Hi Dave,
      If your target folder is a sub-folder in your Inbox, you will need to add an additional “.Folders” call to get there:

      Set moveToFolder = ns.Folders("Mailbox - Solution Center").Folders("Inbox").Folders("*Assigned Tickets")

      Or, better, you can use the predefined “GetDefaultFolder” function to get straight to the Inbox level

      Set moveToFolder = ns.GetDefaultFolder(olFolderInbox).Folders("*Assigned Tickets")

      Regards,
      Jim

  2. hi Jim,

    even after i tried with the reply which you have given above still am getting that target folder not found.

    were both my inbox as well as my atrget folder Assigned both are saperate folders.

    Set moveToFolder = ns.Folders(“Mailbox – Muthyala, Pratik\Inbox”).Folders(“Assigned”)

    1. Hi Pratik, It’s hard to say without seeing your folder hierarchy. However, assuming “Assigned” is a folder located within the main Inbox folder (i.e., a child of the folder actually called “Inbox”), I suggest using the following approach to set your folder path:

      Set moveToFolder = ns.GetDefaultFolder(olFolderInbox).Folders("Assigned")

      I hope that helps.
      Regards,
      Jim

      1. In general, is there a way to pass a multi-level folder hierarchy to the Folders method? It seems like I have to repeat the call to Folders for each folder and if I need to drill down 3 or 4 levels, it is tedious.

        I don’t want to use GetDefaultFolder because I’m not pointing to a folder on Inbox.

        Here is what I want
        Set MoveToFolder = ns.Folders(“Mailbox – John\folder name1\folder name2”)

        Not
        Set MoveToFolder = ns.Folders(“Mailbox – John).Folders(“folder name1”).Folders(“folder name2”)

        1. Yes, but it takes some additional coding. Here is an example taken from the Microsoft Developer site using Office 2007 (should work same with newer versions):

          Function GetFolder(ByVal FolderPath As String) As Outlook.Folder
          Dim TestFolder As Outlook.Folder
          Dim FoldersArray As Variant
          Dim i As Integer

          On Error GoTo GetFolder_Error
          If Left(FolderPath, 2) = "\\" Then
          FolderPath = Right(FolderPath, Len(FolderPath) - 2)
          End If
          'Convert folderpath to array
          FoldersArray = Split(FolderPath, "\")
          Set TestFolder = Application.Session.Folders.item(FoldersArray(0))
          If Not TestFolder Is Nothing Then
          For i = 1 To UBound(FoldersArray, 1)
          Dim SubFolders As Outlook.Folders
          Set SubFolders = TestFolder.Folders
          Set TestFolder = SubFolders.item(FoldersArray(i))
          If TestFolder Is Nothing Then
          Set GetFolder = Nothing
          End If
          Next
          End If
          'Return the TestFolder
          Set GetFolder = TestFolder
          Exit Function

          GetFolder_Error:
          Set GetFolder = Nothing
          Exit Function
          End Function

          Sub TestGetFolder()
          Dim folder As Outlook.Folder
          Set folder = GetFolder ("\\Mailbox - Dan Wilson\Inbox\Customers")
          If Not(folder Is Nothing) Then
          folder.Display
          End If
          End Sub

          To summarize, “if you provide the folder path “Mailbox – Dan Wilson\Inbox\Customers”, the code in the TestGetFolder procedure will display the Folder object that corresponds to the Customers folder under Dan Wilson’s Inbox, if the Customers folder exists under the Inbox. If the Customers folder does not exist, GetFolder will return Nothing.

  3. Hi Jim,

    Have you come across any evidence as to whether this works in Outlook 2010? Also, do you see any benefit in actually using 43 folders in your email hierarchy, in addition to what you’ve already implemented?

    1. Daniel, I don’t have Outlook 2010 yet so I can’t say for certain. But, I think it should work since the macro isn’t doing anything fancy.

      My take on the “43 Folders” system is that it’s geared more towards keeping track of all your “to do” items. Specifically folder 1 – 31 represent each day of the month, then another 12 folders for Jan – Dec. You file things based on when the item is due. Personally I didn’t see any benefit based on the problem I was trying to solve – cleaning up my inbox. In my case, if I get a “to do” email, I just put it in the ‘action’ folder. After that, I simply file it or delete it.

      I also think it might get a bit confusing using 43 ‘electronic’ folders.

      Regards,
      Jim

  4. Came here looking for account transfers from outlook to Gmail, although I learned a lot about folder macros. Pretty cool! In case you want to transfer between email accounts I also found movemyemail.com to be pretty good, it’s not free though and I’m really looking for a Gmail solution. Thanks again.

    1. Thanks Marc. I hope to be getting Office 2010 soon and will definitely look into this feature. Sounds interesting.

    2. Quick Steps work awesome. It would be nice if the keyboard shortcuts for them had more options. The number pad on the keyboard doesn’t work for the numbers.

  5. Hi Jim,

    Could you help me about the Outlook 2010.
    My question is How to move the Email in particular Folders when i set the time.
    Can i set the time..?

    E.g: When i received Email of Mr. Larry in my Inbox after one month it will automatically moved in My sub folder of Mr. Larry.

    I Hope you understand my query on this regard.

    If you want any query please write us on my email don.manan@gmail.com

    Thanks in advance.

    1. Manan,
      There has to be something (an event) to trigger the macro. One option might be to create a script that would move all mail items in your inbox with ‘ReceivedTime’ <= the current date. Then you could manually trigger/run the macro (once a day, once a week, etc.) and it would move all mail items that met the criteria. Jim

  6. Hi Jim,

    I am very grateful to you for sharing this bit of information.
    Can you guide me for the code correction to achieve following.

    I have rules in place to move all mails coming from a particular account into respective folders.
    I have created sub-folders in that folder where I want to move these mails afterwards based on their subject.

    I can set up rules for these too, but it appears my rules are already too much for outlook to handle.
    Beside Outlook provides rule wherein you can do following:
    From : xyz@abc.com
    AND Subject:”abc”

    But it cannot provide following:
    From : xyz@abc.com
    OR Subject:”abc” or “pqr” or “rst”

    So I will need something as

    ---------------------------------------------------------------------
    Set moveFromFolder = ns.GetDefaultFolder(olFolderInbox).Folders("FromAssigned")
    Set moveToFolder = ns.GetDefaultFolder(olFolderInbox).Folders("ToAssigned")

    For Each objItem In Application.ActiveExplorer.Selection
    If MoveToFolder.DefaultItemType = olMailItem Then
    If objItem.Class = olMail Then
    If objItem.Subject = “abc” or objItem.Subject = “pqr” Then
    ---------------------------------------------------------------------

    Regards
    Sundar Singh

  7. This code works great but I can’t seem to get the syntax right for sub folders. If I have a folder called “Archive” inside my Inbox how would I code the folder name in the sub?

    I have tried all of the following:
    Inbox\Archive
    \inbox\Archive
    \\inbox\Archive
    /inbox/Archive
    //inbox/Archive

  8. I managed to figure this out. To access a sub folder set the path as in Inbox\Archive and then use this code:

    If InStr(targetFolder, “\”) > 0 Then
    fArray = Split(targetFolder, “\”)
    Set MoveToFolder = ns.Folders(“Mailbox-Mark.MacLachlan”).Folders(fArray(0))
    X = 1
    Do Until X = UBound(fArray) + 1
    Set MoveToFolder = MoveToFolder.Folders(fArray(X))
    X = X + 1
    Loop
    Else
    Set MoveToFolder = ns.Folders(“Mailbox-Mark.MacLachlan”).Folders(targetFolder)
    End If

    1. Hi Mark, If the “Archive” folder is a subfolder located under the main “Inbox” folder, see if the following work:

      Set moveToFolder = ns.GetDefaultFolder(olFolderInbox).Folders("Archive")

      The GetDefaultFolder(olFolderInbox) function takes you right into the main “Inbox” folder, and the .Folders("Archive") will put you in the Archive folder that’s located in the Inbox folder.

      Regards,
      Jim

    2. Dear Marc, could you possibly post once again the entire script with this subfolder-Routine included? Not getting this to work and it would be VERY helpful!
      Regards,
      David

  9. MovetoAction works but the other macros fails with the below error message:

    Compile error:
    Wrong number of arguments or invalid property assignment

  10. I found the solution:

    Sub MoveToWaiting()
    MoveToWaiting (“@Waiting”)
    End Sub

    MoveToWaiting should be changed to MoveToFolder

  11. This is awesome, thank you! Can you tell me how I can get this working with multiple mailboxes? I specified my primary mailbox at “Set moveToFolder = ns.Folders” and everything works great, but I would also like to be able to move email messages to folders within other accounts.

    I have used the cleaner way from the update 5/25/2011
    Cheers

  12. Hi Jim,

    The above example is good. But if we want to move an attachment which is contains a email attachment into another folder, what can be done?

    Thanks
    Sarves

  13. Hi Jim… I write from Caracas (Venezuela), excuse my english… I need to move all mail in “sent” folder to another folder that I create. How I can do…???. I need that this process happen every 6 hours. I use 3 different email accounts on my Outlook-07 and one of those is used by many people for this reason I need to move from time to time the emails that are sent through the account because the mailbox is full. Thank you…Best regards…

  14. Thank you so much for posting this! My carpal tunneled wrists thank you. Being right-handed I’ve been meaning to set up a hot key macro for sometime to avoid the mouse drags from right-to-left that I do repeatedly throughout the day. I get way too many emails…

  15. Hi Jim,

    Thanks for posting up the information, I have implemented this for a few tasks but one of them I am having trouble with.
    I would like to move an email from the inbox to the archive folder. The catch seems to be because I am using google apps sync and the archived folder is the equivilant to the archive function in gmail (removing all tags from an email).

    When I run the code I do not get any response. I have done quite a bit of searching for a solution but cannot come up with anything.

    cheers
    Brad

    ‘Move selected mail item(s) to Archived Folder
    Sub MoveToArchived1()
    On Error Resume Next

    Dim ns As Outlook.NameSpace
    Dim moveToFolder As Outlook.MAPIFolder
    Dim objItem As Outlook.MailItem

    Set ns = Application.GetNamespace(“MAPI”)

    ‘Define path to the target folder
    Set moveToFolder = ns.Folders(“Google Apps – brad.maxwell@ahi-carrier.com.au“).Folders(“[Archived]”)

    If Application.ActiveExplorer.Selection.Count = 0 Then
    MsgBox (“No item selected”)
    Exit Sub
    End If

    If moveToFolder Is Nothing Then
    MsgBox “Target folder not found!”, vbOKOnly + vbExclamation, “Move Macro Error”
    End If

    For Each objItem In Application.ActiveExplorer.Selection
    If moveToFolder.DefaultItemType = olMailItem Then
    If objItem.Class = olMail Then
    objItem.Move moveToFolder
    End If
    End If
    Next

    Set objItem = Nothing
    Set moveToFolder = Nothing
    Set ns = Nothing

    End Sub

    1. i am looking for a script to move to [Archived] folder that shows up in MAPI when using google sync for outlook. Simple logical changes to the script doesn’t work. Any of you find a solution?

  16. Dear Jim,

    I stumbled accross your page, looking for a solution to my problem.
    I do not have the knowledge on the topic (macros for outlook) like you do.
    I have managed to get a script that gives me the e-mail addresses of all the recipients I’ve emailed did not received my email.
    The script works well but what I need but cannot put together is a secondary part within the script that deletes (or moves to a specific folder) these “your message was not delivered” automatic emails from outlook that I get for every not delivered email.
    I am copying the script and I really hope to get an email response from you.
    Your help could really cheer me up man.
    Thanking you in advance…
    ___________________________________________________________

    Sub Extract_Invalid_To_Excel()

    Dim olApp As Outlook.Application
    Dim olExp As Outlook.Explorer
    Dim olFolder As Outlook.MAPIFolder
    Dim obj As Object
    Dim stremBody As String
    Dim stremSubject As String
    Dim i As Long
    Dim x As Long
    Dim count As Long
    Dim RegEx As Object
    Set RegEx = CreateObject(“VBScript.RegExp”)
    Dim xlApp As Object ‘Excel.Application
    Dim xlwkbk As Object ‘Excel.Workbook
    Dim xlwksht As Object ‘Excel.Worksheet
    Dim xlRng As Object ‘Excel.Range

    Set olApp = Outlook.Application
    Set olExp = olApp.ActiveExplorer

    Set olFolder = olExp.CurrentFolder

    ‘Open Excel
    Set xlApp = GetExcelApp
    xlApp.Visible = True
    If xlApp Is Nothing Then GoTo ExitProc

    Set xlwkbk = xlApp.Workbooks.Add
    Set xlwksht = xlwkbk.Sheets(1)
    Set xlRng = xlwksht.Range(“A1”)
    xlRng.Value = “Bounced email addresses”

    ‘Set count of email objects
    count = olFolder.Items.count

    ‘counter for excel sheet
    i = 0
    ‘counter for emails
    x = 1

    For Each obj In olFolder.Items
    xlApp.StatusBar = x & ” of ” & count & ” emails completed”
    stremBody = obj.Body
    stremSubject = obj.Subject

    ‘Check for keywords in email before extracting address
    If checkEmail(stremBody) = True Then
    ‘MsgBox (“finding email: ” & stremBody)
    RegEx.Pattern = “\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b”
    RegEx.IgnoreCase = True
    RegEx.MultiLine = False
    Set olMatches = RegEx.Execute(stremBody)
    For Each match In olMatches
    xlwksht.Cells(i + 2, 1).Value = match
    i = i + 1
    Next match
    ‘TODO move or mark the email that had the address extracted
    Else
    ‘To view the items that aren’t being parsed uncomment the following line
    ‘MsgBox (stremBody)
    End If

    x = x + 1
    Next obj
    xlApp.ScreenUpdating = True
    MsgBox (“Invalid Email addresses are done being extracted”)

    ExitProc:
    Set xlRng = Nothing
    Set xlwksht = Nothing
    Set xlwkbk = Nothing
    Set xlApp = Nothing
    Set emItm = Nothing
    Set olFolder = Nothing
    Set olNS = Nothing
    Set olApp = Nothing
    End Sub

    Function GetExcelApp() As Object
    ‘ always create new instance
    On Error Resume Next
    Set GetExcelApp = CreateObject(“Excel.Application”)
    On Error GoTo 0
    End Function

    Function checkEmail(ByVal Body As String) As Boolean
    Dim keywords(54) As String
    keywords(0) = “Delivery to the following recipients failed”
    keywords(1) = “user unknown”
    keywords(2) = “The e-mail account does not exist”
    keywords(3) = “undeliverable address”
    keywords(4) = “550 Host unknown”
    keywords(5) = “No such user”
    keywords(6) = “Addressee unknown”
    keywords(7) = “Mailaddress is administratively disabled”
    keywords(8) = “unknown or invalid”
    keywords(9) = “Recipient address rejected”
    keywords(10) = “disabled or discontinued”
    keywords(11) = “Recipient verification failed”
    keywords(12) = “no mailbox here by that name”
    keywords(13) = “This user doesn’t have a yahoo.com account”
    keywords(14) = “No mailbox found”
    keywords(15) = “Domain name not found”
    keywords(16) = “mailbox unavailable”
    keywords(17) = “Mailbox disabled”
    keywords(18) = “mailbox is inactive”
    keywords(19) = “address error”
    keywords(20) = “unknown recipient”
    keywords(21) = “unknown user”
    keywords(22) = “mail to the recipient is not accepted on this system”
    keywords(23) = “no user with that name”
    keywords(24) = “invalid recipient”
    keywords(25) = “Domain name not found”
    keywords(26) = “DNS Error”
    keywords(27) = “Delivery to the following recipient has been delayed”
    keywords(28) = “Delivery to the following recipient failed permanently”
    keywords(29) = “This is an automatically generated Delivery Status Notification”
    keywords(30) = “The error that the other server returned was”
    keywords(31) = “This message was created automatically by mail delivery software”
    keywords(32) = “mailbox is full”
    keywords(33) = “out of the office”
    keywords(34) = “Could not be delivered because of”
    keywords(35) = “The e-mail address you entered couldn’t be found”
    keywords(36) = “The recipient’s e-mail address was not found”
    keywords(37) = “An error occurred while trying to deliver this message”
    keywords(38) = “Your message can’t be delivered because delivery to this address is restricted”
    keywords(39) = “This is a permanent error; I’ve given up. Sorry it didn’t work out”
    keywords(40) = “A message that you sent could not be delivered to one or more of its recipients”
    keywords(41) = “I’m sorry to have to inform you that your message could not be delivered to one or more recipients”
    keywords(42) = “You are not allowed to post to this mailing list, and your message has been automatically rejected”
    keywords(43) = “The recipient’s mailbox is full and can’t accept messages now”
    keywords(44) = “Failed to deliver to”
    keywords(45) = “A problem occurred during the delivery of this message to this e-mail address”
    keywords(46) = “The following addresses had permanent fatal errors”
    keywords(47) = “5.3.0”
    keywords(48) = “5.4.6”
    keywords(49) = “Mailbox quota exceeded”
    keywords(50) = “The message you sent requires that you verify that you are a real live human being and not a spam source”
    keywords(51) = “I AM CURRENTLY ON ANNUAL LEAVE”
    keywords(52) = “out of the office”
    keywords(53) = “e-mail address has changed”
    keywords(54) = “Technical details of permanent failure”

    ‘Default value
    checkEmail = False
    For Each word In keywords
    If InStr(1, Body, word, vbTextCompare) > 1 Then
    checkEmail = True
    Exit For
    End If
    Next word
    End Function

  17. Hi,
    In outlook there are two ways to move a message – with keyboard shortcut (ctrl shift v) and with the mouse (move to folder option).
    The second option shows a cache of several last folder that I moved emails to.

    How can I make a macro to combine between those two options?
    E.g. Press a combination of keys and get the last folders I moved emails to + the option to browse and select a folder?

    Thanks
    Yossi

  18. Appreciate this is quite old now but I’m having an issue using your code to move an email to a public folder and was wondering if you could help.
    The code works fine moving an email from a Public Folder to my personal inbox but not from my inbox to a Public folder. I think I’m just getting the syntax wrong but maybe it’s something more technical?
    In the Outlook folder tree this is the path
    Public Folders>All Public Folders>Suspect Email>Submitted
    I changed you code to below but it says “target not found”
    Set moveToFolder = ns.Folders("Public Folders").Folders("All Public Folders").Folders("Suspect Email").Folders("Submitted")

    1. Thom, what version of Outlook are you using? We just upgraded to 2010, and as Marc mentioned above, I found that I was able to replace all my Outlook home grown VB scripts described here using the built-in Quick Steps feature.

      It sounds like there must be something wrong with the path to your folder. One thing you might try is to use the built in default folder constant for the “Public Folders – All Public Folders” folder. Example:
      Set moveToFolder = ns.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Suspect Email").Folders("Submitted")

      Jim

  19. I got this code to work for me. Is there a way to add to the code so that it will also move the message and mark it as read, at the same time?

    1. Yes. I haven’t tested this, but try adding the following line to the section in the script that is moving the email to the folder:

      ...
      objItem.UnRead = False
      objItem.move MoveToFolder
      ...

  20. It’s really a great and useful piece of information. I’m
    satisfied that you shared this useful info with us.
    Please stay us up to date like this. Thank you
    for sharing.

  21. Thanks for this! I have a complex folder hierarchy and limited storage space. I’m regularly manually dragging and dropping to archive. This really helps reduce the time I spend managing my email.

  22. Hi, Big thanks for the code. I am using Outlook 2007 and it really saves my day!!! I find the code works very well on individual mails or all selected mails. But it does NOT work when my inbox was viewed by threaded view: Choose [View] -> [Arrange by] -> [Conversation] and selecting the subject line.

    If I need to move all the mails under the same “subject”, I need to select all mails under the same subject. Selecting the subject will not work.
    However, original [Move to Filder](CTRL+SHIFT+V) works by simply selecting the subject line.

    Is there any way to improve the code to make it work on the threaded view ?
    thanks !

  23. I am surprised that people use Macros for Outlook as well. I just learned about macros recently. I found a book that focuses on Macros for Excel, hoping to learn that quickly. I read somewhere that the best way to learn Macros is to actually learn Visual Basic. Now that I see how effective it can be for an application such as Outlook I am wondering if this guy was right. I wonder what else I could do with it. And if it is such an effective tool why not?

    What do you guys think?

    Would learning Visual Basic make me proficient with Macros for Excel or Outlook? Or would that be something I would still need to learn?

    Someone school me please!

  24. Great, except I am trying to create the macro to run on an added mailbox – a group mailbox. Cannot quite get the path right. Any ideas?

  25. hi – i might be being really dumb here but my office outlook just gives me a greyed out screen where I can’t paste anything…….

    there might be a step missing with the original instructions, as when I select macros from tools and then vb editor, the paste function is inoperative?

    Can anyone please help?

    Thanks

    Sam

  26. First off, THANKS for breaking this down and sharing. I was able to take what you created and customize it to my needs.

    I had a question, is there a way to move an email to a separate PST that is in the same profile? For example right now the macro will move an email to a folder within the same PST file. To keep my PST file small, I have a secondary data PST file added to my Outlook profile and I drag emails into this separate archive PST.

    Can you share how to set the path to this secondary data PST file?

  27. Thank you for the post. Very useful!! Quick question,
    Every time I use the macro the time of the received email change. So for example I received an email at 7:00am and then move it (using the macro) at 8 am, when I go to the archive folder the time of the receive is 8 am (and not 7am).
    Do you you know why? is something that we can do about it? Thanks!

  28. Hi Jim,

    I want to add an automation to yore VBA script, I want all mails that are in the INBOX folder and older then 60 days will be moved to sub folder “OLD” (under INBOX),
    Can you help with this issue ?

    Thanks

  29. I have bits and pieces of this macro working. I have a ton of subfolders and I can only get the macro to scan my inbox and move folders into an archive. Currently to get subfolders, I need to manually add them. Can you please help setting it up so it will go subfolder to subfolder and move everything greater than 30 days

  30. Hi ,

    Please if you could help me or point me in the right direction I would really appreciate it.

    This is a work/business based question.

    In my team we use outlook 2010 and have a shared inbox that receives emails via an email address assigned within the network. As we currently receive in upwards of 500 emails per day we have a rule set to make a duplicate of each email and place it into a folder named “originals”, all happening at the same point the original email is received in the main inbox. We do this so that we have a back-up just in case something goes missing or is deleted by mistake from the main inbox.

    As email items come in to our main inbox, a person will assign a category and colour to that email. This is due to some requests having a greater importance or a time sensitivity, and therefore a greater priority for the request to be completed. We need to read the email in order to assign the correct category, so it is a process that involves scrutiny.

    From a data collection perspective it would be great if we could have “a rule” or “a macro running” that automatically assigns the same category to the duplicate email located in the folder named “originals” at the same time the category is assigned in the main inbox. This would enable me to accurately calculate on a daily basis how many items have been completed per category. At the moment it is difficult as the agents churn through the emails and I have nothing to compare to at the end of the day.

    I hope this is something that can be achieved.

    Thanks in advance,

  31. I’d like to move mail from an Outlook archive folder, what is the syntax to identify an archive folder? Specifically rather than move selected emails, I’d like to move all messages in an archive called Inbox to my primary inbox.

  32. Hi Jim,

    I tried your code, but i am sure i am missing some steps.
    I am trying to move email from one Mailbox to Another Mailbox. this is not a PST file.
    they are online mailbox which i have configured in Outlook 2010

    the first mailbox is Sukhd and other mailbox is Archive – Sukhd mailbox.
    i have close to 5gb of deleted items in my Mailbox (Sukhd) and i want them to be moved to Archive Mailbox- Sukhd > Deleted items

    the further i wish to categories those email according to their dates, ie 4 yearly quarter wise (will be easier for me to find my emails)

    can this be done? I have been trying from a lot time but still it doesnt work

  33. I’ve tried this code with Outlook 2010 and when I select a bunch of items in the source folder it will loop through the items until it hits a non-mail item (like an appointment or meeting acceptance). At that point it just dies, it doesn’t look at the other items to see if they’re legitimate to move or not. Curious if anyone else has had this problem and how I get around it.

  34. Hello all. Greetings from Down Under.
    Wanted: Macro for converting selected emails to Word docs. Outlook 2007 on XP.
    I want to “copy” the content of any number of selected emails (from 20 to 200 or more per subject, almost all text only) into one Word document each. (Then I want to manually delete unwanted text from each Word doc, so that what remains is only the text I want to retain for each topic). Below is a manual procedure for copying, or converting, to Word that works. I have up to hundreds of emails on different topics (almost 100 topics). Could a Macro “automate” the manual procedure?

    I assume/hope the Macro would ask me to “select” the emails to be copied, type the title of each selection (for the resulting Word doc) and the destination folder, or folders, for the Word doc(s). However, I can live with all the Word docs, each uniquely titled, to be sent to one specific destination folder.

    Found on a eHow website page:

    Instructions – for converting selected OL 2007 emails to a Word doc.
    o 1
    Launch Microsoft Outlook on your computer. Highlight all of the email messages in your inbox that you want to export to Word.
    o 2
    Click “File” then “Save As” on the Outlook ribbon bar. Enter a descriptive name for export file and then select “Text Only” from the “Save as type:” drop-down box. Click the “Save” button. Outlook saves the messages in a consolidated text file in the folder you choose.
    o 3
    Right-click “Start” and then click “Open Windows Explorer” on the pop-up menu. Open the folder containing the text file you created in Outlook.
    o 4
    Right-click the text file and then click “Open with” and then “Microsoft Word” on the pop-up menu. Microsoft Word launches on the computer.
    o 5
    Click the “Windows Default” option in the “File Conversion” window. Click the “OK” button. Microsoft Opens the text document and displays all the email messages.
    o 6
    Click “File” and then “Save As” on the ribbon bar. Change the file type to “.DOC” or “.DOCX” depending on your needs. Word saves the imported Outlook messages in the chosen document format.

    Read more : http://www.ehow.com/how_8212091_software-outlook-2007-emails-word.html

    Actually, I think I can live with the converted text (before conversion to Word).

    Would really appreciate your advice/instructions. My situation has arisen following an extended period of many years of profoundly sad inability to deal with the incoming emails, and now at last also wanting/having to upgrade to Windows 7 (and Outlook 2013). jdeboer@nsw/chariot.net.au Thank you very much – and thanks to jmerrell!.

  35. Details: I want to perform action on existing email.

    Issue: Below code creating new email.

    Set OutApp = GetObject(, “Outlook.Application”)
    Set OutMail = OutApp.CreateItem(0)

    Please let me know how to perform action on existing opened email?

  36. ‘My solution for moving emails into nested mail-folders

    ‘Outlook VB Macro to move selected mail item(s) to a target folder
    Sub MoveToFolder(targetFolderLV1, Optional targetFolderLV2, Optional targetFolderLV3, Optional targetFolderLV4)
    On Error Resume Next

    Const boolFoldersSiblingsOfInbox As Boolean = False ‘TRUE if mailfolders are at the same level as INBOX, false of mailfolders are below INBOX
    Const strMailbox As String = “XXXXXXXXX” ‘Don’t forget to put in your mailbox name as it appears in Outlook navigation pane

    Dim ns As Outlook.NameSpace
    Dim MoveToFolder As Outlook.MAPIFolder
    Dim objItem As Outlook.MailItem

    Set ns = Application.GetNamespace(“MAPI”)

    If boolFoldersSiblingsOfInbox = True Then
    If Not IsMissing(targetFolderLV2) Then
    If Not IsMissing(targetFolderLV3) Then
    If Not IsMissing(targetFolderLV4) Then
    Set MoveToFolder = ns.Folders(strMailbox).Folders(targetFolderLV1).Folders(targetFolderLV2).Folders(targetFolderLV3).Folders(targetFolderLV4)
    Else
    Set MoveToFolder = ns.Folders(strMailbox).Folders(targetFolderLV1).Folders(targetFolderLV2).Folders(targetFolderLV3)
    End If
    Else
    Set MoveToFolder = ns.Folders(strMailbox).Folders(targetFolderLV1).Folders(targetFolderLV2)
    End If
    Else
    Set MoveToFolder = ns.Folders(strMailbox).Folders(targetFolderLV1)
    End If
    Else
    If Not IsMissing(targetFolderLV2) Then
    If Not IsMissing(targetFolderLV3) Then
    If Not IsMissing(targetFolderLV4) Then
    Set MoveToFolder = ns.Folders(strMailbox).Folders(“Inbox”).Folders(targetFolderLV1).Folders(targetFolderLV2).Folders(targetFolderLV3).Folders(targetFolderLV4)
    Else
    Set MoveToFolder = ns.Folders(strMailbox).Folders(“Inbox”).Folders(targetFolderLV1).Folders(targetFolderLV2).Folders(targetFolderLV3)
    End If
    Else
    Set MoveToFolder = ns.Folders(strMailbox).Folders(“Inbox”).Folders(targetFolderLV1).Folders(targetFolderLV2)
    End If
    Else
    Set MoveToFolder = ns.Folders(strMailbox).Folders(“Inbox”).Folders(targetFolderLV1)
    End If
    End If

    If Application.ActiveExplorer.Selection.Count = 0 Then
    MsgBox (“No item selected”)
    Exit Sub
    End If

    If MoveToFolder Is Nothing Then
    MsgBox “Target folder not found!”, vbOKOnly + vbExclamation, “Move Macro Error”
    End If

    For Each objItem In Application.ActiveExplorer.Selection
    If MoveToFolder.DefaultItemType = olMailItem Then
    If objItem.Class = olMail Then
    objItem.Move MoveToFolder
    End If
    End If
    Next

    Set objItem = Nothing
    Set MoveToFolder = Nothing
    Set ns = Nothing

    End Sub
    Sub MoveToRecruiter()
    MoveToFolder “JOBS”, “Recruiter”
    End Sub
    Sub MoveToOffered()
    MoveToFolder “JOBS”, “Offered”
    End Sub
    Sub MoveToApplied()
    MoveToFolder “JOBS”, “Applied”
    End Sub
    Sub MoveToConfirmed()
    MoveToFolder “JOBS”, “Confirmed”
    End Sub
    Sub MoveToDeclined()
    MoveToFolder “JOBS”, “Declined”
    End Sub
    Sub MoveToRefused()
    MoveToFolder “JOBS”, “Refused”
    End Sub
    Sub MoveToInterview()
    MoveToFolder “JOBS”, “Interview”
    End Sub

  37. Hi! Really thanks for your macro, but i have one little request:

    I have shared mailbox and personal mailbox, and i want by one click move all mails from shared inbox to personal inbox – how i can do this?

    Help me, please!

    1. that’s what the

      ‘Define path to the target folder
      Set moveToFolder = ns.Folders(“Mailbox – Jim Merrell”).Folders(“@Filed”)

      block does… if you replace with the mailbox name you see in the mail folders view it will send the mail to the correct mailbox’s folder (you can test this by only creating the target folder in the mailbox you want to move to and making sure there isn’t a folder with the same name in the shared mailbox)

  38. thank you for this. It has been a long time since I messed with macros and VBA. I just wanted to move one particular item i selected from my Inbox to a particular new folder I created. With the insight I had already about VB and debugging, this gave me the jump start to make the modifications to do that. I couldn’t see the MAPIFolder class but like i said, this work you did was huge in getting me in the ballpark to what worked for me.
    Dim moveToFolder As Outlook.MAPIFolder
    Thank you so much

  39. Hello I wanted to modify your script with your permission. I changed the folders but it tells me target folder not found. My hierarchy is inbox with no sub folders and below that I have several archive folders with sub folders. These are the folders I would like to use. Could you please explain how to accomplish this task? Thank you.

  40. Hello Jim…I figured it out. However, is it possible to move only the emails that have a sdm ticket category assigned to it to a folder like the one I mentioned above. Basically I want to have a script that will read the body of an email that says “sdm ticket request closed by Allen”. Then based off of that email go thru and move the email that has the sdm ticket category and move that to a specific folder which is archive 10 years and the sub folder sdm tickets closed. Thank you and sorry for the confusion. I tried to post a png file of my folder structure to give you a better understanding.

  41. Hello I would like to write a macro which moves emails automatically to a target folder.
    My Problem is, that the target folder should be selected automatically if I´m in a conversation.
    E.g. my friend David is writing an email to me, I save this email in the folder “David”. After that, I answer him.
    And if he answers to my email again, the macro should save this email in the folder, where the older email is saved, automatically.
    Does anyone know, how I can get the Information in which folder the older email of the conversation is saved and how I can assign it to the target folder in my macro?
    Thank you

  42. I’m running in to the issue of having student folders that emails need to go into. We have over 1000 student sub folders that emails need to be filed in. Is there a way to do this without entering every destination ? Possibly an IF THEN statement ?

  43. Hi Jim,

    Great post and great macro!

    In my Outlook mailbox, on the same level as “Inbox”, “Sent items”, “Outbox”, etc., there’s a folder named “(Business Critical Mail Items)” — this is a folder where stored items get deleted automatically after a certain period, according to my company’s policy.

    I’d like to adapt and run your macro to automatically store emails under that folder, but I could not figure out how to get the path to that folder…

    Any ideas of how to get the path of this folder?
    I hope my question is clear enough! i’d be happy to clarify if not.

    Many, many thanks!

    Emmanuel

  44. I want to have a macro archive emails with specific keywords in the subject line. Can i do this using the macro you have posted here?

    For example, I want to archive all emails that contain “MB” or “Mission Bay” (or any other keywords I want) in the subject of the email, can it be done using macros?

  45. hello master Jim,
    if you may, could you please teach me how to copy/backup INDIVIDUAL email in SENT ITEMS to another folder outside the outlook.(i.e. from outlook Sent Items Items copy to BackupFolder located in Drive G.

    please help me, it would be great if so. 😀
    thank you!

  46. Hello

    I need to file all my emails to different folders. Since I have several folders, I can’t create a macro for each folder.

    It is possible to have to enter the folder name?

    Thanks

  47. I used the below code:

    Sub move2folder() On Error Resume Next

    Set objOutlook = CreateObject(“Outlook.Application”)
    Set objNamespace = objOutlook.GetNamespace(“MAPI”)
    Set objFolderSrc = objNamespace.GetDefaultFolder(olFolderInbox)
    Set objFolderDst = objFolderSrc.Folders(“_Reviewed”)

    Set colItems = objFolderSrc.Items
    Set colFilteredItems = colItems.Restrict(“[UnRead] = False”)

    For Each objMessage In colFilteredItems
    objMessage.move objFolderDst
    Next
    End Sub

    It moved all read emails to _reviewed Folder ..but

    I want :

    create a folder under inbox with Sender Name / if the name folder already available ignore and move to that folder

    pls Help

  48. Hello Jim,

    I am very new to VBA and would like to design VBA code to permanently delete the selected email by clicking on a button instead of pressing Shift and Delete and then pressing return.

    Can you help me with the code?

    Thank You

  49. Hi Jim,

    I’m looking for a method to test if an email has been previously copied in an exchange subfolder below inbox.

    Do you know how to do that?
    I want to avoid duplicates before copy/paste my inbox emails…

    I try to check EntryID of original and copied emails but they are differents…

    Any idea?

    Thanks and have a nice day!
    François

  50. I found this macro below and I like it but I can’t seem to get it to work by modifying it to create the category in my Personal Folders on the same level as Inbox (outside of Inbox), along with moving it to the category in the Personal Folders. Any chance I can get some help? Thanks in advance.

    Private WithEvents xInboxFld As Outlook.Folder
    Private WithEvents xInboxItems As Outlook.Items

    Private Sub Application_Startup()
    Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set xInboxItems = xInboxFld.Items
    End Sub

    Private Sub xInboxItems_ItemChange(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xFlds As Outlook.Folders
    Dim xFld As Outlook.Folder
    Dim xTargetFld As Outlook.Folder
    Dim xFlag As Boolean
    On Error Resume Next
    If Item.Class = olMail Then
    Set xMailItem = Item
    xFlag = False
    If xMailItem.Categories “” Then
    Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
    If xFlds.Count 0 Then
    For Each xFld In xFlds
    If xFld.Name = xMailItem.Categories Then
    xFlag = True
    End If
    Next
    End If
    If xFlag = False Then
    Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
    End If
    Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
    xMailItem.Move xTargetFld
    End If
    End If
    End Sub

  51. Hi,

    How can I move mails automatically everyday from a folder to another folder(both are non-inbox folder) in outlook using macros or any other way?
    Please help on this.
    Thanks in advance

Leave a Reply

Your email address will not be published. Required fields are marked *