كيفية تمييز الكلمات الرئيسية المحددة تلقائيًا من رسائل البريد الإلكتروني الواردة في Outlook

في Outlook، قد تستلم مئات بل آلاف الرسائل الإلكترونية يوميًا. هل سبق أن رغبت في تمييز بعض الكلمات الرئيسية تلقائيًا في الرسائل الواردة؟ في هذه المقالة، أقدّم لك كود VBA لتمييز الكلمات التي تحددها تلقائيًا داخل الرسائل الإلكترونية الواردة في Outlook.

تمييز الكلمات الرئيسية تلقائيًا من الرسائل الواردة

---

تمييز الكلمات الرئيسية تلقائيًا من الرسائل الواردة

لا توجد وظيفة مدمجة في Outlook قادرة على تنفيذ هذه المهمة سوى VBA.

1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. بعد ذلك، انقر نقرًا مزدوجًا علىThisOutlookSession في الجزء الأيسر منProject، ثم انسخ والصق الكود أدناه في نافذة الكود الجديدة.

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», «Important»).

3. بعد ذلك، احفظ الكود وعُد إلى Outlook. ضمن علامة التبويبHome، انقر علىRules > Manage Rules & Alerts.

4. في مربع الحوارRules and Alerts، انقر علىNew Rule ضمن علامة التبويبE-mail Rules. ثم، في مربع الحوارمعالج القواعد، انقر علىApply rule on messages I receive.

5. انقر علىNext > Next > Yes للانتقال إلى مربع الحوار الثالث، ثم فعّل الخيارrun a script من قسمStep1. بعد ذلك، انقر علىa script في قسمStep2 لفتح مربع الحوارSelect Script، واختر هذا الكود: Project1.ThisOutlookSession.AutoHighlight_SpecificWords. أخيرًا، انقر علىOK.

6. انقر علىNext > Next، ثم في مربع الحوار الأخير، أعطِ اسمًا لهذه القاعدة.

7. انقر علىFinish ثم علىOK لإنهاء إعداد القاعدة.

من الآن فصاعدًا، سيتم تمييز الكلمات الرئيسية التي حددتها تلقائيًا في الرسائل الواردة.

---

حفظ أو تصدير رسائل بريد إلكتروني متعددة إلى ملفات بتنسيقات أخرى (PDF/HTML/WORD/EXCEL) في Outlook

قد ترغب أحيانًا في حفظ رسائل البريد الإلكتروني أو تصديرها إلى مجلد كملفات بتنسيقات أخرى، مثل PDF أو Word أو Excel من Outlook. لكن وظيفتي «حفظ باسم» و«تصدير» في Outlook لا تستطيعان تنفيذ هذه المهمة. ومع ذلك، يُمكّنك الحل من تصدير رسائل بريد إلكتروني متعددة إلى مجلد كملفات بتنسيقات مختلفة دفعة واحدة.انقر للحصول على نسخة تجريبية مجانية لمدة 45 يومًا!Kutools لـ Outlook's Save as file

Kutools لـ Outlook: مع عشرات الإضافات المفيدة لـ Outlook، جرّبها مجانًا دون قيود لمدة 45 يومًا.