วิธีนี้จะแนะนำ VBA เพื่อค้นหาการแจ้งเตือนทั้งหมดที่ปิดเสียงเตือนชั่วคราวจนถึงวันนี้ใน Outlook กรุณาดำเนินการดังนี้:

1. เลื่อนไปที่ไฟล์ จดหมาย ดูแล้วกดปุ่ม Alt + F11 พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้ววางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลใหม่

VBA: ค้นหาการแจ้งเตือนที่ปิดเสียงเตือนชั่วคราวใน 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 กด F5 หรือคลิกปุ่ม วิ่ง เพื่อเรียกใช้ VBA นี้

ตอนนี้คุณสามารถเห็นการเตือนความจำทั้งหมดที่ปิดเสียงเตือนชั่วคราวจนถึงวันนี้ถูกวางเป็นเนื้อหาข้อความในอีเมลใหม่ ดูภาพหน้าจอ:

วิธีดูการแจ้งเตือนในอนาคตใน Outlook?

วิธีพิมพ์รายการเตือนความจำในปฏิทินบางอย่างใน Outlook

วิธีจัดเรียงรายการเตือนความจำตามวันครบกำหนดใน Outlook