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

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

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

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

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

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

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

الخطوة 4: في مربع الحوار عمود جديد ، اكتب ملف نطاق في مربع الاسم ، واحتفظ بملحق نص المختارة في كليهما النوع مربع و شكل مربع ، في النهاية انقر فوق OK .

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

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

الخطوة شنومك: اضغط على قديم + F11 مفاتيح في غضون ذلك لفتح نافذة Microsoft Visual Basic للتطبيقات ؛ ثم انقر فوق إدراج > وحدة، قم بعد ذلك بلصق رمز 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: الآن يتم استخراج مجال كل مرسل وتعبئته في عمود المجال.

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

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

ملاحظة:

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

مقالات لها صلة

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

---

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

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

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

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

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

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

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

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

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

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

تفاصيل أكثر       تحميل مجانا      شراء