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

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

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

ستساعدك الإرشادات التالية في تجميع كافة رسائل البريد الإلكتروني غير المقروءة في مجلد "بريد غير مقروء" ، وإظهار المجلد في المفضلة.

الخطوة 1: انتقل إلى عرض البريد بالنقر فوق بريد في جزء التنقل.

الخطوة الثانية: إنشاء مجلد بحث جديد:

  1. في Outlook 2010/2013 ، انقر فوق مجلد بحث جديد زر في جديد مجموعة على مجلد علامة التبويب.
  2. في Outlook 2007 ، انقر فوق ملف قم بتقديم > جديد > مجلد البحث.

في الواقع ، هناك طريقة بديلة لإنشاء مجلد بحث جديد: انقر بزر الماوس الأيمن فوق ملف مجلد البحث في جزء التنقل ، وانقر فوق ملف مجلد بحث جديد في قائمة النقر بزر الماوس الأيمن.

وهذه الطريقة متاحة في جميع إصدارات Microsoft Outlook 2007 و 2010 و 2013.

الخطوة 2: في مربع الحوار New Search Folder ، حدد ملف رسالة غير مقروءة البند وانقر OK.

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

الخطوة 3: انقر بزر الماوس الأيمن فوق ملف رسالة غير مقروءة المجلد ، وانقر فوق عرض في المفضلة العنصر في قائمة النقر بزر الماوس الأيمن.

الآن يتم نسخ مجلد البريد غير المقروء وإضافته إلى المفضلة في الجزء العلوي من جزء التنقل.

معلومه- سرية: إذا كنت ترغب في إضافة جميع رسائل البريد الإلكتروني غير المقروءة لجميع الحسابات إلى مجلد ، فيمكنك القيام بالخطوات التالية:

1. صحافة ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. وفي الهـ المشروع جزء، انقر فوق كائنات Microsoft Outlook > هذه الجلسة، والصق الكود أدناه في القسم الأيمن.

Public WithEvents OlExplprer As Outlook.Explorer
Public WithEvents OlMailItem As Outlook.MailItem
Dim xSelMail As MailItem

Private Sub Application_NewMail()
   AddAllAccountsUnreadMailsToAFolder
   IniEvent
End Sub

Public Sub Initialize_handler()
    Set OlExplprer = Application.ActiveExplorer
    If OlExplprer.Selection.Count <> 0 Then
        Set OlMailItem = OlExplprer.Selection.Item(1)
    End If
End Sub

Private Sub OlExplprer_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)

Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xMailItem, xSelMail As MailItem
Dim xTargetFld As Folder

On Error Resume Next

Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

If NewFolder.Name = "Unread Mail" Then

    For Each xMailItem In NewFolder.Items
        
        If xMailItem.UnRead = False Then
        
            xMailItem.Delete
        
        End If
    
    Next

Else

    For Each xTargetFld In xNameSpace.Folders.Item(1).Folders

        If xTargetFld.Name = "Unread Mail" Then

            For Each xMailItem In xTargetFld.Items
                
                If (OlExplprer.Selection.Count <> 0) Then
                    
                    Set xSelMail = OlExplprer.Selection.Item(1)
    
                    If xSelMail.UnRead Then

                        xSelMail.UnRead = False
                        
                    End If
                
                End If
            Next
         
        End If
    Next
  
End If
    
Cancel = False

End Sub

Private Sub OlExplprer_FolderSwitch()

Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xMailItem As MailItem
Dim xAccountFld, xTargetFld, xSubFolder As MAPIFolder
Dim xObjItem As Object

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

Refresh

If (OlExplprer.CurrentFolder.Name <> "Unread Mail") Then

    For Each xTargetFld In xNameSpace.Folders.Item(1).Folders

        If xTargetFld.Name = "Unread Mail" Then

            For Each xMailItem In xTargetFld.Items

                If xMailItem.UnRead = False Then

                    For Each xAccountFld In xNameSpace.Folders

                        For Each xSubFolder In xAccountFld.Folders

                            If (xSubFolder.Name <> "Deleted Items") And (xSubFolder.Name <> "Drafts") And (xSubFolder.Name <> "Outbox") And (xSubFolder.Name <> "Junk E-mail") Then

                                For Each xObjItem In xSubFolder.Items

                                    If xObjItem.Class = olMail Then

                                        If (xObjItem.Subject = xMailItem.Subject) And (xObjItem.SenderName = xMailItem.SenderName) And _
                                           (xObjItem.Body = xMailItem.Body) And (xObjItem.Attachments.Count = xMailItem.Attachments.Count) And _
                                           (xObjItem.SentOn = xMailItem.SentOn) Then
                                                
                                            xObjItem.UnRead = False

                                        End If

                                    End If

                                Next

                            End If

                        Next

                    Next

                End If

            Next

        End If

    Next

End If

End Sub

Private Sub OlExplprer_SelectionChange()

Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

If (OlExplprer.CurrentFolder.Name = "Unread Mail") And (OlExplprer.Selection.Count <> 0) Then

    SelUnreadMailFld OlExplprer.CurrentFolder.Items, xNameSpace.Folders

Else

    If (OlExplprer.CurrentFolder.Name <> "Deleted Items") And (OlExplprer.CurrentFolder.Name <> "Drafts") And _
       (OlExplprer.CurrentFolder.Name <> "Outbox") And (OlExplprer.CurrentFolder.Name <> "Junk E-mail") Then
       
       SelOtherFld xNameSpace.Folders.Item(1).Folders
        
    End If

End If

End Sub

Sub SelUnreadMailFld(EMails As Outlook.Items, Flds As Folders)

Dim xMailItem As MailItem
Dim xAccountFld, xSubFolder As Folder
Dim xObjItem As Object
On Error Resume Next
For Each xMailItem In EMails 'OlExplprer.CurrentFolder.Items

    If xMailItem.UnRead = False Then

        For Each xAccountFld In Flds

            For Each xSubFolder In xAccountFld.Folders

                If (xSubFolder.Name <> "Deleted Items") And (xSubFolder.Name <> "Drafts") And (xSubFolder.Name <> "Outbox") And (xSubFolder.Name <> "Junk E-mail") Then

                    For Each xObjItem In xSubFolder.Items

                        If xObjItem.Class = olMail Then

                            If (xObjItem.Subject = xMailItem.Subject) And (xObjItem.SenderName = xMailItem.SenderName) And _
                               (xObjItem.Body = xMailItem.Body) And (xObjItem.Attachments.Count = xMailItem.Attachments.Count) And _
                               (xObjItem.SentOn = xMailItem.SentOn) Then

                                If xObjItem.UnRead Then

                                    xObjItem.UnRead = False

                                End If

                            End If

                        End If

                    Next

                End If

            Next

        Next

    End If

Next

End Sub

Sub SelOtherFld(Flds As Folders)
Dim xSelItem, xMailItem As MailItem
Dim xTargetFld As Folder
    
On Error Resume Next
If OlExplprer.Selection.Count <> 0 Then
      
    Set xSelItem = OlExplprer.Selection.Item(1)

    If xSelItem.UnRead = False Then

        For Each xTargetFld In Flds

            If xTargetFld.Name = "Unread Mail" Then

                For Each xMailItem In xTargetFld.Items

                    If (xSelItem.Subject = xMailItem.Subject) And (xSelItem.SenderName = xMailItem.SenderName) And _
                       (xSelItem.Body = xMailItem.Body) And (xSelItem.Attachments.Count = xMailItem.Attachments.Count) And _
                       (xSelItem.SentOn = xMailItem.SentOn) Then

                        xMailItem.UnRead = False

                    End If

                Next

            End If
        Next

    End If

End If

End Sub


Sub Refresh()
  
Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xTargetFld As MAPIFolder
Dim xAllUnreadMails As Integer

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

xAllUnreadMails = AllUnreadMails()

For Each xTargetFld In xNameSpace.Folders.Item(1).Folders

    If xTargetFld.Name = "Unread Mail" Then

        If xAllUnreadMails <> xTargetFld.Items.Count Then
            
            AddAllAccountsUnreadMailsToAFolder
            
            Exit For
        
        End If
    
    End If
    
Next

End Sub

Function AllUnreadMails()

Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xAllUnreadMails As Integer

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

xAllUnreadMails = 0
For Each xFolders In xNameSpace.Folders

   For Each xSubFolder In xFolders.Folders
   
     If xSubFolder.Name <> "Unread Mail" Then
     
     If (xSubFolder.Name <> "Deleted Items") And (xSubFolder.Name <> "Drafts") And (xSubFolder.Name <> "Outbox") And (xSubFolder.Name <> "Junk E-mail") Then

         For Each xObjItem In xSubFolder.Items
    
            If xObjItem.Class = olMail Then
    
               If xObjItem.UnRead Then
               
                 xAllUnreadMails = xAllUnreadMails + 1
    
               End If
    
            End If
         Next
         
        End If
     
     End If

   Next

Next

AllUnreadMails = xAllUnreadMails
End Function
وثق كل الأخبار في مجلد 1

 

2. ثم أدخل وحدة جديدة ، والصق الكود أدناه في البرنامج النصي للوحدة.

Public Sub AddAllAccountsUnreadMailsToAFolder()
Dim xOlApp As Outlook.Application
Dim xNameSpace As NameSpace
Dim xFolders, xSubFolder As MAPIFolder
Dim xObjItem As Object
Dim xDelFld As Folder
Dim xUnreadMailFld, xOldUnreadMailFld As Folder
Dim xCopiedItem, xMailItem As MailItem

On Error Resume Next
Set xOlApp = Outlook.Application
Set xNameSpace = xOlApp.GetNamespace("MAPI")

