Anlage des Repos

current/New-Subfolder-inExchangeMailbox/Unbenannt1.ps1

@@ -0,0 +1,27 @@
+cls
+Add-PSSnapin Microsoft.Exchange.Management.PowerShell.E2010
+
+# E-Mail-Adressen der Mailboxen 
+$mailboxes = @(get-mailbox digitaldata) 
+# Name des neuen Ordners 
+$name_folder = "MailStoreArchiv" 
+
+$ewsdll = "C:\Program Files\Microsoft\Exchange\Web Services\2.0\Microsoft.Exchange.WebServices.dll" 
+[void][Reflection.Assembly]::LoadFile($ewsdll) 
+$service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2010_SP2) 
+$windowsIdentity = [System.Security.Principal.WindowsIdentity]::GetCurrent() 
+$sid = "LDAP://<SID=" + $windowsIdentity.user.Value.ToString() + ">" 
+$adminuser = [ADSI]$sid 
+$service.AutodiscoverUrl($adminuser.mail.ToString(), "https://appel-com01.appel-gmbh.local/Autodiscover/Autodiscover.xml") 
+
+
+foreach($mailbox in $mailboxes){ 
+
+	$parentfolderid = new-object  Microsoft.Exchange.WebServices.Data.FolderId([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::MsgFolderRoot, $mailbox) 
+	[Microsoft.Exchange.WebServices.Data.Folder]::Bind($service, $parentfolderid) | out-null 
+
+	$NewFolder = new-object Microsoft.Exchange.WebServices.Data.CalendarFolder($service) 
+	$NewFolder.DisplayName = $name_folder 
+	$NewFolder.Save($parentfolderid) 
+
+} #end foreach