Pergunta : As permissões ativas da caixa postal do diretório mudaram

O

Something mudou.  Normalmente quando eu preciso de conceder permissões cheias da caixa postal em uma caixa postal a um outro usuário, é tão simples quanto abrir a caixa postal com os usuários e os computadores de diretório ativos, abrindo a aba da segurança e adicionando o usuário e verific permite no acesso cheio da caixa postal.  Essa permissão é já não lá.  Eu ver todos os tipos de outro que eu não recordo ser lá no passado: o informattion
etc.

What do information
Write do information
Read da correia fotorreceptora do information
Write da correia fotorreceptora do
Read RTCPropertySet
Write RTCPropertySet
Read mudou?  Como eu começ a permissão “acesso cheio da caixa postal” traseira?  Eu tentei abrir usuários do ANÚNCIO em controladores múltiplos do domínio assim como em minha estação de trabalho.   Todo o same. class= do

Resposta : As permissões ativas da caixa postal do diretório mudaram

Tentar isto:
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 ()
 
Escurecer o doc como o original
Escurecer i como o inteiro
Escurecer o segundo como a seção
Escurecer o estreptococo como a corda, strColBk como a corda
 
    Ajustar doc = ActiveDocument
     
     
    Para cada segundo no doc. Seções
        i = i + 1
        Se (CInt (CountWordPhrase (i, doc)) > 0) Então
            strColBk = CountWordPhrase (i, doc)
            estreptococo = estreptococo & vbCrLf & “seção: ” & i & “colunas” & Sec.PageSetup.TextColumns.Count & “-” & “ColumnBreaks (” & strColBk & "),”
        Terminar se
    Em seguida
 
    Informação da ruptura coluna de MsgBox da “: ” & estreptococo, vbInformation, “informação da ruptura da coluna por a seção”
     
 
Submarino da extremidade
 
Função confidencial CountWordPhrase (SecId como o inteiro, myDoc como o original) como a corda
 
X não ofuscante como a corda
Y não ofuscante como o inteiro
 
    No resumo do erro recomendado  em seguida 'não realmente mas nos problemas pode acontecer em achados
 
    x = “^n”  'texto da ruptura da coluna
    
    myDoc.Sections (SecId). Range.Select
    Com Selection.Find
        Fazer quando. Executar (FindText: =x, para diante: =True, formato: =True, _
           MatchWholeWord: o =True) = retifica
           y = y + 1
        Laço
    Extremidade com
 
    CountWordPhrase = CStr (y)
 
Função do fim
Outras soluções  
 
programming4us programming4us