VSTO outlook加载项-创建和管理可共享文件夹

我是否可以在outlook vsto加载项中创建可共享的outlook文件夹并设置共享权限？

vsto outlook对象模型也不提供任何相关功能。您所能做的最好的事情就是在Outlook中创建一个公用文件夹

您可以使用低级API扩展MAPI或仅使用该API周围的任何第三方包装（如Redemption）来设置文件夹权限。有关更多信息，请参阅

Sub AddFolderPermissions()
Dim ParentFolder
Dim Folder
  Set mySession = CreateObject("Redemption.RDOSession")
  mySession.MAPIOBJECT = Application.Session.MAPIOBJECT

Set ParentFolder = mySession.PickFolder
  For i = 1 To ParentFolder.Folders.Count
  Debug.Print ParentFolder.Folders(i).Name
    Set Folder = ParentFolder.Folders(i)
      For Each ace In Folder.ACL
        Debug.Print ace.Name & " - " & ace.Rights
          If ace.Name <> "Bo Peep" Then
      ' Get Exchange user
          Set AddressEntry = mySession.AddressBook.GAL.ResolveName("Eugene")
          Set ace = Folder.ACL.Add(AddressEntry)
            ace.Rights = ROLE_AUTHOR
          End If
      Next
  Next
End Sub

---

欢迎来到堆栈溢出！请添加更多有用的标签和上下文，说明您正在尝试做什么，您尝试了哪些步骤来解决您的问题，即代码，以及您在哪里遇到了问题。