كيفية الفرز والتجميع حسب نطاق المرسل في Outlook؟

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

لفرز وتجميع رسائل البريد الإلكتروني حسب نطاقات المرسلين في Microsoft Outlook 2013 و2010، يرجى اتباع الخطوات التالية:

الخطوة 1: افتح مجلد البريد حيث ستقوم بفرز جميع رسائل البريد الإلكتروني حسب نطاقات المرسلين.

الخطوة 2: قم بإيقاف تشغيل لوحة القراءة عن طريق النقر على لوحة القراءة > إيقاف التشغيل في علامة التبويب عرض.

الخطوة 3: تابع وانقر على إضافة أعمدة في علامة التبويب عرض.

الخطوة 3: في مربع الحوار إظهار الأعمدة، انقر على زر العمود الجديد.

الخطوة 4: في مربع الحوار العمود الجديد، اكتب النطاق في مربع الاسم، واحتفظ باختيار النص في كل من مربعي النوع والتنسيق، وأخيرًا انقر على زر موافق.

الخطوة 5: الآن ستعود إلى مربع الحوار إظهار الأعمدة، حدد النطاق في مربع إظهار هذه الأعمدة بهذا الترتيب، وحركه أسفل عنصر من، ثم انقر على زر موافق.

الخطوة 6: الآن ستعود إلى مجلد البريد المفتوح، حدد جميع رسائل البريد الإلكتروني بالضغط على مفاتيح Ctrl + A في نفس الوقت.

الخطوة 7: اضغط على مفاتيح Alt + F11 في نفس اللحظة لفتح نافذة Microsoft Visual Basic for Applications؛ ثم انقر على إدراج > وحدة، بعد ذلك ألصق الكود التالي لـ VBA في الوحدة.

VBA: فرز وتجميع حسب نطاق المرسل

Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub

الخطوة 8: قم بتشغيل هذا الكود VBA بالضغط على مفتاح F5 أو زر التشغيل في شريط الأدوات.

الخطوة 9: الآن تم استخراج نطاق كل مرسل وملؤه في عمود النطاق.

أ. لفرز رسائل البريد الإلكتروني حسب نطاقات المرسلين، فقط انقر على رأس عمود النطاق أعلى جميع رسائل البريد الإلكتروني؛

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

ملاحظات:

(1) يعمل هذا الكود VBA بشكل جيد في Outlook 2013 و2010، لكنه لا يعمل في Outlook 2007.
(2) يمكنك حفظ طريقة العرض المخصصة بسهولة باستخدام كيفية حفظ ونسخ إعدادات العرض إلى مجلدات أخرى في Outlook؟

المقالة ذات الصلة

كيفية عرض نطاقات المرسلين في قائمة البريد في Outlook؟

---

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

خبر عاجل: 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

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