Ինչպե՞ս հաշվել թղթապանակների քանակը նշված էլփոստի հաշվի կամ Outlook- ի բոլոր փոստարկղերի տակ:
Այս հոդվածում խոսվում է որոշակի էլփոստի հաշվի կամ Outlook- ի բոլոր փոստարկղերի տակ գտնվող պանակների քանակի հաշվարկման մասին:
Հաշվեք պանակների քանակը նշված էլփոստի հաշվի կամ VBA կոդով բոլոր փոստարկղերի տակ
Հաշվեք պանակների քանակը նշված էլփոստի հաշվի կամ VBA կոդով բոլոր փոստարկղերի տակ
Կարող եք հաշվել պանակների քանակը նշված էլփոստի հաշվի տակ կամ բոլոր Vbox կոդով պարունակվող բոլոր փոստարկղերի տակ: Խնդրում եմ, արեք հետևյալ կերպ.
1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Օգտագործողի ձև, Տեսեք,
3. Դրանից հետո տեղադրեք երկու Ընտրանքային կոճակներ եւ երկու Հրամանի կոճակներ մեջ UserForm1, և փոխել կոճակների ցուցադրման տեքստը, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:
4. Առաջին տարբերակի կոճակի անունը փոխել «opbCurAcount»Եվ փոխել արժեք գույքը Ճիշտ, Տեսեք,
5. Շարունակեք փոխել երկրորդ տարբերակի կոճակի անունը `«opbAllAccounts» Եվ ապա նշեք հրամանի երկու կոճակների անունը `«cdbOk»Եվ»cdb Չեղարկել”Առանձին:
6. Կրկնակի կտտացրեք UserForm1- ի ցանկացած դատարկ տեղում և այնուհետև փոխարինեք բնօրինակ ծածկագիրը Userform1 (Code) պատուհանում ստորև նշված VBA կոդով:
VBA կոդ. 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. Սեղմեք F5 ծածկագիրը գործելու համար: Հետո ա UserForm1 Բացվում է երկխոսության տուփ, ընթացիկ հաշվի թղթապանակների քանակը հաշվելու համար խնդրում ենք ընտրել Ընթացիկ հաշիվ ընտրեք եւ կտտացրեք OK կոճակը։ Բոլոր փոստարկղերում թղթապանակների քանակը հաշվելու համար ընտրեք Բոլոր հաշիվները ապա ընտրեք այն OK կոճակ Տեսեք,
9. Հետո ա Outlook- ի համար նախատեսված գործիքներ Երկխոսության տուփը հայտնվում է, որպեսզի ձեզ ասի, թե քանի թղթապանակ կա ընթացիկ հաշվում կամ բոլոր փոստարկղերում, ինչպես ստորև ներկայացված սքրինշոթում: Խնդրում ենք սեղմել OK կոճակը:
ՆշումԲոլոր թաքնված թղթապանակները, ինչպիսիք են Conversation Action Settings պանակը և Quick Step Settings պանակը, ներառված են թղթապանակների հաշվման մեջ:
Առնչվող հոդվածներ քանակը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: