Você só pode usar o CDO / MAPI no Exchange 2003. Não há muitos exemplos, mas verifique: COMO: Definir permissões de nível de pasta usando o CDO 1.21 e ACL.dll
Funciona bem, não tem ideia (mas é do blog da microsot e foi escrito por um funcionário da microsoft)
Editado: para criar uma pasta, um exemplo de CDO: link
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
O EWS pode alterar a pasta ACL, mas o Exchange 2003 não oferece suporte a ela. Você precisa do atlantic Exchange.
Set-MailboxFolderPermission também pode, mas não está disponível em 2003.
Por exemplo, há e there