ابحث بسرعة وافتح المجلدات حسب اسم المجلد باستخدام أداة رائعة

بشكل عام ، يمكننا البحث عن المجلدات حسب اسم المجلد برمز VBA. يمكن لمعظم رموز VBA البحث عن المجلدات في صندوق البريد الحالي ، وفتح المجلد الأول الذي تم العثور عليه فقط. الآن مع ميزة Go To في Kutools for Outlook ، يمكنك بسهولة العثور على المجلدات حسب اسم المجلد بسهولة ، وفتح أي مجلد من المجلدات التي تم العثور عليها حسب حاجتك.

يرجى اتباع الخطوات أدناه للبحث عن المجلدات حسب أسماء المجلدات باستخدام VBA في Outlook.

1. صحافة قديم + F11 مفاتيح معًا لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر إدراج > وحدة، ثم قم بلصق كود فبا أدناه في نافذة الوحدة النمطية الجديدة.

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

Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean

Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True

Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders

  Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False

  sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName

  m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))

  Set oFolders = Application.Session.Folders
LoopFolders oFolders

  If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean

If SpeedUp = False Then DoEvents

  For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If

    If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub

3. صحافة F5 مفتاح أو انقر فوق يجري زر لتشغيل هذا VBA.

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

ملاحظات: يدعم VBA حرف البدل النجمة. على سبيل المثال ، يمكنك كتابة الاختبارات * لمعرفة جميع المجلدات التي يبدأ اسمها بـ قسم التدريب والامتحانات.

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

والآن يتم فتح المجلد الذي تم العثور عليه في جزء التنقل كما هو موضح أدناه:

ملاحظات: إذا كان هناك أكثر من مجلد واحد مسمى بالاسم المحدد ، فيمكن لـ VBA هذا العثور على مجلد واحد فقط وفتحه.

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

1. انقر كوتولس بلس > إذهب إلى لتمكين هذه الميزة.

2. في مربع الحوار Go To ، يرجى كتابة اسم المجلد المحدد في ملف بحث ، حدد مجلدًا في نتائج البحث ، وانقر فوق Ok .

الآن تم العثور على المجلد المحدد مع اسم مجلد معين وفتحه على الفور.