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

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

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

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

---

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

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

1. أنشئ مجلدًا جديدًا داخل مجلد صندوق الوارد لوضع الرسائل القادمة من مرسلين مجهولين، كما هو موضح في لقطة الشاشة التالية:

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

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

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

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

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

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

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

9. بعد ذلك، انقر على أزرارإنهاءوموافقلإغلاق مربعات الحوار. بدءًا من الآن، سيتم نقل الرسائل الواردة من مرسلين مجهولين تلقائيًا إلى المجلد المحدد.

---

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

قد تبدو الطريقة السابقة مرهقة بعض الشيء، لذا يمكنك هنا تطبيق كودٍ يُنهي المهمة بأسرع وقتٍ ممكن!

1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر مرتين علىThisOutlookSession من جزءProject1 (VbaProject.OTM) لفتح الوضع، ثم انسخ والصق الكود التالي في الوحدة النمطية الفارغة.

كود VBA: نقل تلقائي لرسائل البريد الإلكتروني من مرسلين مجهولين إلى مجلد معيّن:

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

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