كيفية البحث عن مجلد بالاسم في Outlook؟

Author: Siluvia Last Modified: 2025-05-30

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

البحث عن المجلد بالاسم في Outlook باستخدام كود VBA

البحث عن المجلد بالاسم عبر الحسابات في Outlook بواسطة أدوات Kutools لـ Outlook

البحث عن المجلد بالاسم في Outlook باستخدام كود VBA

مع الكود التالي لـ VBA، يمكنك بسهولة العثور على مجلد محدد بالاسم.

ملاحظة: تحتاج إلى تذكر اسم المجلد لاستخدام هذا الكود VBA.

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

2. ثم انقر نقرًا مزدوجًا فوق Project1 > Microsoft Outlook Object > ThisOutlookSession لفتح نافذة Project1 – ThisOutlookSession. شاهد لقطة الشاشة:

the screenshot of step about finding folder by name in Outlook with VBA code

3. انسخ والصق الكود التالي لـ VBA في نافذة Project1 – ThisOutlookSession.

VBA: البحث عن المجلد بالاسم

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function

4. ثم اضغط على مفتاح F5 على لوحة المفاتيح لتشغيل كود VBA.

5. في مربع الحوار Macros، انقر فوق زر التشغيل.

the screenshot of step 2 about finding folder by name in Outlook with VBA code

6. في مربع الحوار Search Folder الذي يظهر، يرجى كتابة اسم المجلد في مربع النص، ثم انقر فوق الزر موافق. شاهد لقطة الشاشة:

the screenshot of step 3 about finding folder by name in Outlook with VBA code

7. ثم سيظهر مربع حوار Microsoft Outlook، ويعرض مسار المجلد المطلوب، وبعد ذلك انقر فوق الزر نعم.

the screenshot of step 4 about finding folder by name in Outlook with VBA code

8. سيتم فتح المجلد المحدد للبريد الإلكتروني على الفور.

ملاحظة: يمكن تطبيق هذا الكود VBA على Outlook 2007 و2010 و2013.

البحث عن المجلد بالاسم عبر الحسابات في Outlook بواسطة أدوات Kutools لـ Outlook

إذا لم تكن جيدًا في استخدام VBA، يمكنك تجربة أداة Go To الخاصة بـ أدوات Kutools لـ Outlook، والتي يمكنها العثور على المجلد بالاسم أو بحرف معين، ثم الانتقال مباشرة إلى المجلد.

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

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

1. انقر فوق Kutools Plus > Folder > Go To.