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
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 ...
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á!