ตามค่าเริ่มต้น Outlook จะใช้เวลาเตือนความจำเริ่มต้นของงานกับรายการที่ถูกตั้งค่าสถานะทุกประเภทโดยอัตโนมัติ อย่างไรก็ตามหากคุณต้องการใช้เวลาเตือนความจำที่แตกต่างกันสำหรับรายการที่ถูกตั้งค่าสถานะตามประเภทรายการคุณสามารถอ้างถึงวิธีการที่แนะนำในบทความนี้
Outlook อนุญาตให้คุณตั้งเวลาเตือนความจำเริ่มต้นสำหรับรายการที่ถูกตั้งค่าสถานะทั้งหมดโดยไม่คำนึงถึงประเภทรายการ คุณสามารถไปที่เมนู“ ไฟล์” แล้วคลิก“ ตัวเลือก” จากนั้นในหน้าต่าง“ ตัวเลือก Outlook” คุณจะเห็นตัวเลือก“ เวลาเตือนความจำเริ่มต้น” บนแท็บ“ งาน” ดังที่แสดงในภาพหน้าจอต่อไปนี้

อย่างไรก็ตาม ผู้ใช้ส่วนใหญ่หวังที่จะใช้เวลาเตือนที่แตกต่างกันสำหรับรายการที่ติดธงประเภทต่างๆ เช่น “9:00” สำหรับอีเมลที่ติดธง และ “17:30” สำหรับรายชื่อติดต่อที่ติดธง ต่อไปนี้เราจะใช้ตัวอย่างนี้เพื่อแนะนำวิธีการ
ตั้งค่าเวลาการแจ้งเตือนเริ่มต้นที่แตกต่างกันสำหรับรายการที่ถูกตั้งค่าสถานะประเภทต่างๆ
- เริ่มต้นด้วยการเปิดแอปพลิเคชัน Outlook
- จากนั้นเข้าถึงโปรแกรมแก้ไข Outlook VBA โดยอ้างอิงถึง“วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
- ในหน้าต่าง“ Microsoft Visual Basic for Applications” ที่ตามมาให้คัดลอกโค้ดต่อไปนี้ลงในโปรเจ็กต์“ ThisOutlookSession”
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
If objExplorer.Selection.Item(1).Class = olMail Then
Set objMail = objExplorer.Selection.Item(1)
ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
Set objContact = objExplorer.Selection.Item(1)
End If
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Set objMail = Inspector.CurrentItem
ElseIf Inspector.CurrentItem.Class = olContact Then
Set objContact = Inspector.CurrentItem
End If
End Sub
Private Sub objMail_PropertyChange(ByVal Name As String)
If Name = "ToDoTaskOrdinal" Then
If objMail.IsMarkedAsTask = True Then
If objMail.TaskDueDate <> "1/1/4501" Then
With objMail
.ReminderSet = True
'Change the reminder time for flagged emails
.ReminderTime = objMail.TaskDueDate & " 10:00"
.Save
End With
End If
End If
End If
End Sub
Private Sub objContact_PropertyChange(ByVal Name As String)
If Name = "ToDoTaskOrdinal" Then
If objContact.IsMarkedAsTask = True Then
If objContact.TaskDueDate <> "1/1/4501" Then
With objContact
.ReminderSet = True
'Change the reminder time for flagged contacts
.ReminderTime = objContact.TaskDueDate & " 17:30"
.Save
End With
End If
End If
End If
End Sub
- หลังจากนั้น ให้รีสตาร์ท Outlook เพื่อเปิดใช้งานมาโครนี้
- นับจากนี้เป็นต้นไปทุกครั้งที่คุณตั้งค่าสถานะอีเมลเวลาเตือนความจำจะถูกตั้งค่าเป็น "10:00" ในวันที่กำหนดธง
- และเมื่อคุณตั้งค่าสถานะผู้ติดต่อเวลาเตือนความจำจะถูกตั้งไว้ที่“ 17:30” ในวันที่กำหนดธง
แก้ไขปัญหา Outlook ได้อย่างยืดหยุ่น
คุณอาจพบปัญหาต่างๆ มากมายใน Outlook ดังนั้นคุณจึงต้องเรียนรู้วิธีการรับมือกับปัญหาเหล่านั้นล่วงหน้า ตัวอย่างเช่น หาก Outlook ของคุณรีสตาร์ทบ่อย คุณจำเป็นต้องซ่อมแซม Office หรือปิดใช้งานส่วนเสริมของบุคคลที่สาม เป็นต้น หรือหากไฟล์ PST ของ Outlook ถูกบุกรุก คุณสามารถลองทำตามขั้นตอนต่อไปนี้ก่อน: เครื่องมือซ่อมแซมกล่องจดหมาย. เมื่อล้มเหลวคุณสามารถใช้เครื่องมือภายนอกที่ทรงพลังต่อไปได้เช่น DataNumen Outlook Repair.
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ การกู้คืน mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.


