วิธีการเน้นคำหลักเฉพาะโดยอัตโนมัติจากอีเมลขาเข้าใน Outlook

ผู้เขียน: ซัน แก้ไขล่าสุด: 2024-08-21

ใน Outlook คุณอาจได้รับอีเมลนับร้อยนับพันทุกวันคุณเคยต้องการไฮไลต์คำหลักบางคำจากอีเมลขาเข้าโดยอัตโนมัติหรือไม่ ในบทความนี้ฉันแนะนำรหัส VBA เพื่อเน้นคำหลักที่คุณระบุจากอีเมลขาเข้าใน Outlook โดยอัตโนมัติ

ไฮไลต์คำหลักโดยอัตโนมัติจากอีเมลขาเข้า

ไฮไลต์คำหลักโดยอัตโนมัติจากอีเมลขาเข้า

ไม่มีฟังก์ชันในตัวใน Outlook ที่สามารถจัดการงานนี้ได้ยกเว้น VBA

1 กด Alt + F11 กุญแจสำคัญในการเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นดับเบิลคลิก นี้OutlookSession ทางซ้าย โครงการ บานหน้าต่างแล้วคัดลอกและวางโค้ดด้านล่างลงในหน้าต่างรหัสใหม่

VBA: ไฮไลต์คำหลักโดยอัตโนมัติในอีเมลขาเข้า

Public WithEvents GMailItems As Outlook.Items
'UpdatebyExtendoffice20181106
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    AutoHighlight_SpecificWords Item
End Sub
Sub AutoHighlight_SpecificWords(Mail As Outlook.MailItem)
    Dim xWord As Variant
    Dim xHTMLBody As String, xStr As String
    Dim xWordArr
    On Error Resume Next
    xWordArr = Array("Kutools", "Important")  'keyword
    xHTMLBody = Mail.HTMLBody
    For Each xWord In xWordArr
        If InStr(xHTMLBody, xWord) > 0 Then
            xStr = "<font style=" & Chr(34) & "background-color: yellow" & Chr(34) & ">" & xWord & "</font>"
            xHTMLBody = Replace(xHTMLBody, xWord, xStr)
            Mail.HTMLBody = xHTMLBody
        End If
    Next
    Mail.Save
End Sub

เคล็ดลับ: ในโค้ดคุณสามารถเปลี่ยนคีย์เวิร์ดได้ตามต้องการในสคริปต์นี้ xWordArr = Array("Kutools", "สำคัญ") .

3. จากนั้นบันทึกรหัสและกลับไปที่ Outlook， ภายใต้ หน้าแรก คลิกแท็บ กฎระเบียบ > จัดการกฎและการแจ้งเตือน.
ข้อความไฮไลต์อัตโนมัติ doc 1

4 ใน กฎและการแจ้งเตือน โต้ตอบคลิก กฎใหม่ ภายใต้ กฎอีเมล จากนั้นใน ตัวช่วยสร้างกฎ โต้ตอบคลิก ใช้กฎเกี่ยวกับข้อความที่ฉันได้รับ.
ข้อความไฮไลต์อัตโนมัติ doc 2

5 คลิก ถัดไป > ถัดไป > ใช่ เพื่อไปที่กล่องโต้ตอบที่สามให้เลือก เรียกใช้สคริปต์ เริ่มต้น Step1 จากนั้นคลิก สคริปต์ in Step2 เพื่อเปิดใช้งาน เลือกสคริปต์ ให้เลือกรหัสนี้ Project1. ThisOutlookSession.AutoHighlight_SpecificWords. คลิก OK.
ข้อความไฮไลต์อัตโนมัติ doc 3 ข้อความไฮไลต์อัตโนมัติ doc 4

6 คลิก ถัดไป > ถัดไปในกล่องโต้ตอบสุดท้ายให้ตั้งชื่อกฎนี้
ข้อความไฮไลต์อัตโนมัติ doc 5

7 คลิก เสร็จสิ้น > OK เพื่อจบกฎ

จากนี้ไปคำหลักที่คุณระบุจะถูกไฮไลต์โดยอัตโนมัติในอีเมลขาเข้า
ข้อความไฮไลต์อัตโนมัติ doc 6

บันทึกหรือส่งออกอีเมลหลายฉบับไปยังไฟล์ fomat อื่น ๆ (PDF / HTML / WORD / EXCEL) ใน Outlook

บางครั้งคุณอาจต้องการบันทึกหรือส่งออกอีเมลไปยังโฟลเดอร์เป็นไฟล์รูปแบบอื่นเช่นไฟล์ PDF, Word หรือ Excel ใน Outlook ใน Outlook ฟังก์ชันบันทึกเป็นและส่งออกไม่สามารถจัดการงานนี้ได้ อย่างไรก็ตาม Kutools สำหรับ Outlook's Save as file ยูทิลิตี้สามารถส่งออกอีเมลหลายฉบับไปยังโฟลเดอร์เป็นไฟล์ที่มีหลายรูปแบบในคราวเดียว คลิกเพื่อทดลองใช้ฟรี 45 วัน!