كيفية نقل رسائل البريد الإلكتروني إلى المجلد المحدد بعد تعيين فئة معينة في Outlook؟
لنفترض أنك قمت بتعيين فئة إلى بريد إلكتروني مستلم في Outlook الخاص بك ، بعد تعيين الفئة ، تريد أن ينتقل هذا البريد الإلكتروني تلقائيًا إلى مجلد بريد إلكتروني معين يسمى باسم الفئة. على سبيل المثال ، سيتم نقل البريد الإلكتروني المعين بالفئة "خاص" إلى اسم مجلد "خاص" في Outlook الخاص بك. كيف يتم تحقيق ذلك؟ يمكن أن تساعدك الطريقة في هذه المقالة في حل المشكلة بسهولة.
انقل رسائل البريد الإلكتروني إلى المجلد المحدد بعد تعيين فئة معينة باستخدام VBA
انقل رسائل البريد الإلكتروني إلى المجلد المحدد بعد تعيين فئة معينة باستخدام VBA
يمكن أن يساعد رمز VBA أدناه في نقل رسائل البريد الإلكتروني تلقائيًا إلى مجلد محدد بعد تعيين فئة معينة في Outlook. الرجاء القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر نقرًا مزدوجًا لفتح ملف ThisOutlookSession (رمز) نافذة او شباك. ثم انسخ رمز 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؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!