Cum să găsiți mementouri amânate în Outlook?
De exemplu, când amânați un memento în fereastra Memento, memento-ul va dispărea imediat. Prin urmare, cum ați putea afla memento-ul amânat? În acest articol, voi introduce soluția pentru a găsi mementouri amânate în Outlook.
Găsiți mementouri amânate în calendarul Outlook
- Automatizați e-mailurile cu Auto CC / BCC, Auto înainte prin reguli; trimite Răspuns automat (În afara biroului) fără a necesita un server de schimb...
- Primiți mementouri ca Avertisment BCC când răspundeți la toate în timp ce vă aflați în lista BCC și Amintiți-vă când lipsesc atașamentele pentru atașamente uitate...
- Îmbunătățiți eficiența e-mailului cu Răspunde (toate) cu atașamente, Adăugați automat salutul sau data și ora în semnătură sau subiect, Răspunde la mai multe e-mailuri...
- Simplificați e-mailurile cu Rechemare e-mailuri, Instrumente de atașare (Comprimați toate, Salvați automat toate...), Eliminați duplicatele, și Raport rapid...
Găsiți mementouri amânate în calendarul Outlook
Această metodă va introduce un VBA pentru a căuta toate mementourile amânate astăzi în Outlook. Vă rugăm să faceți următoarele:
1. Treceți la Mail vizualizați și apăsați tastele Alt + F11 împreună pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.
2. clic Insera > Moduleși lipiți mai jos codul VBA în noua fereastră a modulului.
VBA: Găsiți mementouri amânate în 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. apasă pe F5 tasta sau faceți clic pe Alerga pentru a rula acest VBA.
Acum puteți vedea că toate mementourile amânate astăzi sunt lipite ca corpul mesajului într-un e-mail nou. Vedeți captura de ecran:
Articole pe aceeaşi temă
Cum să vizualizați viitoarele mementouri în Outlook?
Cum se imprimă lista de memento într-un anumit calendar din Outlook?
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.