วิธีใช้สีแบบอักษรที่แตกต่างกันโดยอัตโนมัติสำหรับการตอบกลับและส่งต่ออีเมลด้วย Outlook VBA

ตามค่าเริ่มต้นคุณไม่สามารถปล่อยให้ Outlook อัตโนมัติใช้สีแบบอักษรที่แตกต่างกันสำหรับการตอบกลับและส่งต่ออีเมล ดังนั้นหากคุณมีข้อกำหนดดังกล่าวคุณสามารถอ่านหน้านี้ost เพื่อเรียนรู้แนวทางที่ชาญฉลาด

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

อย่างไรก็ตามผู้ใช้หลายคนหวังว่าจะใช้สีแบบอักษรที่แตกต่างกันในการตอบกลับหรือส่งต่ออีเมล แม้ว่า Outlook จะไม่มีคุณสมบัติโดยตรงสำหรับสิ่งนี้ แต่ก็ยังสามารถรับรู้ได้ด้วยรหัส VBA ตอนนี้อ่านเพื่อรับโค้ด VBA ดังกล่าว

ใช้สีแบบอักษรที่แตกต่างกันโดยอัตโนมัติสำหรับการตอบกลับและการส่งต่ออีเมล

1. สำหรับเป็นtart เปิดแอปพลิเคชัน Outlook
2. จากนั้นทริกเกอร์ตัวแก้ไข VBA โดยอ้างอิงถึง“วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
3. ถัดไปตาม“วิธีเพิ่ม Object Library การอ้างอิงใน VBA“ เพิ่มการอ้างอิงถึง“ MS Word Object Librarย”.
4. จากนั้นคัดลอกโค้ดต่อไปนี้ลงในโปรเจ็กต์“ ThisOutlookSession”

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If TypeOf objExplorer.Selection.Item(1) Is MailItem Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Dim objReply As Outlook.MailItem
    Dim objReplyDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objReply = objMail.Reply
    objReply.Display
    Set objReplyDoc = objReply.GetInspector.WordEditor
    objReplyDoc.Range(0, 0).Select
    Set objDocSelection = objReplyDoc.Application.Selection
    'Use "Pink" font in "Reply"
    objDocSelection.Font.ColorIndex = wdPink
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objReplyAllDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objReplyAll = objMail.ReplyAll
    objReplyAll.Display
    Set objReplyAllDoc = objReplyAll.GetInspector.WordEditor
    objReplyAllDoc.Range(0, 0).Select
    Set objDocSelection = objReplyAllDoc.Application.Selection
    'Use "Green" font in "Reply All"
    objDocSelection.Font.ColorIndex = wdGreen
End Sub

Private Sub objMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    Dim objForward As Outlook.MailItem
    Dim objForwardDoc As Word.Document
    Dim objDocSelection As Word.Selection
 
    Cancel = True
    Set objForward = objMail.Forward
    objForward.Display
    Set objForwardDoc = objForward.GetInspector.WordEditor
    objForwardDoc.Range(0, 0).Select
    Set objDocSelection = objForwardDoc.Application.Selection
    'Use "Blue" font in Forward
    objDocSelection.Font.ColorIndex = wdBlue
End Sub

5. หลังจากนั้น restart Outlook เพื่อเปิดใช้งานแมโครนี้
6. สุดท้ายคุณสามารถลอง

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

ขอความช่วยเหลือจากซอฟต์แวร์ที่เชื่อถือได้

ในกรณีที่ ความเสียหายของ Outlook, ม.ost ผู้ใช้มักจะใช้ซอฟต์แวร์กู้คืน Outlook มีโปรแกรมดังกล่าวมากมายในตลาด และบางส่วนก็ไม่เสียค่าใช้จ่าย อย่างไรก็ตามคุณควรระวังผู้ที่มาจากแหล่งที่ไม่รู้จักเพราะอาจทำให้กรณีปัจจุบันแย่ลงและแย่ลง คุณควรใช้เครื่องมือที่เชื่อถือได้และมีประสบการณ์เช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ sql ที่เสียหาย และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.