ดังนั้นอย่าลืมตอบกลับอีเมลสำคัญคุณอาจต้องการให้ Outlook แสดงอีเมลสำคัญที่คุณยังไม่ได้ตอบกลับด้วยสีของรายการเฉพาะเพื่อไฮไลต์ ตอนนี้บทความนี้จะสอนวิธีรับ
คุณเคยพลาดอีเมลสำคัญและไม่ตอบกลับทันเวลาหรือไม่? หากคุณประสบปัญหาดังกล่าวบางทีคุณอาจหวังว่า Outlook จะสามารถเน้นอีเมลสำคัญที่คุณยังไม่ได้ตอบกลับ ตอนนี้ในสิ่งต่อไปนี้เราจะแนะนำให้คุณบรรลุด้วย VBA หากคุณไม่คุ้นเคยกับ VBA โปรดดูบทความก่อนหน้าของฉัน -“วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ" ในขณะเดียวกัน.
ไฮไลต์อีเมลสำคัญที่คุณยังไม่ได้ตอบกลับโดยอัตโนมัติ
- ในตอนแรกให้เข้าถึงโปรแกรมแก้ไข VBA ผ่าน“ Alt + F11” ใน Outlook
- จากนั้นในหน้าต่างใหม่ให้คัดลอกโค้ดด้านล่างลงในโปรเจ็กต์“ ThisOutlookSession”
Private WithEvents objSentFolder As Outlook.Folder
Private WithEvents objSentMails As Outlook.Items
Private objInbox As Outlook.Folder
'On startup, auto update the replied status of the emails in Inbox
Private Sub Application_Startup()
Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
Set objSentMails = objSentFolder.Items
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Call UpdateRepliedStatus(objInbox)
End Sub
'After sending an email, auto update the replied status of the emails in Inbox
Private Sub objSentMails_ItemAdd(ByVal Item As Object)
If Item.Class = olMail Then
Call UpdateRepliedStatus(objInbox)
End If
End Sub
Private Sub UpdateRepliedStatus(ByVal objFolder As Outlook.Folder)
Dim i As Long
Dim objMail As Outlook.MailItem
Dim objRepliedProperty As Outlook.UserProperty
Dim strRepliedStatus As String
'Write the replied status to a new user property of emails
For i = objFolder.Items.Count To 1 Step -1
If objFolder.Items(i).Class = olMail Then
Set objMail = objFolder.Items(i)
Set objRepliedProperty = objMail.UserProperties.Find("Replied", True)
If objRepliedProperty Is Nothing Then
Set objRepliedProperty = objMail.UserProperties.Add("Replied", olText, True)
End If
strRepliedStatus = objMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003")
If (Not (strRepliedStatus = 102)) And (Not (strRepliedStatus = 103)) Then
objRepliedProperty.Value = "No"
Else
objRepliedProperty.Value = "Yes"
End If
objMail.Save
End If
Next
End Sub
- หลังจากนั้นเลื่อนเคอร์เซอร์ไปที่“ Application_Startup” มาโครแล้วกด“ F5”
- ต่อมาปิดหน้าต่างนี้
- จากนั้นทำตามขั้นตอนด้านล่างเพื่อสร้างกฎการจัดรูปแบบตามเงื่อนไขสำหรับรายการใน Inbox
- ก่อนอื่นให้เปลี่ยนไปที่โฟลเดอร์“ กล่องจดหมาย”
- จากนั้นไปที่แท็บ "ดู" แล้วคลิก "ดูการตั้งค่า"
- ในกล่องโต้ตอบใหม่คลิกปุ่ม“ การจัดรูปแบบตามเงื่อนไข”
- ในกล่องโต้ตอบ "การจัดรูปแบบตามเงื่อนไข" ถัดไปให้คลิก "เพิ่ม" และป้อนชื่อสำหรับกฎใหม่เช่น "อีเมลสำคัญที่ไม่ตอบกลับ"
- จากนั้นคลิกปุ่ม“ แบบอักษร…” และตั้งค่ารูปแบบและสีแบบอักษรในกล่องโต้ตอบ“ แบบอักษร” ของป๊อปอัป
- หลังจากระบุแบบอักษรแล้วให้กด“ Condition …” ในกล่องโต้ตอบ“ Conditional Formatting”
- จากนั้นในหน้าจอ "ตัวกรอง" บนแท็บ "ขั้นสูง" ให้เพิ่มตัวกรองสองตัว
- “ ความสำคัญ”>“ เท่ากับ”>“ สูง”
- “ ตอบกลับ”>“ คือ (ตรง)”>“ ไม่ใช่”
- ในที่สุดคลิกชุดของ“ ตกลง” เพื่อบันทึกกฎการจัดรูปแบบนี้
- หลังจากที่คุณกลับไปที่ Inbox อีเมลสำคัญทั้งหมดที่คุณยังไม่ได้ตอบกลับจะถูกไฮไลต์ด้วยแบบอักษรและสีที่ต้องการ
อย่าหย่อนในการปกป้องข้อมูลของ Outlook
ผู้ใช้จำนวนมากยังคงคิดว่าความเสียหายของข้อมูลจะไม่เกิดขึ้นกับพวกเขา ในความเป็นจริงความคิดดังกล่าวผิดและมีความเสี่ยงโดยสิ้นเชิง มost เมื่อเวลาผ่านไปความผิดพลาดเพียงเล็กน้อยอาจทำให้ข้อมูลสูญหายได้อย่างง่ายดาย ตัวอย่างเช่นหากคุณเผลอคลิกลิงก์ที่เป็นอันตรายในอีเมลที่ไม่รู้จักไฟล์ Outlook ของคุณอาจติดไวรัสและเสียหายได้ ดังนั้นคุณควรระมัดระวังตลอดเวลาในการปกป้องข้อมูลเช่นการสำรองข้อมูล PST เป็นประจำและเตรียมเครื่องมือแก้ไขที่มีศักยภาพเช่น DataNumen Outlook Repair, ซึ่งสามารถ แก้ไข Outlook ปัญหาในระยะเวลาอันสั้น
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ กู้คืน mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.