كيفية نقل الرسالة الإلكترونية إلى مجلد محدد بعد القراءة في Outlook؟

نقل الرسائل الإلكترونية إلى مجلد محدد بعد قراءتها هو أفضل طريقة للحفاظ على نظافة مجلد البريد الوارد في Outlook. بالنسبة للكثير من مستخدمي Outlook، فإنهم يميلون إلى إنشاء قاعدة لنقل هذه الرسائل التي تم قراءتها. في الواقع، لا يدعم Outlook عملية معالج القواعد هذه. في هذه المقالة، سنوضح لك كيفية نقل الرسائل الإلكترونية إلى مجلد محدد بعد قراءتها باستخدام كود VBA في Outlook.

نقل الرسالة الإلكترونية إلى مجلد محدد بعد القراءة في Outlook

نقل الرسالة الإلكترونية إلى مجلد محدد بعد القراءة في Outlook

يمكنك نقل الرسائل الإلكترونية إلى مجلد محدد بعد قراءتها عن طريق تشغيل كود VBA في Outlook.

1. أولاً، تحتاج إلى إنشاء مجلد جديد باسم “Reviewed” تحت مجلد البريد الوارد.

2. افتح مجلد البريد الوارد، ثم اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

3. بعد ذلك، انقر نقرًا مزدوجًا لتوسيع Project1 > Microsoft Outlook Objects > ThisOutlookSession لفتح محرر VbaProject.OTM .

4. ثم انسخ والصق الكود التالي الخاص بـ VBA إلى محرر VbaProject.OTM كما هو موضح في لقطة الشاشة أعلاه.

كود VBA: نقل الرسائل بعد القراءة

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. بعد ذلك، انقر على زر الحفظ لحفظ كود VBA ثم أغلق نافذة Microsoft Visual Basic for Applications.

6. انقر بزر الماوس الأيمن على شريط أدوات الوصول السريع، وحدد تخصيص شريط أدوات الوصول السريع من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

7. في مربع حوار خيارات Outlook، تحتاج إلى:

1). تحديد ماكرو في القائمة المنسدلة اختيار الأوامر من؛

2). تحديد Project1. ThisOutlookSession في المربع أسفل القائمة المنسدلة اختيار الأوامر من؛

3). انقر على زر الإضافة؛

4). انقر على زر موافق.

8. بعد ذلك، يمكنك رؤية زر الماكرو يظهر في شريط أدوات الوصول السريع. تأكد من أنك موجود في مجلد البريد الوارد الذي تريد نقل جميع الرسائل التي تم قراءتها منه، ثم انقر على زر الماكرو لتشغيل كود VBA داخل البريد الوارد.

ملاحظات:

1. يمكن تطبيق هذا الكود VBA في Outlook 2007 و2010 و2013؛ ولكن، في Outlook 2007، يمكنك النقر مباشرة على زر التشغيل لتشغيل الكود.

2. إذا كان هناك عدة حسابات بريد إلكتروني موجودة في Outlook الخاص بك، يمكن تطبيق كود VBA فقط على الحساب الذي تم تعيين ملف البيانات الخاص به كافتراضي. يمكنك التحقق من ملف البيانات الافتراضي بالنقر على ملف > معلومات > إعدادات الحساب > إعدادات الحساب لفتح مربع الحوار إعدادات الحساب ثم انتقل إلى ملف البيانات التبويب، سترى أن ملف البيانات الافتراضي مميز بـ من قبل.

3. إذا كنت ترغب في تغيير ملف البيانات الافتراضي إلى حساب بريد إلكتروني آخر، يرجى تحديد وإبراز الحساب الذي تريد تعيينه كافتراضي، ثم انقر على تعيين كافتراضي في مربع حوار إعدادات الحساب.

4. عند تشغيل كود VBA لأول مرة واكتشاف أن الرسائل التي تم قراءتها لم يتم نقلها دفعة واحدة، يرجى الاستمرار في النقر على زر الماكرو حتى يتم نقل جميع الرسائل التي تم قراءتها من البريد الوارد.

---

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

خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!

جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!

🤖 Kutools AI : يستخدم تكنولوجيا الذكاء الاصطناعي المتقدمة للتعامل مع البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء رسائل البريد الإلكتروني.

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

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...

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

🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

جدول أحادي الأبعاد لميزات Kutools لـ Outlook تنزيل الآن انتقل للشراء

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

• ✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
• 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
• 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint

حول الحزمة ⬇ تنزيل الحزمة 💳 شراء الحزمة