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

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

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

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

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

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

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

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

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