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

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

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

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

---

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

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

قبل استخدام كود VBA، يجب أن تظهر حقل «اسم المجلد» في نتائج البحث.

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

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

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

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

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

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

VBA: فتح مجلد Outlook المحدد بواسطة اسم

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 لتشغيل الكود، ثم أدخل اسم المجلد الذي تريد الانتقال إليه في مربع الحوار.

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

---

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

إذا كنت تمتلكKutools لـ Outlook، فستجد أداة مساعدة «فتح المجلد» مضمنة في قائمة النقر بزر الماوس الأيمن، والتي تتيح لك الانتقال فورًا إلى مجلد الرسالة المحددة — حتى عند وجودها ضمن نتائج البحث!

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

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