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

Author: Sun Last Modified: 2025-05-30

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

الانتقال وفتح مجلد نتيجة البحث باستخدام VBA

الانتقال وفتح مجلد نتيجة البحث باستخدام النقر بزر الماوس الأيمن

الانتقال وفتح مجلد نتيجة البحث باستخدام VBA

في Outlook، لا توجد وظيفة مضمنة يمكنها التعامل مع هذه المهمة، باستثناء كود VBA.

قبل استخدام كود VBA، تحتاج إلى عرض اسم المجلد في نتائج البحث.

1. انقر فوق عرض > إضافة أعمدة.

doc go to open folder of searching result 1

2. في مربع حوار إظهار الأعمدة وفي قائمة تحديد الأعمدة المتاحة من القائمة المنسدلة، حدد جميع حقول البريد، ثم اختر في المجلد في قائمة الأعمدة المتاحة.

doc go to open folder of searching result 2

3. انقر فوق إضافة لإضافة المجلدات إلى قائمة إظهار هذه الأعمدة بهذا الترتيب، ثم انقر فوق زر نقل لأعلى لتحريك المجلد إلى الأعلى.

doc go to open folder of searching result 3

4. انقر فوق موافق لإغلاق الحوار. الآن أثناء قيامك بالبحث عن رسائل البريد الإلكتروني، سيتم عرض اسم المجلد في نتائج البحث.

doc go to open folder of searching result 4

5. الآن اضغط على مفتاح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة لإنشاء وحدة جديدة.

6. انسخ والصق الكود أدناه في الوحدة.

VBA: الانتقال إلى المجلد باستخدام الاسم

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7. اضغط على مفتاح F5 لتمكين الكود، الآن أدخل اسم المجلد الذي تريد الذهاب إليه في الحوار.

doc go to open folder of searching result 5

8. انقر فوق موافق، سيظهر مربع حوار ينبهك إلى موقع المجلد، انقر فوق نعم للانتقال مباشرة إلى المجلد، أو انقر فوق لا لإلغاء.

doc go to open folder of searching result 6

الانتقال وفتح مجلد نتيجة البحث بالنقر بزر الماوس الأيمن

إذا كان لديك أدوات Kutools لـ Outlook، فسيتم تضمين أداة فتح المجلد في قائمة النقر بزر الماوس الأيمن، مما يمكن أن ينتقل بسرعة إلى المجلد الخاص بالبريد الإلكتروني المحدد حتى في قائمة نتائج البحث.

👉 يتوفر الآن إصدار مجاني من أدوات Kutools لـ Outlook، حيث تكون 70+ الميزات مجانية مدى الحياة. قم بتنزيل الإصدار المجاني الآن.

قم بتثبيت أدوات Kutools لـ Outlook مجانًا ، ثم اتبع الخطوات التالية:

بعد البحث، انقر بزر الماوس الأيمن على النتيجة التي تريد فتح مجلدها، وحدد فتح في المجلد (أدوات) من قائمة السياق.