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

على سبيل المثال، إذا كنت قد أنشأت العديد من مجلدات البريد الإلكتروني في 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. انظر لقطة الشاشة:

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، انقر على زرRun.

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

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

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

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

---

البحث عن مجلد باسمه عبر الحسابات في Outlook باستخدام Kutools لـ Outlook

إذا لم تكن متمكّناً من VBA، يمكنك تجربة أداةKutools لـ OutlookGo To ، التي يمكنها العثور على مجلد بالاسم أو بأحرف معيّنة، ثم الانتقال مباشرةً إليه. utility, which can find and search folder with name or specific character, then directly go to the folder

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

1. انقر علىKUTOOLS PLUS > Folder > Go To.

2. في مربع حوارGo To، اكتب اسم المجلد أو الأحرف المحددة في شريط البحث، ثم تظهر لك قائمة بالمجلدات ذات الصلة.

3. انقر نقراً مزدوجاً على اسم المجلد الذي تريد الانتقال إليه وفتحه، وسيُفتح تلقائياً.

  عرض توضيحي