Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 08-19-2017, 05:14 PM
Jennifer Murphy's Avatar
Jennifer Murphy Jennifer Murphy is offline Any way to move multiple email folders? Windows XP Any way to move multiple email folders? Office 2007
Competent Performer
Any way to move multiple email folders?
 
Join Date: Aug 2011
Location: Silicon Valley
Posts: 234
Jennifer Murphy is on a distinguished road
Default Any way to move multiple email folders?

In the hierarchical folders view, I can select multiple emails and move them to another folder by either dragging them or using Edit | Move to Folder. I can do the same with folders, but only one at a time because Outlook will not let me select multiple folders.

Is there any way for me to move more than 1 folder at a time?

I ma reorganizing me email folder structure and I have hundreds of folders to move.



Using Outlook 2010.
Reply With Quote
  #2  
Old 08-20-2017, 10:21 PM
gmayor's Avatar
gmayor gmayor is offline Any way to move multiple email folders? Windows 10 Any way to move multiple email folders? Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

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
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #3  
Old 08-21-2017, 06:42 AM
Jennifer Murphy's Avatar
Jennifer Murphy Jennifer Murphy is offline Any way to move multiple email folders? Windows XP Any way to move multiple email folders? Office 2007
Competent Performer
Any way to move multiple email folders?
 
Join Date: Aug 2011
Location: Silicon Valley
Posts: 234
Jennifer Murphy is on a distinguished road
Default

Quote:
Originally Posted by gmayor View Post
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.
Thanks for that macro. Sadly, I didn't do a very good job of describing the problem. I don't want to move all of the subfolders to the same new home. I want to move some to Folder A, some to Folder B, and some to Folder C, based on their contents.

Here's an example:

Code:
\Open
  \Arthur (2011)
  \Brown (2012)
  \Clifford (2014)
  \Miller (2011)
  \Smith (2012)
  \Wilson (2013)
    . . .
\Closed
  \2010
  \2011
  \2012
  \2013
  \2014
I want to move all of the folders for cases in 2011 to \Closed\2011, all that were in 2012 to \Closed\2012, etc.

If they were emails, I could select multiple items using Click, Ctrl+Click, Shift+Click, and Ctrl+Shift+Click. For some incomprehensible reason, the geniuses at M$FT decided not to provide that functionality for folders.

Is there any way to get the macro to let me select individual, non-consecutive, source folders and then a single target folder?

Thanks
Reply With Quote
Reply

Thread Tools
Display Modes


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
Any way to move multiple email folders? User cannot move email messages within Outlook Inbox folder and sub-folders. Darsss Outlook 5 06-06-2011 11:37 PM
Any way to move multiple email folders? 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

Other Forums: Access Forums

All times are GMT -7. The time now is 09:22 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft