none
Contar SubPastas Outlook 2003 RRS feed

  • Pergunta

  • Prezados,

    Preciso de alguma solução para contar quantas subpastas existem dentro de uma pasta no outlook 2003. Achei em um blog do TechNet uma solução em VBA Outlook mas que conta quantas pastas existem dentro da mailbox e não apenas dentro de uma outr pasta.

    Poderiam me ajudar?

    Desde ja agradeço.

     

    Att,

    Cleonilson Silva

     

    terça-feira, 30 de agosto de 2011 22:41

Respostas

  • Veja se incluindo essa linha logo a baixo do msg box lhe ajuda?

        MsgBox GetSubFolderCount(olns.PickFolder())

    Abraços

     


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    • Marcado como Resposta Cleonilson Silva quarta-feira, 31 de agosto de 2011 22:45
    quarta-feira, 31 de agosto de 2011 22:11

Todas as Respostas

  • Poste o Script para que possamos lhe ajudar acredito que o melhor local para sua pergunta é dentro do scripts administrativos.

     

    Abraços

     


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    quarta-feira, 31 de agosto de 2011 12:08
  • Edson,

     

    Segue o Script, porém como eu disse, ele conta todas as pastas e subpastas dentro da mailbox, e o que eu preciso é que ele conte todas as subpastas dentro de uma pasta apenas.

     

    Sub CountFoldersInMBX()

        Dim outapp As Outlook.Application
        Set outapp = CreateObject("Outlook.Application")
        Dim olns As Outlook.NameSpace
        Set olns = outapp.GetNamespace("MAPI")

        MsgBox "Total: " & GetSubFolderCount(olns.GetDefaultFolder(olFolderInbox).Parent)



    End Sub


    Function GetSubFolderCount(objParentFolder As MAPIFolder) As Long

     

        Dim currentFolders As Folders
        Dim fldCurrent As MAPIFolder

        Set currentFolders = objParentFolder.Folders
        If currentFolders.Count > 0 Then
           Set fldCurrent = currentFolders.GetFirst
           While Not fldCurrent Is Nothing
              TempFolderCount = TempFolderCount + GetSubFolderCount(fldCurrent)
              Set fldCurrent = currentFolders.GetNext
           Wend
           GetSubFolderCount = TempFolderCount + currentFolders.Count
        Else
            GetSubFolderCount = 0
        End If


    End Function
    quarta-feira, 31 de agosto de 2011 21:14
  • Veja se incluindo essa linha logo a baixo do msg box lhe ajuda?

        MsgBox GetSubFolderCount(olns.PickFolder())

    Abraços

     


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    • Marcado como Resposta Cleonilson Silva quarta-feira, 31 de agosto de 2011 22:45
    quarta-feira, 31 de agosto de 2011 22:11
  • Edson,

     

    Perfeito!!!!

    Funcionou que é uma beleza! Muito obrigado meu caro!

     

    Abraços.

     

    Att,

     

    Cleonilson Silva

    quarta-feira, 31 de agosto de 2011 22:46