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

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

ใน 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 = อาร์เรย์ ("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 วัน!
doc บันทึกเป็นไฟล์
 
Kutools for Outlook: มีโปรแกรมเสริม Outlook ที่มีประโยชน์มากมายให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 45 วัน

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

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

🤖 ผู้ช่วยจดหมาย AI: ส่งอีเมลระดับมืออาชีพทันทีด้วยเวทมนตร์ AI คลิกเพียงครั้งเดียวเพื่อตอบกลับอย่างชาญฉลาด น้ำเสียงที่สมบูรณ์แบบ การเรียนรู้หลายภาษา เปลี่ยนรูปแบบการส่งอีเมลอย่างง่ายดาย! ...

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

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

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

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

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

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

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

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I found a solution...

you need to enable Macros...and it WORKS (boom)

Outlook settings > Trust Center > Trust Center Settings > Macro Settings > "Enable all macros"
This comment was minimized by the moderator on the site
"run a script" is not showing, which I guess is an option not allowed by my employer
This comment was minimized by the moderator on the site
you should change register key please look https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ but above process doesn't work for o365 outlook version on windows 10
This comment was minimized by the moderator on the site
Didn't work
This comment was minimized by the moderator on the site
didn't wok for o365 installed outlook on windows 10
This comment was minimized by the moderator on the site
doesn't work for o365 outlook version on windows 10 I applied everything
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations