Fråga : Tillåtelser för aktivarkivbrevlåda ändrade

Server

Something har ändrat.  , när normalt jag behöver att bevilja fulla brevlådatillåtelser på en brevlåda till en annan användare, den är så enkel, som att öppna brevlådan med aktivarkivanvändare och datorer som öppnar säkerhetsfliken och tillfogar användaren och kontrollerar, låter på full brevlåda tar fram.  Den tillåtelse är ej längre där.  Jag ser alla sorter av andra som jag inte minns att vara där i förflutnan: informattion
etc.

What för information
Write om information
Read om rengöringsduken för information
Write om rengöringsduken för
Read RTCPropertySet
Write RTCPropertySet
Read har offentlig offentlig ändrat?  Hur jag får tillåtelsen, ”som den fulla brevlådan tar fram” tillbaka?  Jag har försökt att öppna ANNONSanvändare på multipelområdeskontrollanter as well as på min arbetsstation.   Alla same. " klar "

Svar : Tillåtelser för aktivarkivbrevlåda ändrade

Försök detta:
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:

UnderShowColumnInfo ()
 
Dunkel doc som dokument
Dunkelt I som heltal
Dunkel sekund som delar upp
Dunkel str som stränger, strColBk som stränger
 
    Uppsättning doc = ActiveDocument
     
     
    För varje sekund i doc. Delar upp
        i = I + 1
        Om (CInt (CountWordPhrase (I, doc)) > 0) Därefter
            strColBk = CountWordPhrase (I, doc)
            stren = stren & vbCrLf & ”delar upp: ” & I & ”kolonner” & Sec.PageSetup.TextColumns.Count & ”-” & ”ColumnBreaks (” & strColBk & ”),”,
        Avsluta om
    Därefter
 
    MsgBox ”kolonnavbrott info: ” & stren, vbInformation, ”kolonnavbrottet info per delar upp”,
     
 
Avsluta suben
 
Privat fungera CountWordPhrase (SecId som heltal, myDoc som dokument) som stränger
 
Dunkelt x som stränger
Dunkelt y som heltal
 
    På felmeritförteckningen därefter  'som rekommenderas inte egentligen, men problem kan hända på fynd
 
    x = ”^n”  'kolonnavbrottstext
    
    myDoc.Sections (SecId). Range.Select
    Med Selection.Find
        Gör stunder. Utför (FindText: =x som är framåt: =True formaterar: =True _,
           MatchWholeWord: =True) = True
           y = y + 1
        Kretsa
    Avsluta med
 
    CountWordPhrase = CStr (y)
 
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us