For Each xOldUnreadMailFld In xNameSpace.Folders.Item(1).Folders
    If xOldUnreadMailFld.Name = "Unread Mail" Then
        xOldUnreadMailFld.Delete
        Exit For
    End If
Next

For Each xDelFld In xNameSpace.Folders.Item(1).Folders
    If xDelFld.Name = "Deleted Items" Then
        For Each xMailItem In xDelFld.Items
            xMailItem.Delete
        Next
        For Each xSubFolder In xDelFld.Folders
        'For i = xDelFld.Folders.Count To 1 Step -1
            xSubFolder.Delete
        Next
    End If
Next

Set xUnreadMailFld = xNameSpace.Folders.Item(1).Folders.Add("Unread Mail")
If xUnreadMailFld = nil Then
    Exit Sub
End If


For Each xFolders In xNameSpace.Folders

   For Each xSubFolder In xFolders.Folders
   
     If xSubFolder.Name <> xUnreadMailFld.Name Then
     
     If (xSubFolder.Name <> "Deleted Items") And (xSubFolder.Name <> "Drafts") And (xSubFolder.Name <> "Outbox") And (xSubFolder.Name <> "Junk E-mail") Then

         For Each xObjItem In xSubFolder.Items
    
            If xObjItem.Class = olMail Then
    
               If xObjItem.UnRead Then
                 
                 Set xCopiedItem = xObjItem.Copy
    
                 xCopiedItem.Move xUnreadMailFld
    
               End If
    
            End If
         Next
         
        End If
     
     End If

   Next

Next

IniEvent

End Sub

Public Sub IniEvent()
Dim xFld As ThisOutlookSession
Set xFld = ThisOutlookSession
xFld.Initialize_handler
End Sub
وثق كل الأخبار في مجلد 2

 

3. قم بتشغيل الكود المسمى AddAllAccountsUnreadMailsToAfolder. ثم تم وضع مجلد باسم جميع رسائل البريد الإلكتروني غير المقروءة رسالة غير مقروءة.
وثق كل الأخبار في مجلد 3

إزالة جميع جهات الاتصال المكررة من مجلد واحد أو عدة مجلدات جهات اتصال في Outlook

في بعض الأحيان ، قد نضيف جهات الاتصال نفسها بشكل متكرر ، كيف يمكن إزالة جهات الاتصال المكررة من مجلد واحد أو عدة مجلدات جهات اتصال؟ كوتولس لتوقعات's Duplicate Contacts يمكن للوظيفة العثور بسرعة على جميع جهات الاتصال المكررة والسماح لك بإزالة أو دمج جهات الاتصال المكررة بناءً على المعايير المحددة الخاصة بك ، مثل العثور على جهات اتصال مكررة بنفس الاسم الكامل ، ونفس عنوان البريد الإلكتروني من مجلد واحد أو أكثر من مجلدات جهات الاتصال.    انقر للحصول على 60 نسخة تجريبية مجانية كاملة المواصفات لمدة 60 يومًا!
doc إزالة contatcs المكرر
 
Kutools for Outlook: مع العشرات من الوظائف الإضافية المفيدة في Outlook ، يمكنك تجربتها مجانًا دون قيود في المستقبل الكامل لمدة 60 يومًا.

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

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

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

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

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

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

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

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

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

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

 

 

Comments (31)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
süpersiniz
This comment was minimized by the moderator on the site
So clearly explained, so simple, so straightforward.  Utterly brilliant.  Thank you :)
This comment was minimized by the moderator on the site
Very helpful. I have had this issue since last 4 months. It's resolved now. TQVM
This comment was minimized by the moderator on the site
I am having a slightly different problem. I have the Unread Mail Folder working okay, but it is not picking up all of my unread messages from emails accounts I just set up in Outlook 2010. Is there a way to add these new email addresses so that the unread mail goes into the Unread Mail folder? Gratefully, Mike .
This comment was minimized by the moderator on the site
Mike. Did you find a resolution for this? I have multiple outlook accounts and would like all my unread messages go to one folder. Rgds Tom
This comment was minimized by the moderator on the site
Hello, see your questions, I have updated the article, now here are some codes can create a folder to put all unread emails of all accounts. You can come and have a look.
This comment was minimized by the moderator on the site
I tried doing this, but the code crashed outlook for me.
This comment was minimized by the moderator on the site
I have tried times, some times it cannot work, but never crashed outlook, sorry I cannot help you.
This comment was minimized by the moderator on the site
nice, l look for long time
This comment was minimized by the moderator on the site
I hope I get to reed my unred files
This comment was minimized by the moderator on the site
This does not work in 2010 -
This comment was minimized by the moderator on the site
thanks ! it;s working now :-)
This comment was minimized by the moderator on the site
Super helpful, thank you
This comment was minimized by the moderator on the site
Worked like a charm! Thanks a bunch.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations