<div>
Sharath, 
 
I have a solution for this. &nbsp;That solution comes in three parts. &nbsp;This is part 1 of 3. 
 
 
Follow these instructions to use this. 
 
1. &nbsp;Start Outlook 
2. &nbsp;Click Tools &gt;&nbsp;Macro &gt;&nbsp;Visual Basic Editor 
3. &nbsp;If not already expanded, expand Microsoft Office Outlook Objects 
4. &nbsp;Right-click on Class Modules, select Insert &gt;&nbsp;Class Module 
5. &nbsp;In the Properties panel click on Name and enter MultiFolderMover 
6. &nbsp;Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window 
7. &nbsp;Edit the code as needed. &nbsp;I included comments wherever something needs to or can change 
8. &nbsp;Click the diskette icon on the toolbar to save the changes 
9. &nbsp;Close the VB Editor 
 
 

<pre><code class="code-10 nolinks" id="code-275050">Const CLASSNAME = &quot;Multiple Folder Mover&quot;
Public olkRoot As Outlook.Folder
Private objFolders As Collection, olkDest As Outlook.Folder
 
Private Sub Class_Initialize()
 Set olkRoot = Outlook.Application.ActiveExplorer.CurrentFolder
 Set objFolders = New Collection
End Sub
 
Private Sub Class_Terminate()
 Set olkRoot = Nothing
 Set objFolders = Nothing
End Sub
 
Public Sub Move()
 Dim olkFolder As Outlook.Folder, varName As Variant
 If (objFolders.Count &gt; 0) And (TypeName(olkDest) &lt;&gt; &quot;Nothing&quot;) Then
 If MsgBox(&quot;Are you sure you want to move &quot; &amp; objFolders.Count &amp; &quot; folders to &quot; &amp; olkDest.Name &amp; &quot;?&quot;, vbQuestion + vbYesNo, CLASSNAME) = vbYes Then
 For Each varName In objFolders
 Set olkFolder = OpenOutlookFolder(olkRoot.FolderPath &amp; &quot;\&quot; &amp; CStr(varName))
 olkFolder.MoveTo olkDest
 Next
 Else
 MsgBox &quot;Move aborted by user.&quot;, vbInformation + vbOKOnly, CLASSNAME
 End If
 Else
 MsgBox &quot;Either or both the source and destination folders have not been selected. Move aborted.&quot;, vbCritical + vbOKOnly, CLASSNAME
 End If
End Sub
 
Public Sub SelectDestination()
 Set olkDest = Outlook.Application.Session.PickFolder()
End Sub
 
Public Sub SelectSource()
 Dim objDialog As New frmFolderChooser, _
 intIndex As Integer
 objDialog.Show
 If objDialog.bolSelected Then
 For intIndex = 0 To objDialog.lbFolders.ListCount - 1
 If objDialog.lbFolders.Selected(intIndex) Then
 objFolders.Add olkRoot.Folders(objDialog.lbFolders.List(intIndex))
 End If
 Next
 Else
 MsgBox &quot;You did not select any folders.&quot;, vbCritical + vbOKOnly, CLASSNAME
 End If
 Unload objDialog
End Sub
 
Function IsNothing(obj)
 If TypeName(obj) = &quot;Nothing&quot; Then
 IsNothing = True
 Else
 IsNothing = False
 End If
End Function
 
Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
 Dim arrFolders As Variant, _
 varFolder As Variant, _
 olkFolder As Outlook.MAPIFolder
 On Error GoTo ehOpenOutlookFolder
 If strFolderPath = &quot;&quot; Then
 Set OpenOutlookFolder = Nothing
 Else
 Do While Left(strFolderPath, 1) = &quot;\&quot;
 strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
 Loop
 arrFolders = Split(strFolderPath, &quot;\&quot;)
 For Each varFolder In arrFolders
 If IsNothing(olkFolder) Then
 Set olkFolder = Session.Folders(varFolder)
 Else
 Set olkFolder = olkFolder.Folders(varFolder)
 End If
 Next
 Set OpenOutlookFolder = olkFolder
 End If
 On Error GoTo 0
 Exit Function
ehOpenOutlookFolder:
 Set OpenOutlookFolder = Nothing
 On Error GoTo 0
End Function
</code></pre>
</div>

<div>
This is part 2 of 3. 
 
Follow these instructions for this part. 
 
1. &nbsp;Start Outlook 
2. &nbsp;Click Tools &gt;&nbsp;Macro &gt;&nbsp;Visual Basic Editor 
3. &nbsp;If not already expanded, expand Microsoft Office Outlook Objects and click on Module1 
4. &nbsp;Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window 
5. &nbsp;Edit the code as needed. &nbsp;I included comments wherever something needs to or can change 
6. &nbsp;Click the diskette icon on the toolbar to save the changes 
7. &nbsp;Close the VB Editor 
 
 

<pre><code class="code-1 nolinks" id="code-275052">Sub MoveMultipleFolders()
 Dim objMFM As New MultiFolderMover
 With objMFM
 .SelectSource
 .SelectDestination
 .Move
 End With
 Set objMFM = Nothing
End Sub
</code></pre>
</div>

frmFolderChooser.zip

<div>
Thanks a lot David... 
 
I get this 
--------------------------- 
Microsoft Visual Basic 
--------------------------- 
Compile error: 
 
Expected user-defined type, not project 
--------------------------- 
OK &nbsp; Help &nbsp; 
--------------------------- 

</div>

<div>
Where does the error occur? &nbsp;
</div>

<div>
When i run the macro i get the above error and this line shows as selected. 
 
Dim objMFM As New MultiFolderMover 

</div>

<div>
Did you follow all of the instructions in part 1 exactly? &nbsp;If so, the you should have a class module named MultiFolderMover. &nbsp;The error suggests that there is no such class module.
</div>

<div>
Ok i could not name the class i get this 
--------------------------- 
Microsoft Visual Basic 
--------------------------- 
Name conflicts with existing module, project, or object library 
--------------------------- 
OK &nbsp; Help &nbsp; 
--------------------------- 
 
So i named the name as project name 
I searched all but did not find a similar &quot;MultiFolderMover&quot;
</div>

<div>
Did you create a code module named MultiFolderMover? &nbsp;If so, then that's the problem.
</div>

<div>
Thanks a lot David that was one Awesome Form... :-))
</div>

<div>
Any help on this please... 
<a href="https://www.experts-exchange.com/questions/24228724/Copy-Experts-exchange-mail's-from-experts-to-newly-created-folders-as-per-experts-names.html" rel="ugc">https://www.experts-exchange.com/questions/24228724/Copy-Experts-exchange-mail's-from-experts-to-newly-created-folders-as-per-experts-names.html</a>
</div>

<div>
Thanks, and you're welcome. &nbsp;I'll take a look at the other question.
</div>

<div>
<div class="content wysiwyg-content">
Hi, 
 
Cut paste multiple folders in Outlook. Any script that can help moving multiple folders in one shot. 
I have a very large no of folders in my outlook in multiple pst's . Now when i need to move (Cut) and paste a few folders from one pst to another .It becomes very difficult. is there any way to select multiple folders and right click cut and paste in the desired path. 
 
Regards 
Sharath
</div>
</div>

Hi,

Cut paste multiple folders in Outlook. Any script that can help moving multiple folders in one shot.
I have a very large no of folders in my outlook in multiple pst's . Now when i need to move (Cut) and paste a few folders from one pst to another .It becomes very difficult. is there any way to select multiple folders and right click cut and paste in the desired path.

Regards
Sharath

Cut paste multiple folders in Outlook. Any script that can help moving multiple folders in one shot.

Microsoft Outlook is a personal information manager from Microsoft, available as a part of the Microsoft Office suite. Although often used mainly as an email application, it also includes a calendar, task manager, contact manager, note-taker, journal, and web browser.

Outlook

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Microsoft Applications

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.