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

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

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

---

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

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

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

2. انقر فوقInsert > Module، ثم الصق ماكرو التالي في نافذةModule.

كود 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. انقر فوق زرOK، وستحصل الآن على مجلد باسمNot Replied Emails تحت قسمSearch Folders لكل حساب في Outlook الخاص بك، حيث تُعرض هنا جميع رسائل البريد الإلكتروني غير المُردّ عليها. انظر لقطة الشاشة: