Certains utilisateurs souhaitent qu'Outlook puisse vous avertir s'il y a trop d'e-mails non lus dans leur boîte de réception, y compris les sous-dossiers. Bien qu'Outlook n'offre pas une telle fonction, elle peut toujours être réalisée avec du code VBA. Cet article vous montrera ce code.
Parfois, en raison de vos horaires chargés, vous pouvez laisser un grand nombre de courriers non lus dans votre boîte de réception. Avec de plus en plus d'e-mails accumulés, les traiter plus tard sera une tâche assez fastidieuse et fastidieuse. Dans ce cas, vous pouvez espérer qu'Outlook pourra vous rappeler si le nombre d'e-mails non lus dépasse une limite spécifique. Dans ce qui suit, nous vous partagerons un moyen d'atteindre cette fonction.
Soyez averti s'il y a trop d'e-mails non lus
- À start avec, lancez votre programme Outlook comme d'habitude.
- Ensuite, dans la fenêtre principale d'Outlook, appuyez sur les touches "Alt + F11".
- Ensuite, vous entrerez dans la fenêtre "Microsoft Visual Basic pour Applications", dans laquelle vous devez rechercher et ouvrir le projet "ThisOutlookSession".
- Ensuite, vous devez copier le code VBA suivant dans ce projet.
Private objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items
Private lUnreadItemCount As Long
Private Sub Application_Startup()
Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
Set objItems = objInbox.Items
lUnreadItemCount = 0
Call CountUnreadEmails(objInbox, lUnreadItemCount)
'If there are more than 10 unread emails
If lUnreadItemCount > 10 Then
MsgBox "Too many unread emails in Inbox!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
End If
End Sub
Private Sub objItems_ItemAdd(ByVal Item As Object)
Call CountUnreadEmails(objInbox, lUnreadItemCount)
lUnreadItemCount = 0
If lUnreadItemCount > 10 Then
MsgBox "Too many unread emails!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
End If
End Sub
Private Sub CountUnreadEmails(ByVal objFolder As Outlook.Folder, ByRef lCount As Long)
Dim objUnreadItems As Outlook.Items
Dim objSubfolder As Outlook.Folder
Set objUnreadItems = objFolder.Items.Restrict("[Unread] = True")
lCount = objUnreadItems.count + lCount
'Process all subfolders under Inbox recursively
If objFolder.Folders.count > 0 Then
For Each objSubfolder In objFolder.Folders
Call CountUnreadEmails(objSubfolder, lCount)
Next
End If
End Sub
- Après cela, vous devez signer ce code.
- Plus tard, quittez la fenêtre actuelle et modifiez vos paramètres de macro Outlook pour activer les macros signées numériquement.
- Enfin, vous pouvez restart votre Outlook pour activer cette nouvelle macro.
- A partir de maintenant, chaque fois que vous starLorsqu'Outlook et que de nouveaux e-mails arrivent dans votre boîte aux lettres, Outlook vérifie automatiquement le nombre d'e-mails non lus dans la boîte de réception et ses sous-dossiers.
- Si le nombre dépasse votre limite prédéfinie, Outlook vous avertira, comme la capture d'écran suivante :
Récupérer les données Outlook après des plantages brusques
Outlook ne peut pas se débarrasser complètement des erreurs. Et les erreurs de montage peuvent entraîner des plantages sans aucune invite. De graves plantages peuvent endommager votre fichier de données Outlook en un tournemain. Par conséquent, il est nécessaire que vous preniez des précautions suffisantes, comme effectuer des sauvegardes régulières des données et vous procurer un puissant outil de récupération externe, comme DataNumen Outlook Repair. Il peut vous aider à réparer la TVP déposer en toute simplicité.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correctif mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com