كيفية إنشاء مجلد بحث لجميع رسائل البريد الإلكتروني غير المجاب عليها في Outlook؟

Author: Xiaoyang Last Modified: 2025-08-06

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

إنشاء مجلد بحث لجميع رسائل البريد الإلكتروني غير المجاب عليها في Outlook باستخدام كود VBA

إنشاء مجلد بحث لجميع رسائل البريد الإلكتروني غير المجاب عليها في Outlook باستخدام كود VBA

يمكن أن يساعدك الكود التالي لـ VBA على إنشاء مجلد بحث حيث سيتم وضع جميع رسائل البريد الإلكتروني غير المجاب عليها، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق ما يلي من الماكرو في نافذة الوحدة.

كود VBA: إنشاء مجلد بحث للرسائل غير المجاب عليها:

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim xSearch As Outlook.Search
    Dim xScope As String, xFilter As String
    Dim xRepliedProperty As String
    Dim xFolder As Folder, xSubFolder As Folder
    On Error Resume Next
    xScope = ""
    For Each xFolder In Outlook.Application.Session.Folders
        Set xSubFolder = xFolder.Folders("Inbox")
        xScope = "'" + xSubFolder.FolderPath + "'"
        xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
        xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
        Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
        xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
        Set xSearch = Nothing
        Set xSubFolder = Nothing
    Next
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. بعد ذلك، اضغط على مفتاح F5 لتشغيل هذا الكود، وسيظهر مربع تنبيه كما هو موضح في لقطة الشاشة التالية:

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