Vraag : Actieve veranderde de brievenbusToestemmingen van de Folder

Server 2003

Something is van de uitwisseling 2003/Vensters veranderd.  Normaal wanneer ik de Volledige toestemmingen van de Brievenbus op een brievenbus aan een andere gebruiker moet verlenen, is het zo eenvoudig zoals openend de brievenbus met de de Actieve Gebruikers en Computers van de Folder, staan het openen van het lusje van de Veiligheid en het toevoegen van de gebruiker en het controleren op de Volledige Toegang van de Brievenbus toe.  Die toestemming is niet meer daar.  Ik zie allerlei anderen geen die ik herinner zijnd daar in het verleden: van het Web information
Read is openbare information
Read RTCPropertySet
Write RTCPropertySet
Read Web information
Write openbare informattion
etc.

What/>Write veranderd?  Hoe krijg ik de toestemming de „Volledige Toegang van de Brievenbus“ achter?  Ik heb geprobeerd openings de Gebruikers van de ADVERTENTIE op veelvoudige domeincontrolemechanismen evenals op mijn werkstation.   Al same.

Antwoord : Actieve veranderde de brievenbusToestemmingen van de Folder

Probeer dit:
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 ()
 
Schemerig doc. als Document
Schemerige I als Geheel
Schemerige Seconde als Sectie
Schemerige streptokok als Koord, strColBk als Koord
 
    Vastgesteld doc. = ActiveDocument
     
     
    Voor Elke Seconde in doc. Secties
        i = I + 1
        Als (CInt (CountWordPhrase (I, doc.)) > 0) toen
            strColBk = CountWordPhrase (I, doc.)
            streptokok = streptokok & vbCrLf & „Sectie: “ & I & „Kolommen“ & Sec.PageSetup.TextColumns.Count & „-“ & „ColumnBreaks (“ & strColBk & „),“
        Eind als
    Daarna
 
    Info van de Onderbreking van de Kolom van MsgBox „: “ & streptokok, vbInformation, „de onderbrekingsinfo van de Kolom per sectie“
     
 
Sub van het eind
 
Privé Functie CountWordPhrase (SecId als Geheel, myDoc als Document) als Koord
 
Schemerig x als Koord
Schemerig y als Geheel
 
    Op Fout hervat daarna  'niet werkelijk geadviseerd maar de problemen kunnen op vondsten gebeuren
 
    x = „^n“  'de tekst van de kolomonderbreking
    
    myDoc.Sections (SecId). Range.Select
    Met Selection.Find
        Doe terwijl. Voer uit (FindText: =x, door:sturen: =True, Formaat: =True, _
           MatchWholeWord: =True) = Waar
           y = y + 1
        Lijn
    Eind met
 
    CountWordPhrase = CStr (y)
 
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us