PRB: ACL: Outlook 2000 Doesn't Properly Read ACL Settings (237924)

RESOLUTION

Access to another user's calendar requires that you also have corresponding permissions to the users FreeBusy Data folder. To resolve this problem, you can use the ACL object to also set permissions on the FreeBusy Data folder. This folder is located at the root of the Microsoft Exchange Server mailbox and does not display in the Outlook client. If you grant read-only access to the calendar, set the same access level to the FreeBusy Data folder. If you grant write access to the calendar, you must grant editor-level permissions to the FreeBusy Data folder.

You can now access the Calendar folder with Outlook 2000 without an error.

MORE INFORMATION

Steps to Reproduce Behavior

Register the ACL.dll from the Platform SDK on the computer that you are going to use to run the code that sets the permissions.
Create a new Microsoft Visual Basic project.
Add a reference to both "Microsoft Exchange 5.5 ACL Type Library 1.0" and "Microsoft CDO 1.21 library."

Cut and paste the following code to the project:


Dim strMailbox, As String
Dim strServer As String
Dim objFolder As Folder
Dim objacls As ACLObject
Dim myAce As ACE
Dim objFolderAces As Object
Dim CDOSession As Session
Dim objstore As InfoStore

Sub Main()
        '
        'This code depends on a reference to CDO (1.1, 1.2, or 1.21)
        '             
        Set CDOSession = CreateObject("MAPI.Session")
        strServer = "<Server Name>"
        strMailbox = "<Mailbox Name>"
        CDOSession.Logon "", "", True, True, 0, True, strServer & vbLf & strMailbox
        Set objstore = CDOSession.GetInfoStore()
        Set objFolder = objstore.RootFolder.Folders("Calendar")
    
        ' get the aclsobject for the folder
        Set objacls = CreateObject("MSExchange.aclobject")
        Set objacls.CDOItem = objFolder  ' set the CDO folder to CDOItem
        Set objFolderAces = objacls.ACEs ' get ACEs for folder
        
        For Each myAce In objFolderAces
            If myAce.ID = "ID_ACL_DEFAULT" Then
                myAce.Rights = ROLE_OWNER
                objacls.Update
            End If
        Next

        'Clean up
        Set objstore = Nothing
        Set objFolder = Nothing
        Set objacls = Nothing
        Set objFolderAces = Nothing
        
        'Logoff Session
        CDOSession.Logoff
        Set CDOSession = Nothing
End Sub

Run the code against an Exchange mailbox. The code will change the permissions of "Default" to "Owner" on the Calendar folder.
Try to access the Calendar folder from Microsoft Outlook 2000 (Go to the File/Open/Other User's Folders).

RESULT:

You will receive the following error: