Comment obtenir rapidement une liste des rappels répétés dans votre Outlook

Après avoir répété des rappels, vous aurez peut-être un peu de mal à identifier les rappels répétés parmi tous les rappels. Maintenant, dans cet article, nous allons vous apprendre à obtenir rapidement une liste des rappels mis en attente dans votre Outlook.

Lorsqu'un rappel apparaît dans Outlook, vous pouvez le supprimer ou le reporter. La plupart du temps, si vous n'avez pas le temps de vous occuper de la tâche concernée au moment où le rappel s'affiche, vous choisirez de le reporter pendant une durée déterminée, par exemple 5 minutes, 1 heure, etc. Cependant, une fois le rappel reporté, il peut s'avérer difficile de retrouver les rappels mis en veille. Dans ce cas, vous souhaiterez sans doute disposer d'une solution permettant de les retrouver facilement et rapidement. C'est pourquoi nous allons vous présenter une méthode.

Obtenir une liste des rappels répétés

1. Pour commencer, lancez votre application Outlook.
2. Ensuite, après être entré dans la fenêtre principale d'Outlook, vous devez appuyer sur les touches "Alt + F11".
3. Par la suite, vous aurez accès à la fenêtre de l'éditeur VBA avec succès.
4. Maintenant, vous devez trouver un module inutilisé.
5. Ensuite, copiez et collez le code VBA suivant dans ce module.

Sub GetListofSnoozedReminders()
    Dim objReminder As Outlook.Reminder
    Dim objReminders As Outlook.Reminders
    Dim strList As String
    Dim i As Long
    Dim objNote As Outlook.NoteItem
    
    'Get all the reminders in Outlook
    Set objReminders = Outlook.Reminders
 
    i = 1
    For Each objReminder In objReminders
        'Get the snoozed reminders
        If (objReminder.OriginalReminderDate <> objReminder.NextReminderDate) = True Then
            strList = strList & i & ". " & objReminder.Caption & " (" & Replace(TypeName(objReminder.Item), "Item", "") & ")" & vbCrLf & " Snoozed to " & objReminder.NextReminderDate & vbCrLf & vbCrLf
           i = i + 1
        End If
    Next objReminder
  
    'Display the list of snoozed reminders in a Note
    Set objNote = Outlook.Application.CreateItem(olNoteItem)
    With objNote
         .Body = "Snoozed Reminders" & vbCrLf & vbCrLf & strList
         .Display
    End With
End Sub

6. Après cela, vous pouvez exécuter cette macro en cliquant sur l'icône "Exécuter" dans la barre d'outils ou en appuyant sur le bouton de la touche "F5".
7. Finalement, un nouvel élément de note s'affichera en arrière-plan. Il s'affichera comme la capture d'écran suivante :
8. Si vous souhaitez imprimer cet élément, vous pouvez le localiser dans le dossier "Notes". Ensuite, allez dans le menu "Fichier", passez à l'onglet "Imprimer" et appuyez sur le bouton "Imprimer".

Ayez recours à un outil de réparation plus puissant

Comme nous le savons tous, Outlook est doté d'un outil de réparation intégré. Si vous êtes confronté à de petits problèmes, vous pouvez l'utiliser. Cependant, si vous rencontrez des problèmes complexes, vous feriez mieux de vous aider d'autres outils externes, tels que DataNumen Outlook Repair. Il peut résoudre divers problèmes Outlook et récupérer PST Les données sont conservées avec la plus grande facilité, même si le fichier PST est extrêmement endommagé.

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 mdf corrompu et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com