Outlook 2007 / MS Exchange 2003 - forcer un ensemble spécifique de dossiers globalement

Il s'agit des dossiers gérés, introduits dans Exchange 2007 et abandonnés au profit des étiquettes de rétention dans Exchange 2010, bien qu'ils existent toujours. Je ne suis pas sûr de ce qu'il en est pour 2013/365/2016.

Il n'y a pas d'options natives dans Exchange 2003. Vous pouvez trouver un outil tiers ou simplement mettre à niveau cette plate-forme vieille de 10 ans.

Vous ne pouvez utiliser CDO/MAPI que sous Exchange 2003. Il n'existe pas beaucoup d'exemples, mais vérifiez sur place : COMMENT : Définir les permissions au niveau des dossiers en utilisant CDO 1.21 et ACL.dll

Est-ce que ça marche bien, aucune idée (mais c'est tiré du blog de microsot et écrit par un employé de microsoft)

Édité : Créer un dossier, un exemple de CDO : https://msdn.microsoft.com/en-us/library/ms878640(v=exchg.65).aspx

The following examples show how to create a folder in the Exchange store. The function in each example performs the following steps:
The function attempts to create a folder at this URL. If an error occurs, the function fails.
If the function is successful, it sets the new folder's contentclass Field to the value "urn:content-classes:folder".
The function returns a reference to the Record object that is bound to the new folder.
VBScript
If WScript.Arguments.Count < 1 Then
 WScript.Echo "Usage: cscript createfolder.wsf URL [content class]"
 WScript.Quit
End If

Dim sUrl
Dim sContentClass

' Note: It is recommended that all input parameters be validated when they are
' first obtained from the user or user interface.
sUrl = WScript.Arguments(0)
sContentClass = WScript.Arguments(1)

Dim Rec
Wscript.Echo "Creating folder at URL: " & sUrl
Set Rec = CreateFolder(sUrl, sContentClass, Nothing)
Wscript.Echo "Succeeded."

Function CreateFolder( sUrl, sContentClass, Conn )

 Dim Rec
 Set Rec    = CreateObject("ADODB.Record")

 ' Did caller pass a Connection object reference?
 If Not ( VarType(Conn) = vbObject AND TypeName(Conn) = "Connection" ) Then
   Set Conn = CreateObject("ADODB.Connection")
   Conn.Provider = "ExOLEDB.DataSource"
   Conn.Open sUrl
 End If

 If sContentClass = "" Then
  sContentClass = "urn:content-classes:folder" ' The Default is urn:content-classes:folder.
 End If

 ' Try to create the folder

 Rec.Open sUrl, Conn, adModeReadWrite, adCreateCollection
 Rec.Fields("DAV:contentclass") = sContentClass
 Rec.Fields.Update

 Set CreateFolder = Rec

End Function

EWS peut modifier l'ACL d'un dossier mais Exchange 2003 ne le supporte pas. Vous avez besoin d'au moins Exchange 2007.

Set-MailboxFolderPermission peut aussi le faire, mais il n'est pas disponible en 2003.

Quelques exemples, là y là