☰

Outlook 2007 / MS Exchange 2003 - 全局强制使用特定文件夹集

tag-icon • tag-icon exchange exchange-2003 outlook
Outlook 2007 / MS Exchange 2003 - 全局强制使用特定文件夹集

我们有 150 个客户端连接到 Exchange 2003 服务器。我试图强制每个 Outlook 2007 客户端都有一组特定的文件夹，并且用户无法删除这些文件夹。

我尝试查找与此相关的任何组策略设置，但似乎没有相关设置。Google 上没有找到任何与此相关的信息。

这难道不可能吗？有人有这方面的想法或经验吗？

答案1

它被称为托管文件夹，它是在 Exchange 2007 中引入的，并在 Exchange 2010 中被弃用，取而代之的是保留标记，尽管它仍然存在。不确定 2013/365/2016 是否如此。

Exchange 2003 中没有本机选项。您可以找到第三方工具，或者简单地升级该 10 年历史的平台。

答案2

您只能在 Exchange 2003 下使用 CDO/MAPI。没有太多示例，但请查看：如何使用 CDO 1.21 和 ACL.dll 设置文件夹级别权限

它运行良好吗，不知道（但它来自微软的博客并由微软员工撰写）

编辑：要创建文件夹，CDO 示例：https://msdn.microsoft.com/en-us/library/ms878​​640(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 可以更改文件夹 ACL，但 Exchange 2003 不支持它。您至少需要 Exchange 2007。

Set-MailboxFolderPermission 也可以，但是在 2003 中不可用。

举个例子，那里和那里

相关内容