Cómo obtener rápidamente una lista de los recordatorios pospuestos en Outlook

Después de posponer los recordatorios, es posible que le resulte un poco difícil identificar los pospuestos entre todos los recordatorios. Ahora, en este artículo, le enseñaremos cómo obtener rápidamente una lista de recordatorios pospuestos en su Outlook.

Cuando aparece un recordatorio en Outlook, puedes descartarlo o posponerlo. La mayoría de las veces, si no tienes tiempo para ocuparte del elemento cuando te llega un recordatorio, lo pospondrás durante un tiempo determinado, como 5 minutos, 1 hora, etc. Sin embargo, después de posponerlo, te resultará un poco difícil encontrar los recordatorios pospuestos. En este caso, desearás una solución que te permita encontrar todos los recordatorios pospuestos de una sola vez. Por lo tanto, a continuación, te mostraremos cómo hacerlo.

Obtenga una lista de los recordatorios pospuestos

1. Para empezar, abre tu aplicación Outlook.
2. Luego, después de ingresar a la ventana principal de Outlook, debe presionar los botones de tecla "Alt + F11".
3. Posteriormente, obtendrá acceso a la ventana del editor de VBA con éxito.
4. Ahora, debes encontrar un módulo sin usar.
5. A continuación, copie y pegue el siguiente código VBA en este módulo.

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. Después de eso, puede ejecutar esta macro haciendo clic en el icono "Ejecutar" en la barra de herramientas o tocando el botón de la tecla "F5".
7. Finalmente, se mostrará un nuevo elemento de nota en segundo plano. Se mostrará como la siguiente captura de pantalla:
8. Si desea imprimir este elemento, puede ubicarlo en la carpeta "Notas". Luego, vaya al menú "Archivo", cambie a la pestaña "Imprimir" y presione el botón "Imprimir".

Recurre a una herramienta de reparación más poderosa

Como todos sabemos, Outlook viene equipado con una herramienta de reparación incorporada. Si se enfrenta a pequeños problemas, puede utilizarlo. Sin embargo, si se encuentra con problemas complejos, es mejor que utilice otras herramientas externas, como DataNumen Outlook Repair. Puede solucionar varios problemas de Outlook y recuperar PST Los datos se pueden transferir con suma facilidad, sin importar cuán dañado esté el archivo PST.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo mdf corrupto y productos de software de reparación de Outlook. Para más información visite www.datanumen.com