27 lines
1.2 KiB
PowerShell
27 lines
1.2 KiB
PowerShell
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 |