Comment compter le nombre de messages marqués dans Outlook?
Dans Outlook, vous pouvez marquer les messages, contacts ou tâches pour les rendre exceptionnels, mais, parfois, vous devez compter le nombre d'éléments marqués dans votre Outlook. Comment pourriez-vous gérer cette tâche dans Outlook?
Comptez le nombre de messages marqués dans un compte avec les dossiers de recherche
Comptez le nombre de messages marqués dans un compte avec les dossiers de recherche
Pour compter le nombre d'e-mails signalés dans un compte Outlook, le Dossiers de recherche La fonctionnalité peut vous aider, procédez comme suit:
1. Clic-droit Dossiers de recherche sous votre compte de messagerie, puis sélectionnez Nouveau dossier de recherche, voir capture d'écran:
2. Puis un Nouveau dossier de recherche la boîte de dialogue apparaît, cliquez sur E-mail signalé pour suivi option dans la Lecture du courrier section, voir capture d'écran:
3. Puis clique OK, et tous les messages marqués sont copiés dans le Pour le suivi dossier, et le nombre total d'e-mails marqués s'affiche comme la capture d'écran suivante:
Comptez le nombre de messages / contacts / tâches marqués séparément dans tous les comptes avec le code VBA
Si vous souhaitez compter séparément le nombre de tous les éléments marqués, tels que les e-mails, les contacts et les tâches dans Outlook, le code VBA suivant peut vous rendre service.
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Puis clique insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran:
Code VBA: comptez le nombre de fois marquées dans 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. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous indiquer le nombre total de tous les éléments marqués, comme illustré ci-dessous:
Comptez le nombre d'éléments d'aujourd'hui, d'hier, lus, non lus, au total ... dans Outlook
Avec Kutools for Outlookest puissant Statistique fonctionnalité, vous pouvez obtenir le nombre d'itmes en fonction de la date, des éléments sélectionnés, lus, non lus et ainsi de suite selon vos besoins. Kutools for Outlook: avec plus de 100 compléments Excel pratiques, essai gratuit sans limitation dans 60 jours. Téléchargez et essayez l'essai gratuit maintenant!
|
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel facile des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Boostez votre productivité Outlook avec des vues à onglets / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.