Hur hittar jag snoozed påminnelser i Outlook?
När du till exempel slumrar en påminnelse i påminnelsefönstret försvinner påminnelsen omedelbart. Därför, hur kunde du ta reda på den snoozed påminnelsen? I den här artikeln presenterar jag lösningen för att hitta snoozed påminnelser i Outlook.
Hitta pausade påminnelser i Outlook-kalendern
- Förbättra din e-postproduktivitet med AI-teknik, vilket gör att du snabbt kan svara på e-postmeddelanden, skriva utkast till nya, översätta meddelanden och mer effektivt.
- Automatisera e-post med Auto CC / BCC, Automatisk vidarebefordran genom regler; skicka Auto-svar (Out of Office) utan att kräva en utbytesserver...
- Få påminnelser som BCC-varning när du svarar alla medan du är i BCC-listan, och Påminn när du saknar bilagor för bortglömda bilagor...
- Förbättra e-posteffektiviteten med Svara (alla) med bilagor, Lägg automatiskt till hälsning eller datum och tid i signatur eller ämne, Svara på flera e-postmeddelanden...
- Effektivisera e-post med Återkalla e-postmeddelanden, Tillbehörsverktyg (Komprimera alla, Autospara alla...), Ta bort dubbletteroch Snabbrapport...
Hitta pausade påminnelser i Outlook-kalendern
Denna metod kommer att introducera en VBA för att leta efter alla påminnelser som är snoozed till Today i Outlook. Gör så här:
1. Växla till Post Visa och tryck på Alt + F11-tangenterna tillsammans för att öppna Microsoft Visual Basic for Applications-fönstret.
2. klick Insert > Modulernaoch klistra in under VBA-koden i det nya modulfönstret.
VBA: Hitta snoozed påminnelser i 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. tryck på F5 eller klicka på Körning för att köra denna VBA.
Nu kan du se att alla påminnelser som slumrats till idag klistras in som meddelandetexten i ett nytt e-postmeddelande. Se skärmdump:
Relaterade artiklar
Hur visar jag framtida påminnelser i Outlook?
Hur skriver jag ut en påminnelselista i en viss kalender i Outlook?
Bästa kontorsproduktivitetsverktyg
Nyheter: Kutools för Outlook lanseras Gratis version!
Upplev de helt nya Kutools för Outlook GRATIS version med 70+ otroliga funktioner, din att använda FÖR EVIGT! Klicka för att ladda ner nu!
📧 Email Automation: Autosvar (tillgängligt för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Återkalla e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Påminn dig när viktiga mejl kommer / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...