Як підрахувати кількість позначених повідомлень у програмі Outlook?

В Outlook ви можете позначити повідомлення, контакти або завдання, щоб зробити їх непогашеними, але іноді вам потрібно підрахувати кількість позначених елементів у вашому Outlook. Як ви могли вирішити це завдання в Outlook?

Підрахуйте кількість позначених повідомлень в одному обліковому записі за допомогою папок пошуку

Підрахуйте кількість позначених повідомлень / контактів / завдань окремо у всіх облікових записах із кодом VBA

Підрахуйте кількість позначених повідомлень в одному обліковому записі за допомогою папок пошуку

Для підрахунку кількості позначених електронних листів в обліковому записі Outlook, Пошук папок Ця функція може вам допомогти, зробіть так:

1. Клацніть правою кнопкою миші Пошук папок під вашим обліковим записом електронної пошти, а потім виберіть Нова папка пошуку, див. скріншот:

2. Тоді а Нова папка пошуку діалогове вікно вискочить, натисніть Пошта, позначена для подальших дій опція в Читання пошти розділ, див. знімок екрана:

3. Потім натисніть OK, а всі позначені повідомлення копіюються в Для подальших дій , а загальна кількість позначених електронних листів відображається, як показано на наведеному нижче знімку екрана:

Підрахуйте кількість позначених повідомлень / контактів / завдань окремо у всіх облікових записах із кодом VBA

Якщо ви хочете порахувати кількість усіх позначених елементів, таких як електронні листи, контакти та завдання в Outlook, окремо, такий код VBA може зробити вам послугу.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Потім натисніть кнопку Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль, див. знімок екрана:

Код VBA: підрахуйте кількість позначених разів у програмі Outlook:

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub

3. Потім натисніть F5 клавіша для запуску цього коду, і з'явиться вікно запиту, щоб повідомити вам загальну кількість усіх позначених елементів, як показано на скріншоті нижче:

---

Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення Pro: Пакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

Детальніше       Безкоштовне завантаження      Купити