Question : Active Directory mailbox Permissions changed

Exchange 2003 / Windows Server 2003

Something has changed. Normally when I need to grant Full Mailbox permissions on a mailbox to another user, it's as simple as opening the mailbox with Active Directory Users and Computers, opening the Security tab and adding the user and checking Allow on Full Mailbox Access. That permission is no longer there. I see all kinds of others that I don't remember being there in the past:
Read RTCPropertySet
Write RTCPropertySet
Read web information
Write web information
Read public information
Write public informattion
etc.

What has changed? How do I get the permission "Full Mailbox Access" back? I've tried opening AD Users on multiple domain controllers as well as on my workstation. All the same.

Answer : Active Directory mailbox Permissions changed

Try this:

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

           
           
             Sub ShowColumnInfo()
 
Dim doc As Document
Dim i As Integer
Dim Sec As Section
Dim str As String, strColBk As String
 
    Set doc = ActiveDocument
     
     
    For Each Sec In doc.Sections
        i = i + 1
        If (CInt(CountWordPhrase(i, doc)) > 0) Then
            strColBk = CountWordPhrase(i, doc)
            str = str & vbCrLf & "Section: " & i & " Columns " & Sec.PageSetup.TextColumns.Count & "- " & "ColumnBreaks (" & strColBk & "), "
        End If
    Next
 
    MsgBox "Column Break Info:" & str, vbInformation, "Column break info per section"
     
 
End Sub
 
Private Function CountWordPhrase(SecId As Integer, myDoc As Document) As String
 
Dim x As String
Dim y As Integer
 
    On Error Resume Next  'not really recommended but problems can happen on finds
 
    x = "^n"  'column break text
    
    myDoc.Sections(SecId).Range.Select
    With Selection.Find
        Do While .Execute(FindText:=x, Forward:=True, Format:=True, _
           MatchWholeWord:=True) = True
           y = y + 1
        Loop
    End With
 
    CountWordPhrase = CStr(y)
 
End Function

           
         