Move folders and subfolders with EWS Managed API, in Exchange Online
Remaining on the same note from my previous post that speaks about email messages moves from a source folder to a target folder, I considered taking into account also the scenario where OWA users would like to move folders along with their subfolders under a target folder. If you use Outlook, you can easily perform this task by dragging and dropping the source folder under the target folder. However, if you use only OWA and try it out, you may receive the below error message:
Prerequisites:
-Create a new RBAC group from Exchange Admin Center – Permissions – Admin Roles. Add the ‘ApplicationImpersonation’ role to the group and add as member the service account that will impersonate the mailbox where the folders are created (it can be your Global Admin account).
-Create a log file under C:\Temp\Log.txt.
-Make sure that the source and the target folders have unique names within the folder structure they're part of (primary or archive mailbox folder structure). If they don't, you can simply rename them, run the script, and then give them back their original names.
DISCLAIMER: This application is a sample application. The sample is provided "as is" without warranty of any kind. Microsoft further disclaims all implied warranties including without limitation any implied warranties of merchantability or of fitness for a particular purpose. The entire risk arising out of the use or performance of the samples remains with you. in no event shall Microsoft or its suppliers be liable for any damages whatsoever (including, without limitation, damages for loss of business profits, business interruption, loss of business information, or other pecuniary loss arising out of the use of or inability to use the samples, even if Microsoft has been advised of the possibility of such damages). Because some states do not allow the exclusion or limitation of liability for consequential or incidental damages, the above limitation may not apply to you.
# The script requires EWS Managed API 2.2, which can be downloaded here:
https://www.microsoft.com/en-gb/download/details.aspx?id=42951
# Make sure the Import-Module command matches the Microsoft.Exchange.WebServices.dll location of EWS Managed API, chosen during the installation
[string]$warning = "Yellow" # Color for warning messages
[string]$error = "Red" # Color for error messages
[string]$LogFile = "C:\Temp\Log.txt" # Path of the Log File
#Read the data
$MailboxName = Read-Host -Prompt ‘Please type your mailbox name’
$a = Read-Host -Prompt ‘Please type the source folder name’
$b = Read-Host -Prompt ‘Where is the source folder located? (Type “primary” or “archive”)’
$c = Read-Host -Prompt ‘Please type the target folder name’
$d = Read-Host -Prompt ‘Where is the target folder located? (Type “primary” or “archive”)’
$i=0;
$FolderId = @();
$FolderName = “$a”,”$c”
$Location = “$b”,”$d”
Import-Module -Name “C:\Program Files\Microsoft\Exchange\Web Services\2.2\Microsoft.Exchange.WebServices.dll”
$service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService -ArgumentList Exchange2013_SP1
#Provide the credentials
$credential = Get-Credential -Message "Provide the credentials of the O365 account that has impersonation rights on the mailbox $($MailboxName)"
$service.Credentials = new-object Microsoft.Exchange.WebServices.Data.WebCredentials -ArgumentList $credential.UserName, $credential.GetNetworkCredential().Password
#Exchange Online URL
$service.Url= new-object Uri(“https://outlook.office365.com/EWS/Exchange.asmx”)
#User to impersonate
$service.ImpersonatedUserId = new-object Microsoft.Exchange.WebServices.Data.ImpersonatedUserId([Microsoft.Exchange.WebServices.Data.ConnectingIdType]::SmtpAddress,$MailboxName)
While ($i -lt 2)
{
if ($Location[$i] -eq ‘primary’)
{
$FolderView = new-object Microsoft.Exchange.WebServices.Data.FolderView(100)
$FolderView.Traversal = [Microsoft.Exchange.Webservices.Data.FolderTraversal]::Deep
$SearchFilter = new-object Microsoft.Exchange.WebServices.Data.SearchFilter+IsEqualTo([Microsoft.Exchange.WebServices.Data.FolderSchema]::DisplayName,$FolderName[$i])
$FindFolderResults = $service.FindFolders([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::MsgFolderRoot,$SearchFilter,$FolderView)
if($FindFolderResults.Id)
{
Write-host “The folder” $FolderName[$i] “was successfully found in the primary mailbox” -ForegroundColor $warning
$FolderId += $FindFolderResults.Id
$i++;
continue;
}
else
{ Write-host “The folder” $FolderName[$i] “was not found in the primary mailbox” -ForegroundColor $warning; $i++; continue;}
}
else
{
$j=0;
$Mbx = (Get-Mailbox $MailboxName)
if ($Mbx.ArchiveStatus -eq ‘Active’){ $guid=($Mbx.ArchiveGuid).ToString();
(Get-MailboxFolderStatistics $guid).Name | % { $j++;
if ($FolderName[$i] -match $_) {
Write-host “The folder” $FolderName[$i] “was successfully found in the archive mailbox” -ForegroundColor $warning
$AFolderView = new-object Microsoft.Exchange.WebServices.Data.FolderView(100)
$AFolderView.Traversal = [Microsoft.Exchange.Webservices.Data.FolderTraversal]::Deep
$ASearchFilter = new-object Microsoft.Exchange.WebServices.Data.SearchFilter+IsEqualTo([Microsoft.Exchange.WebServices.Data.FolderSchema]::DisplayName,$FolderName[$i])
$AFindFolderResults = $service.FindFolders([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::ArchiveMsgFolderRoot,$ASearchFilter,$AFolderView)
$FolderId += $AFindFolderResults.Id
$i++;
continue;
}
else { if ($j -eq (Get-MailboxFolderStatistics $guid).Count) { Write-Host “All the archive folders have been checked and” $FolderName[$i] “was not found” -ForegroundColor $warning; $i++; continue; } }
}
}
else { Write-host “The archive mailbox is not enabled.” -ForegroundColor $warning; $i++; continue; }
}
}
if($FolderId.Count -eq 2) {
$Folder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($service,$FolderId[0])
$Folder.Move($FolderId[1])
Write-Host "The source folder and its subfolders were successfully moved under the specified target folder" -ForegroundColor $warning
}
else { Write-host "Check the source and the target folders. One of them is probably invalid." -ForegroundColor $error }
#Catch the errors
trap [System.Exception]
{
Write-host ("Error: " + $_.Exception.Message) -foregroundcolor $error;
Add-Content $LogFile ("Error: " + $_.Exception.Message);
continue;
}
Note: In order to run the script above, you have to copy paste it into a Notepad file and save it with the extension ".ps1". Then, you have to connect to Exchange Online with PowerShell and run it: https://technet.microsoft.com/en-us/library/jj984289(v=exchg.160).aspx.