Skip to main content

Conas líon na bhfillteán a chomhaireamh faoi chuntas ríomhphoist sonraithe nó gach bosca poist in Outlook?

Tá an t-alt seo ag caint ar líon na bhfillteán a chomhaireamh faoi chuntas ríomhphoist sonraithe nó faoi gach bosca poist in Outlook.

Líon na bhfillteán a chomhaireamh faoi chuntas ríomhphoist sonraithe nó gach bosca poist le cód VBA


Líon na bhfillteán a chomhaireamh faoi chuntas ríomhphoist sonraithe nó gach bosca poist le cód VBA

Féadfaidh tú líon na bhfillteán a chomhaireamh faoi chuntas ríomhphoist sonraithe nó faoi gach bosca poist a bhfuil cód VBA faoi bhun acu. Déan mar a leanas le do thoil.

1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Foirm úsáideora. Féach an pictiúr:

3. Ansin cuir isteach dhá Cnaipí Rogha agus beirt Cnaipí Ordú i ÚsáideoirForm1, agus athraigh téacs taispeána na gcnaipí mar atá thíos an pictiúr a thaispeántar.

4. Athraigh ainm an chéad chnaipe rogha go “opbCurAccount”Agus athraigh an luach maoin do True. Féach an pictiúr:

5. Téigh ar ainm an chnaipe dara rogha a athrú go “opbAllAccounts”. Agus ansin ainm an dá chnaipe ordaithe a shonrú chun “cdbOk"Agus"cdbCealaigh”Ar leithligh.

6. Cliceáil faoi dhó ar aon áit bán de UserForm1, agus ansin cuir an cód VBA faoi bhun na fuinneoige Userform1 (Cód) in ionad an chóid bhunaidh.

Cód VBA: Líon na bhfillteán in Outlook

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. Brúigh an F5 eochair chun an cód a rith. Ansin a ÚsáideoirForm1 bosca dialóige aníos, chun líon na bhfillteán sa chuntas reatha a chomhaireamh, roghnaigh an Cuntas Reatha rogha agus cliceáil ar an OK cnaipe. Chun líon na bhfillteán a chomhaireamh i ngach bosca poist, roghnaigh an Gach Cuntas rogha agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

9. Ansin a Kutools le haghaidh Outlook tagann bosca dialóige suas chun a insint duit cé mhéad fillteán atá sa chuntas reatha nó i ngach bosca poist mar atá thíos. Cliceáil le do thoil ar an OK cnaipe.

nótaí: Tá gach fillteán i bhfolach mar an fillteán Socruithe Gníomhaíochta Comhrá agus an fillteán Socruithe Tapa Céime san áireamh sa chomhaireamh fillteán.


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations