Vai al contenuto principale

Come trovare promemoria posticipati in Outlook?

Ad esempio, quando si posticipa un promemoria nella finestra Promemoria, il promemoria scomparirà immediatamente. Pertanto, come potresti scoprire il promemoria posticipato? In questo articolo, introdurrò la soluzione per trovare promemoria posticipati in Outlook.

Trova promemoria posticipati nel calendario di Outlook

Scheda Office: abilita la modifica e la navigazione a schede in Microsoft Office, rendendo il lavoro un gioco da ragazzi
Kutools per Outlook: potenzia Outlook con oltre 100 funzionalità avanzate per un'efficienza superiore
Potenzia il tuo Outlook 2021-2010 o Outlook 365 con queste funzionalità avanzate. Goditi una prova gratuita completa di 60 giorni e migliora la tua esperienza di posta elettronica!

freccia blu freccia destraTrova promemoria posticipati nel calendario di Outlook

Questo metodo introdurrà un VBA per cercare tutti i promemoria posticipati a Oggi in Outlook. Si prega di fare quanto segue:

1. Passare a posta visualizzare e premere i tasti Alt + F11 insieme per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla sotto il codice VBA nella nuova finestra del modulo.

VBA: trova promemoria posticipati in Outlook

Sub SnoozedReminders()

  Dim xReminder As  Reminder

  Dim xReminders  As Outlook.Reminders

  Dim xRemItems As  String

  Dim k As Long

  k = 0

  Set xReminders =  Outlook.Reminders

  For Each xReminder  In xReminders

  If  ReminderExpired(xReminder) = True Then

  k = k +  1

  xRemItems = xRemItems & k & ": " &  xReminder.Caption & vbCr & "      Snoozed to " & xReminder.NextReminderDate & vbCr & vbCr

  End If

  Next xReminder

  CreateRemItemsAsEmail "Snoozed RemItems",  xRemItems

  End Sub

Function ReminderExpired(Reminder As Outlook.Reminder)  As Boolean

  If  (Reminder.OriginalReminderDate <> Reminder.NextReminderDate) Then

  ReminderExpired = (Reminder.OriginalReminderDate <>  Reminder.NextReminderDate)

  End If

  End Function

Public Sub CreateRemItemsAsEmail(Theme As String,  RemItems As String)

  Dim xSession As Outlook.NameSpace

  Dim xMailItem As MailItem

  Dim xInboxFd As Outlook.Folder

  On Error Resume Next

  Set xSession = Application.Session

  Set xInboxFd =  xSession.GetDefaultFolder(olFolderInbox)

  Set xMailItem =  xInboxFd.Items.Add("IPM.Mail")

  With xMailItem

  .Subject =  Theme

  .body =  RemItems

  .Save

  .Display

  End With

  Set xSession = Nothing

  Set xInboxFd = Nothing

  Set xmail = Nothing

  End Sub

3. premi il F5 o fare clic su Correre pulsante per eseguire questo VBA.

Ora puoi vedere tutti i promemoria posticipati a oggi vengono incollati come corpo del messaggio in una nuova email. Vedi screenshot:


freccia blu freccia destraArticoli Correlati


I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati ProSalvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

 

 

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HiI am having problem. I get the following error intermittently "Method Caption of object reminder failed " It then words with nothing being changed.Any ideas welcome.Thanks(I really use this macro when working !
This comment was minimized by the moderator on the site
Hi Dave AA,
For your problem, please try the code below:
<div data-tag="code">Sub SnoozedReminders()

Dim xReminder As Reminder

Dim xReminders As Outlook.Reminders

Dim xRemItems As String

Dim k As Long

On Error Resume Next

k = 0

Set xReminders = Outlook.Application.Reminders

For Each xReminder In xReminders

If ReminderExpired(xReminder) = True Then

k = k + 1

xRemItems = xRemItems & k & ": " & xReminder.Caption & vbCr & " Snoozed to " & xReminder.NextReminderDate & vbCr & vbCr

End If

Next xReminder

CreateRemItemsAsEmail "Snoozed RemItems", xRemItems

End Sub

Function ReminderExpired(Reminder As Outlook.Reminder) As Boolean

If (Reminder.OriginalReminderDate <> Reminder.NextReminderDate) Then

ReminderExpired = (Reminder.OriginalReminderDate <> Reminder.NextReminderDate)

End If

End Function

Public Sub CreateRemItemsAsEmail(Theme As String, RemItems As String)

Dim xMailItem As MailItem

On Error Resume Next

Set xMailItem = Application.CreateItem(olMailItem)

With xMailItem

.Subject = Theme

.Body = RemItems

.Save

.Display

End With

Set xMail = Nothing

End SubHope this works for you.
Amanda
This comment was minimized by the moderator on the site
Hi Amanda.Perfect.Many Thanks
This comment was minimized by the moderator on the site
This was so helpful. Thank you.
This comment was minimized by the moderator on the site
WICKED this was helpful thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations