Hoppa till huvudinnehåll
 

Hur hittar jag snoozed påminnelser i Outlook?

Författare: Kelly Senast ändrad: 2024-08-13

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

Office-fliken - Aktivera flikredigering och surfning i Microsoft Office, vilket gör arbetet enkelt
Lås upp Kutools för Outlook gratisversionen nu och njut av över 70 funktioner med obegränsad åtkomst för alltid
Förbättra din Outlook 2024 - 2010 eller Outlook 365 med dessa avancerade funktioner. Njut av 70+ kraftfulla funktioner och höj din e-postupplevelse!

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:

skärmdumpen av att hitta snoozade påminnelser i outlook

pil blå höger bubblaRelaterade artiklar


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!

🤖 Kutools AI : Använder avancerad AI-teknik för att hantera e-postmeddelanden utan ansträngning, inklusive att svara, sammanfatta, optimera, utöka, översätta och skriva e-postmeddelanden.

📧 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 ProBatch 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 ...

Lås upp Kutools för Outlook omedelbart med ett enda klick—permanent gratis. Vänta inte, ladda ner nu och öka din effektivitet!

kutools för Outlook-funktioner1 kutools för Outlook-funktioner2