ไปยังเนื้อหาหลัก

จะค้นหาการแจ้งเตือนที่ปิดเสียงเตือนชั่วคราวใน Outlook ได้อย่างไร?

ตัวอย่างเช่นเมื่อปิดเสียงเตือนชั่วคราวในหน้าต่างเตือนความจำการเตือนความจำจะหายไปทันที ดังนั้นคุณจะค้นหาการแจ้งเตือนที่ปิดเสียงเตือนชั่วคราวได้อย่างไร ในบทความนี้ฉันจะแนะนำวิธีแก้ปัญหาในการค้นหาการแจ้งเตือนที่ปิดเสียงเตือนชั่วคราวใน Outlook

ค้นหาการแจ้งเตือนที่ปิดเสียงเตือนชั่วคราวในปฏิทิน Outlook

Office Tab - เปิดใช้งานการแก้ไขแบบแท็บและการเรียกดูใน Microsoft Office ทำให้งานเป็นเรื่องง่าย
Kutools for Outlook - เพิ่ม Outlook ด้วยฟีเจอร์ขั้นสูงกว่า 100+ รายการเพื่อประสิทธิภาพที่เหนือกว่า
เพิ่มประสิทธิภาพ Outlook 2021 - 2010 หรือ Outlook 365 ของคุณด้วยฟีเจอร์ขั้นสูงเหล่านี้ เพลิดเพลินกับการทดลองใช้ฟรี 60 วันและยกระดับประสบการณ์อีเมลของคุณ!

ลูกศรสีฟ้าฟองขวาค้นหาการแจ้งเตือนที่ปิดเสียงเตือนชั่วคราวในปฏิทิน Outlook

วิธีนี้จะแนะนำ 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 นี้

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


ลูกศรสีฟ้าฟองขวาบทความที่เกี่ยวข้อง


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HiI am having problem. I get the following error intermittently "Method Caption of object reminder failed " It then words with nothing being changed.Any ideas welcome.Thanks(I really use this macro when working !
This comment was minimized by the moderator on the site
Hi Dave AA,
For your problem, please try the code below:
<div data-tag="code">Sub SnoozedReminders()

Dim xReminder As Reminder

Dim xReminders As Outlook.Reminders

Dim xRemItems As String

Dim k As Long

On Error Resume Next

k = 0

Set xReminders = Outlook.Application.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 xMailItem As MailItem

On Error Resume Next

Set xMailItem = Application.CreateItem(olMailItem)

With xMailItem

.Subject = Theme

.Body = RemItems

.Save

.Display

End With

Set xMail = Nothing

End SubHope this works for you.
Amanda
This comment was minimized by the moderator on the site
Hi Amanda.Perfect.Many Thanks
This comment was minimized by the moderator on the site
This was so helpful. Thank you.
This comment was minimized by the moderator on the site
WICKED this was helpful thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations