كيفية نقل البريد الإلكتروني إلى مجلد محدد بعد تعيين فئة معينة في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد