Note: The other languages of the website are Google-translated. Back to English

كيفية نقل رسائل البريد الإلكتروني من مرسلين غير معروفين إلى مجلد معين في 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

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


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL