Any way to move multiple email folders?

gmayor · #2 08-20-2017, 10:21 PM

You should be able to take the drudgery out of the task by using a simple macro to move the folders from one location to another using a simple loop (or loops if more than one pair of locations) e.g. to move all the folders from subfolder1 of Inbox to subfolder2 of inbox, the following will work. You just have to set the source and target folder locations appropriately.

Code:

Sub MoveFolders()
'Graham Mayor - http://www.gmayor.com - Last updated - 21 Aug 2017
Dim olSourceFolder As Folder
Dim olTargetFolder As Folder
Dim lngFldr As Long

    Set olSourceFolder = Session.GetDefaultFolder(olFolderInbox).folders("Subfoldername1")
    Set olTargetFolder = Session.GetDefaultFolder(olFolderInbox).folders("Subfoldername2")

    For lngFldr = olSourceFolder.folders.Count To 1 Step -1
        olSourceFolder.folders(lngFldr).MoveTo olTargetFolder
    Next lngFldr
lbl_Exit:
    Set olSourceFolder = Nothing
    Set olTargetFolder = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create multiple copies of same email in multiple folders	gaker10	Outlook	0	10-06-2014 07:44 AM
Move Outlook folders from old HD to new HD	Dennism	Outlook	1	01-30-2012 11:51 AM
User cannot move email messages within Outlook Inbox folder and sub-folders.	Darsss	Outlook	5	06-06-2011 11:37 PM
trying to move pesonal folders to new computer	mstruhs	Outlook	1	02-24-2010 10:07 PM
How do I move file folders ..please?	steve e	Outlook	0	05-15-2008 10:21 AM