Pytanie : Aktywny Adresowy skrzynka pocztowa Pozwolenie zmieniać

Wymiana 2003/Windows Serwer 2003

Something zmieniać.  Normalnie gdy I potrzebować Pełny Skrzynka pocztowa pozwolenie na skrzynka pocztowa inny użytkownik, ono być równie prosty otwierać the skrzynka pocztowa z Aktywny Adresowy Użytkownik i Komputer, the Ochrona zakładka i dostawianie the użytkownik i Pozwolić na Folować Skrzynka pocztowa Dostęp.  Ten pozwolenie być już nie tam.  I widzieć wszystkie rodzaj i który I pamiętać tam  w przeszłości:
Read RTCPropertySet
Write RTCPropertySet
Read sieć information
Write sieć information
Read jawny information
Write jawny informattion
etc.

What zmieniać?  Dlaczego I dostawać the pozwolenie "Folować Skrzynka pocztowa Dostęp" tylny?  I próbować REKLAMA Użytkownik na wieloskładnikowy domena kontroler zarówno jak i na mój stacja robocza.   Wszystkie the same.

Odpowiedź : Aktywny Adresowy skrzynka pocztowa Pozwolenie zmieniać

Próbować to:
(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:
Okręt podwodny ShowColumnInfo ()
 
Ciemnawy doc Dokument
Ćmić i Jako Integer
Ćmić Sec Jako Sekcja
Ćmić str Jako Sznurek, strColBk Sznurek
 
    Ustawiać doc = ActiveDocument
     
     
    Dla Each Sec W doc. Sekcja
        i = i + (1)
        Jeżeli (CInt (CountWordPhrase (i, doc)) > (0)) Wtedy
            strColBk = CountWordPhrase (i, doc)
            str = str & vbCrLf & "Sekcja: " & i & "Kolumna" & Sec.PageSetup.TextColumns.Count & "-" & "ColumnBreaks (" & strColBk & "),"
        Kończyć Jeżeli
    Następnie
 
    MsgBox "Szpaltowy Przerwa Info: " & str, vbInformation, "Szpaltowy przerwa info na sekcja"
     
 
Końcówka Okręt podwodny
 
Intymny Funkcja CountWordPhrase (SecId Jako Integer, myDoc Dokument) Sznurek
 
Ciemnawy x Sznurek
Ciemnawy y Jako Integer
 
    Na Błąd Życiorys Następnie  'naprawdę polecać ale problem móc na znalezisko
 
    x = "^n"  'szpaltowy przerwa tekst
    
    myDoc.Sections (SecId). Range.Select
    Z Selection.Find
        Robić Podczas Gdy. Wykonywać (FindText: =x, Przedni: =True, Format: =True, _
           MatchWholeWord: =True) = Prawdziwy
           y = y + (1)
        Pętla
    Końcówka Z
 
    CountWordPhrase = CStr (y)
 
Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us