טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or
0
0
0
s2smodern

כיצד לספור מספר תיקיות תחת חשבון דואר אלקטרוני מסוים או את כל תיבות הדואר ב- Outlook?

מאמר זה מדבר על ספירה של מספר תיקיות תחת חשבון הדוא"ל שצוין או כל תיבות הדואר ב- Outlook.

ספירת מספר התיקיות תחת חשבון הדוא"ל שצוין או כל תיבות הדואר עם קוד VBA


ספירת מספר התיקיות תחת חשבון הדוא"ל שצוין או כל תיבות הדואר עם קוד VBA

אתה יכול לספור מספר תיקיות תחת חשבון הדוא"ל שצוין או את כל תיבות הדואר עם קוד VBA להלן. אנא בצע את הפעולות הבאות.

1. לחץ על אחר + F11 מפתחות כדי לפתוח את Microsoft Visual Basic עבור יישומים חלון.

2. בתוך ה Microsoft Visual Basic עבור יישומים חלון, לחץ על הַבלָעָה > צורה. ראה צילום מסך:

3. לאחר מכן הכנס שניים לחצני אפשרות ושתיים לחצני פיקוד אל תוך UserForm1, ולשנות את טקסט התצוגה של הלחצנים כפי שמוצג בתמונה למטה.

4. שנה את השם של לחצן האפשרות הראשון ל "opbCurAccount"ולשנות את ערך רכוש post נכון. ראה צילום מסך:

5. המשך לשנות את השם של לחצן האפשרות השני ל "opbAllAccounts". ולאחר מכן ציין את שם שני הלחצנים פקודה "cdbOkו "cdbCancel"בנפרד.

6. לחץ פעמיים על כל מקום ריק של UserForm1 ולאחר מכן החלף את הקוד המקורי בקוד VBA מתחת בחלון Userform1 (קוד).

קוד 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. ואז א Kutools עבור Outlook תיבת הדו שיח קופץ כדי לספר לך כמה תיקיות קיימות בחשבון הנוכחי או כל תיבות הדואר כמו צילום מסך להלן. אנא לחץ על OK לַחְצָן.

הערות: כל התיקיות המוסתרות, כגון התיקייה 'הגדרות פעולה של שיחה' והתיקייה 'הגדרות מהירות' כלולות בספירת התיקייה.


מאמרים קשורים:


כלי פרודוקטיביות מומלצים

הכרטיסייה 'משרד'

כוכב זהב תביא כרטיסיות שימושיות ל- Excel ולתוכנות Office אחרות, בדיוק כמו Chrome, Firefox ו- Internet Explorer החדש.

Kutools עבור Excel

כוכב זהב מדהים! הגדל את הפרודוקטיביות שלך ב- 5 דקות. לא צריך שום כישורים מיוחדים, לשמור שעתיים כל יום!

כוכב זהב 300 תכונות חדשות עבור Excel, להפוך את Excel הרבה יותר קל ורב עוצמה:

  • מיזוג תאים / שורות / עמודות מבלי לאבד נתונים.
  • שלב ולאחד מספר גיליונות וחוברות עבודה.
  • השווה טווחים, העתק טווחים מרובים, המרת טקסט עד תאריך, יחידת המרת מטבע.
  • ספירה לפי צבעים, סכימות החלפה, מתקדם מיון ו סופר מסנן,
  • עוד בחר / הוסף / מחק / טקסט / עיצוב / קישור / תגובה / חוברות עבודה / גליונות עבודה ...

צילום מסך של Kutools עבור Excel

btn קרא עוד להוריד btn - - רכישת btn

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.