كيف يمكن نقل رسائل البريد الإلكتروني تلقائيًا إلى مجلد معيّن بعد تعيين فئة محددة لها في Outlook؟
افترض أنك قمت بتعيين فئة لرسالة بريد إلكتروني واردة في Outlook، وترغب بعد ذلك في نقل هذه الرسالة تلقائيًا إلى مجلد يحمل اسم الفئة نفسها. على سبيل المثال، تُنقل الرسالة التي تم تصنيفها بفئة «خاصة» تلقائيًا إلى مجلد باسم «خاصة» في Outlook. كيف يمكنك تحقيق ذلك؟ تساعدك الطريقة الموضحة في هذا المقال على حل المشكلة بسهولة.
نقل رسائل البريد الإلكتروني إلى مجلد معيّن بعد تعيين فئة معينة باستخدام VBA
نقل رسائل البريد الإلكتروني إلى مجلد معيّن بعد تعيين فئة معينة باستخدام VBA
يمكنك استخدام رمز VBA أدناه لنقل رسائل البريد الإلكتروني تلقائيًا إلى مجلد معيّن بمجرد تعيين فئة معينة لها في Outlook. يُرجى اتباع الخطوات التالية:
1. اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر مرتين لفتح النافذةThisOutlookSession (Code). بعد ذلك، انسخ رمز VBA أدناه إلى النافذة. انظر لقطة الشاشة:
رمز VBA: نقل رسائل البريد الإلكتروني إلى مجلد معيّن بعد تعيين فئة معينة
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. احفظ الرمز ثم أعد تشغيل Outlook.
4. بدءًا من الآن، عند تعيين فئة لرسالة بريد إلكتروني واردة، سيتم إنشاء مجلد تلقائيًا باسم هذه الفئة داخل مجلد علبة الوارد، وستُنقَل الرسالة إليه. انظر لقطة الشاشة:
ملاحظة: سيتم نقل جميع رسائل البريد الإلكتروني التي تم تعيين نفس الفئة لها إلى نفس المجلد تلقائيًا. ولكن إذا تم تعيين فئة جديدة لرسالة بريد إلكتروني، فسيتم إنشاء مجلد جديد تلقائيًا.
مساعد البريد الذكي في Outlook: ردود أذكى، وتواصل أوضح (سحر بنقرة واحدة!)
بسِّط مهام Outlook اليومية مع مساعد البريد الذكي من Kutools لـ Outlook! تعلّم هذه الأداة القوية من بريدك السابق لتقدّم لك ردودًا ذكية ودقيقة، وتحسّن محتوى رسائلك، وتساعدك في صياغتها وتنقيحها بسلاسة ودون أي جهد.
يدعم هذا الميزة:
- الردود الذكية: احصل على ردود مُعدَّة مسبقًا من محادثاتك السابقة—مخصصة بدقة، وملائمة تمامًا، وجاهزة للاستخدام الفوري.
- قم بتنقية نص بريدك تلقائيًا لضمان وضوحه وتأثيره.
- الكتابة دون عناء: ما عليك سوى إدخال الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع توفر عدة أساليب كتابة.
- الامتدادات الذكية: وسِّع آفاقك باقتراحات ذكية تراعي السياق!
- التلخيص: احصل فورًا على نظرة عامة موجزة للرسائل الإلكترونية الطويلة.
- الوصول العالمي: ترجم رسائلك الإلكترونية إلى أي لغة بسهولة.
يدعم هذا الميزة:
- الردود الذكية على البريد الإلكتروني
- المحتوى المُحسَّن
- مسودات مبنية على الكلمات المفتاحية
- تمديد المحتوى الذكي
- تلخيص البريد الإلكتروني
- الترجمة متعددة اللغات
مقالات ذات صلة:
- كيف يمكن تعيين فئة للبريد الإلكتروني الصادر في Outlook؟
- كيف يمكن الاحتفاظ بالفئات الأصلية عند الرد على بريد إلكتروني أو إعادة توجيهه في Outlook؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل