كيفية نقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين في Outlook؟
في عملك اليومي ، قد تتلقى العديد من رسائل البريد الإلكتروني الواردة من مرسلين غير معروفين والتي لم يتم حفظها في مجلد جهات الاتصال. قد تكون هذه بعض رسائل البريد الإلكتروني غير المرغوب فيها أو الضارة ، وفي هذه الحالة ، تريد نقل رسائل البريد الإلكتروني هذه تلقائيًا إلى مجلد معين بدلاً من البريد الوارد. كيف يمكنك حل هذه الوظيفة في Outlook؟
انقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين عن طريق إنشاء قاعدة
انقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين عن طريق تطبيق كود VBA
انقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين عن طريق إنشاء قاعدة
في الواقع ، يمكنك إنشاء قاعدة لنقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين تلقائيًا ، يرجى القيام بما يلي:
1. قم بإنشاء مجلد جديد ضمن مجلد Inbox والذي سيضع رسائل البريد الإلكتروني الواردة من مرسلين غير معروفين كما هو موضح في لقطة الشاشة التالية:
2. ثم اضغط الصفحة الرئيسية > قوانيـن > إدارة القواعد والتنبيهات، انظر لقطة الشاشة:
3. في القواعد والتنبيهات مربع الحوار، انقر فوق قانون جديد تحت قواعد البريد الإلكتروني علامة التبويب ، انظر لقطة الشاشة:
4. وانقر OK زر للذهاب إلى معالج القاعدة، اضغط هنا تطبيق القاعدة على الرسالة التي أتلقاها الخيار من نبدأ من قاعدة فارغة مربع القسم ، انظر لقطة الشاشة:
5. ثم اضغط التالى زر ، في هذه الخطوة ، من فضلك لا تحدد أي خيار ، وانقر التالى زر مباشرة ، يظهر مربع تحذير ، يرجى النقر فوق نعم زر ، انظر لقطة الشاشة:
6. وفي مربع الحوار التالي ، تحقق انقله إلى المجلد المحدد الخيار في الخطوة 1: حدد الإجراء (الإجراءات) مربع القائمة ، ثم انقر فوق النص المرتبط محدد، وفي الفتح القواعد والتنبيهات مربع الحوار ، حدد المجلد الذي تريد نقل رسائل البريد الإلكتروني إليه ، انظر لقطة الشاشة:
7. انقر OK زر ، واستمر في النقر التالى زر في هذا هل هناك أي استثناءات الحوار ، تحقق إلا إذا كان المرسل موجودًا في دفتر العناوين المحدد الخيار في الخطوة 1: حدد الاستثناء (الاستثناءات) مربع القائمة ، ثم انقر فوق النص المرتبط محدد، وعلى أضف قائمة العناوين سيظهر مربع ، حدد مجلد جهات الاتصال الذي يحتوي على جهات الاتصال التي تريد استثناءها ، انظر لقطة الشاشة:
8. ثم اضغط أضف ، ثم انقر فوق التالى للانتقال إلى مربع حوار المعالج الأخير ، اكتب اسم القاعدة في الخطوة 1: حدد اسمًا لهذه القاعدة مربع النص ، وتحقق قم بتشغيل هذه القاعدة الخيار من الخطوة 2: إعداد القاعدة قسم الخيارات. انظر لقطة الشاشة:
9. ثم انقر فوق نهاية و Ok أزرار لإغلاق الحوارات. من الآن فصاعدًا ، عندما تأتي رسائل البريد الإلكتروني من مرسلين غير معروفين ، سيتم نقلهم تلقائيًا إلى المجلد المحدد.
انقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين عن طريق تطبيق كود VBA
قد تكون الطريقة المذكورة أعلاه مزعجة بالنسبة لك ، هنا ، يمكنك تطبيق كود للتعامل معها بأسرع ما يمكن.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه الجلسة من مشروع 1 (VbaProject.OTM) لفتح الوضع ، ثم انسخ الكود التالي والصقه في الوحدة النمطية الفارغة.
رمز فبا: نقل رسائل البريد الإلكتروني تلقائيًا من مرسلين غير معروفين إلى مجلد معين:
Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
For I = 3 To 1 Step -1
xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
Set xContactItem = xContactItems.Find(xFilter)
If TypeName(xContactItem) <> "Nothing" Then Exit For
Next
Next
If xContactItem Is Nothing Then
Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
xFound = False
For Each xSubFolder In xInboxFlds
If xSubFolder.Name = "Unknown" Then
xFound = True
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
Exit For
End If
Next
If xFound = False Then
Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
End If
item.Move xTargetFolder
End If
End Sub
3. ثم احفظ الرمز وأغلق نافذة التعليمات البرمجية ، وأعد تشغيل Outlook لتفعيل الرمز. من الآن فصاعدًا ، عندما تأتي رسائل البريد الإلكتروني من بعض المرسلين غير المعروفين ، سيتم نقلهم إلى المجلد غير معروف تلقائيًا ، انظر لقطة الشاشة:
ملاحظات: ال غير معروف سيتم إنشاء المجلد تلقائيًا عند ورود بعض رسائل البريد الإلكتروني غير المعروفة. يمكنك تغيير اسم المجلد "أونكنوو"للآخرين في النص.
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.