كيفية نقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين في 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 لتفعيل الرمز. من الآن فصاعدًا ، عندما تأتي رسائل البريد الإلكتروني من بعض المرسلين غير المعروفين ، سيتم نقلهم إلى المجلد غير معروف تلقائيًا ، انظر لقطة الشاشة:

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