انتقل إلى المحتوى الرئيسي

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

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

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


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

لا توجد وظيفة مضمنة في Outlook يمكنها التعامل مع هذه الوظيفة باستثناء VBA.

1. صحافة ALT + F11 مفتاح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم انقر نقرًا مزدوجًا هذه الجلسة في اليسار حملات التبرع ، وانسخ والصق الرمز أدناه في نافذة التعليمات البرمجية الجديدة.

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 = صفيف ("كوتولس""مهم") .

3. ثم احفظ الكود وارجع إلى Outlook , under الصفحة الرئيسية ، انقر فوق قوانيـن > إدارة القواعد والتنبيهات.
نص تمييز المستند تلقائيًا 1

4. في ال القواعد والتنبيهات الحوار، انقر فوق قانون جديد مع قواعد البريد الإلكتروني علامة التبويب ، ثم في معالج القواعد الحوار، انقر فوق تطبيق القاعدة على الرسائل التي أتلقىها.
نص تمييز المستند تلقائيًا 2

5. انقر التالى > التالى > نعم للذهاب إلى مربع الحوار الثالث ، تحقق تشغيل البرنامج النصي تبدأ من Step1 ، ثم انقر السيناريو in Step2 قسم لتمكين حدد البرنامج النصي الحوار ، اختر هذا الرمز المشروع 1. جلسة Outlook. تمييز تلقائي _ تحديد الكلمات. انقر OK.
نص تمييز المستند تلقائيًا 3 نص تمييز المستند تلقائيًا 4

6. انقر التالى > التالى، في الحوار الأخير ، قم بتسمية هذه القاعدة.
نص تمييز المستند تلقائيًا 5

7. انقر نهاية > OK لإنهاء القاعدة.

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


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

في بعض الأحيان ، قد ترغب في حفظ رسائل البريد الإلكتروني أو تصديرها إلى مجلد كملفات تنسيق أخرى ، مثل ملفات PDF أو Word أو Excel في Outlook. في Outlook ، لا يمكن لأي من الوظيفتين "حفظ باسم" و "تصدير" معالجة هذه المهمة. ومع ذلك، كوتولس لتوقعات's Save as file يمكن للأداة المساعدة تصدير رسائل بريد إلكتروني متعددة إلى مجلد كملفات بتنسيقات متعددة في وقت واحد.    انقر للحصول على نسخة تجريبية مجانية لمدة 45 يومًا!
doc حفظ كملف
 
Kutools for Outlook: مع العشرات من الوظائف الإضافية المفيدة في Outlook ، يمكنك تجربتها مجانًا دون قيود خلال 45 يومًا.

أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات بروحفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية 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