Note: The other languages of the website are Google-translated. Back to English
English English

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 a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzioni avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.

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 > Moduloe 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


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (5)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
WICKED questo è stato utile grazie!
Questo commento è stato fatto dal moderatore sul sito
Questo è stato così utile. Grazie.
Questo commento è stato fatto dal moderatore sul sito
Salve ho un problema. Ottengo il seguente errore in modo intermittente "Didascalia del metodo del promemoria dell'oggetto non riuscita" Quindi le parole senza che nulla venga modificato. Qualsiasi idea è benvenuta. Grazie (uso davvero questa macro quando lavoro!
Questo commento è stato fatto dal moderatore sul sito
Ciao Dave AA,
Per il tuo problema, prova il codice qui sotto:
Sub posticipatoPromemoria()

Dim xReminder come promemoria

Dim xReminders come Outlook.Reminders

Dim xRemItems come stringa

Dim k fintanto che

On Error Resume Next

k = 0

Imposta xReminders = Outlook.Application.Reminders

Per ogni xReminder in xReminder

Se ReminderExpired(xReminder) = True Allora

K = K + 1

xRemItems = xRemItems & k & ": " & xReminder.Caption & vbCr & " Posticipati in " & xReminder.NextReminderDate & vbCr & vbCr

End If

Prossimo xPromemoria

CreateRemItemsAsEmail "RemItems posticipati", xRemItems

End Sub

Funzione ReminderExpired(Promemoria As Outlook.Reminder) Come booleano

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

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

End If

End Function

Public Sub CreateRemItemsAsEmail (Tema come stringa, RemItems come stringa)

Dim xMailItem come MailItem

On Error Resume Next

Imposta xMailItem = Application.CreateItem(olMailItem)

Con xMailItem

.Soggetto = Tema

.Corpo = RemItems

.Salva

.Schermo

Fine Con

Imposta xMail = Niente

Fine SubSpero che questo funzioni per te.
Amanda
Questo commento è stato fatto dal moderatore sul sito
Ciao Amanda.Perfect.Molte grazie
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite