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

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

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

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

علامة تبويب Office - تمكين التحرير والتصفح المبوب في Microsoft Office، مما يجعل العمل سهلاً
Kutools for Outlook - عزز Outlook بأكثر من 100 ميزة متقدمة لتحقيق كفاءة فائقة
عزز Outlook 2021 - 2010 أو Outlook 365 الخاص بك باستخدام هذه الميزات المتقدمة. استمتع بتجربة مجانية شاملة مدتها 60 يومًا وارفع مستوى تجربة بريدك الإلكتروني!

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

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

1. أولاً ، تحتاج إلى إنشاء اسم مجلد جديد "التعليق"ضمن مجلد البريد الوارد.

2. افتح مجلد Inbox ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. ثم انقر نقرًا مزدوجًا للتوسيع Project1 > كائنات Microsoft Outlook > هذه الجلسة لفتح VbaProject.Otm محرر.

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

كود فبا: نقل الرسائل بعد قراءتها

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 ثم أغلق ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

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

2). تحديد مشروع 1. هذه الجلسة في المربع الموجود أسفل اختر الأوامر من قائمة منسدلة؛

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

4). انقر على OK .

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

ملاحظة:

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

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

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

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


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

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

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

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

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

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

 

Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
This comment was minimized by the moderator on the site
has anyone had this not work the second time you tried to apply it?
This comment was minimized by the moderator on the site
Buongiorno


Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
This comment was minimized by the moderator on the site
What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
This comment was minimized by the moderator on the site
Where's all the Dim's?????????????????????/ o.0
This comment was minimized by the moderator on the site
I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
This comment was minimized by the moderator on the site
You have to activate the references in VBA
This comment was minimized by the moderator on the site
Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations