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

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

في عملك اليومي ، قد تتلقى العديد من رسائل البريد الإلكتروني الواردة من مرسلين غير معروفين والتي لم يتم حفظها في مجلد جهات الاتصال. قد تكون هذه بعض رسائل البريد الإلكتروني غير المرغوب فيها أو الضارة ، وفي هذه الحالة ، تريد نقل رسائل البريد الإلكتروني هذه تلقائيًا إلى مجلد معين بدلاً من البريد الوارد. كيف يمكنك حل هذه الوظيفة في Outlook؟

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

انقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين عن طريق تطبيق كود VBA


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

في الواقع ، يمكنك إنشاء قاعدة لنقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين تلقائيًا ، يرجى القيام بما يلي:

1. قم بإنشاء مجلد جديد ضمن مجلد Inbox والذي سيضع رسائل البريد الإلكتروني الواردة من مرسلين غير معروفين كما هو موضح في لقطة الشاشة التالية:

doc نقل رسائل البريد الإلكتروني من غير معروف 1

2. ثم اضغط الصفحة الرئيسية > قوانيـن > إدارة القواعد والتنبيهات، انظر لقطة الشاشة:

doc نقل رسائل البريد الإلكتروني من غير معروف 2

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

doc نقل رسائل البريد الإلكتروني من غير معروف 3

4. وانقر OK زر للذهاب إلى معالج القاعدة، اضغط هنا تطبيق القاعدة على الرسالة التي أتلقاها الخيار من نبدأ من قاعدة فارغة مربع القسم ، انظر لقطة الشاشة:

doc نقل رسائل البريد الإلكتروني من غير معروف 4

5. ثم اضغط التالى زر ، في هذه الخطوة ، من فضلك لا تحدد أي خيار ، وانقر التالى زر مباشرة ، يظهر مربع تحذير ، يرجى النقر فوق نعم زر ، انظر لقطة الشاشة:

doc نقل رسائل البريد الإلكتروني من غير معروف 5

6. وفي مربع الحوار التالي ، تحقق انقله إلى المجلد المحدد الخيار في الخطوة 1: حدد الإجراء (الإجراءات) مربع القائمة ، ثم انقر فوق النص المرتبط محدد، وفي الفتح القواعد والتنبيهات مربع الحوار ، حدد المجلد الذي تريد نقل رسائل البريد الإلكتروني إليه ، انظر لقطة الشاشة:

doc نقل رسائل البريد الإلكتروني من غير معروف 6

7. انقر OK زر ، واستمر في النقر التالى زر في هذا هل هناك أي استثناءات الحوار ، تحقق إلا إذا كان المرسل موجودًا في دفتر العناوين المحدد الخيار في الخطوة 1: حدد الاستثناء (الاستثناءات) مربع القائمة ، ثم انقر فوق النص المرتبط محدد، وعلى أضف قائمة العناوين سيظهر مربع ، حدد مجلد جهات الاتصال الذي يحتوي على جهات الاتصال التي تريد استثناءها ، انظر لقطة الشاشة:

doc نقل رسائل البريد الإلكتروني من غير معروف 7

8. ثم اضغط أضف ، ثم انقر فوق التالى للانتقال إلى مربع حوار المعالج الأخير ، اكتب اسم القاعدة في الخطوة 1: حدد اسمًا لهذه القاعدة مربع النص ، وتحقق قم بتشغيل هذه القاعدة الخيار من الخطوة 2: إعداد القاعدة قسم الخيارات. انظر لقطة الشاشة:

doc نقل رسائل البريد الإلكتروني من غير معروف 8

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

doc نقل رسائل البريد الإلكتروني من غير معروف 9

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

doc نقل رسائل البريد الإلكتروني من غير معروف 10

ملاحظات: ال غير معروف سيتم إنشاء المجلد تلقائيًا عند ورود بعض رسائل البريد الإلكتروني غير المعروفة. يمكنك تغيير اسم المجلد "أونكنوو"للآخرين في النص.


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

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

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

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

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

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

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

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

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

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

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations