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

Kako najti preložene opomnike v programu Outlook?

Na primer, ko dremi opomnik v oknu Opomnik, opomnik takoj izgine. Torej, kako lahko najdete preložen opomnik? V tem članku bom predstavil rešitev za iskanje preloženih opomnikov v programu Outlook.

Poiščite preložene opomnike v koledarju programa Outlook

Kartica Office - omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte delo ...
Kutools za Outlook - prinaša 100 zmogljivih naprednih funkcij v Microsoft Outlook
  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po pravilih; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaže sporočilo, ko poskušate odgovoriti na vse, če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v pogovoru po pošti; Odgovori na več e-poštnih sporočil hkrati; Samodejno dodaj pozdrav ko odgovor; Samodejno dodaj datum in čas v zadevo ...
  • Orodja za pritrditev: Samodejno loči, Stisni vse, Preimenuj vse, Samodejno shrani vse ... Hitro poročilo, Preštej izbrano pošto, Odstranitev podvojenih e-poštnih sporočil in stikov ...
  • Več kot 100 naprednih funkcij bo rešiti večino svojih težav v Outlooku 2010-2019 in 365. Polne funkcije 60-dnevnega brezplačnega preskusa.

puščica modri desni mehurčekPoiščite preložene opomnike v koledarju programa Outlook

Ta metoda bo uvedla VBA za iskanje vseh opomnikov, preloženih na Today v programu Outlook. Naredite naslednje:

1. Premaknite na mail in pritisnite tipki Alt + F11, da odprete okno Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduliin prilepite pod kodo VBA v novo okno modula.

VBA: v Outlooku poiščite preložene opomnike

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. Pritisnite F5 ali kliknite Run za zagon tega VBA.

Zdaj lahko vidite, da so vsi opomniki, preloženi na danes, prilepljeni kot telo sporočila v novo e-poštno sporočilo. Oglejte si posnetek zaslona:


puščica modri desni mehurčekPovezani članki


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (5)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
WICKED to je bilo koristno, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
To je bilo zelo koristno. Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, imam težavo. Občasno dobim naslednjo napako "Napis metode opomnika objekta ni uspel" Nato besede brez sprememb. Vse ideje so dobrodošle. Hvala (res uporabljam ta makro, ko delam!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Dave AA,
Za vašo težavo poskusite s spodnjo kodo:
Sub Preloženi opomniki ()

Dim xReminder Kot opomnik

Dim xReminders kot Outlook.Reminders

Dim xRemItems kot niz

Dim k Tako dolgo

On Error Resume Next

k = 0

Nastavite xReminders = Outlook.Application.Reminders

Za vsak xReminder v xReminders

Če je ReminderExpired(xReminder) = True, potem

k = k + 1

xRemItems = xRemItems & k & ": " & xReminder.Caption & vbCr & " Preloženo do " & xReminder.NextReminderDate & vbCr & vbCr

Konec Če

Naslednji xReminder

CreateRemItemsAsEmail "Preloženi predmeti RemItems", xRemItems

End Sub

Funkcija ReminderExpired(Reminder As Outlook.Reminder) Kot Boolean

Če (Reminder.OriginalReminderDate <> Reminder.NextReminderDate) Potem

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

Konec Če

End Function

Public Sub CreateRemItemsAsEmail(tema kot niz, RemItems kot niz)

Zatemni xMailItem kot MailItem

On Error Resume Next

Nastavi xMailItem = Application.CreateItem(olMailItem)

Z xMailItemom

.Zadeva = Tema

.Telo = RemItems

. Shrani

.Prikaz

Končaj s

Nastavite xMail = Nič

Konec SubHope to deluje za vas.
Amanda
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Amanda.Perfect. Najlepša hvala
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije