Nhanh chóng tìm kiếm và mở các thư mục theo tên thư mục với một công cụ tuyệt vời

Nói chung, chúng ta có thể tìm kiếm thư mục theo tên thư mục với mã VBA. Hầu hết mã VBA có thể tìm kiếm các thư mục trong hộp thư hiện tại và chỉ mở thư mục được tìm thấy đầu tiên. Giờ đây với tính năng Đi tới của Kutools cho Outlook, bạn có thể dễ dàng tìm thấy các thư mục theo tên thư mục một cách dễ dàng và mở bất kỳ thư mục nào được tìm thấy khi bạn cần.

Vui lòng làm theo các bước dưới đây để tìm kiếm thư mục theo tên thư mục với VBA trong Outlook.

1. nhấn Khác + F11 các phím với nhau để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đun, rồi dán mã VBA bên dưới vào cửa sổ Mô-đun mới.

VBA: Tìm kiếm và mở các thư mục theo tên thư mục trong 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. nhấn F5 phím hoặc nhấp vào chạy để chạy VBA này.

4. Trong hộp thoại Thư mục tìm kiếm hiện ra, vui lòng nhập tên thư mục được chỉ định mà bạn sẽ tìm kiếm và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Chú thích: VBA này hỗ trợ ký tự đại diện dấu hoa thị. Ví dụ, bạn có thể gõ tes * để tìm ra tất cả các thư mục có tên bắt đầu bằng tes.

5. Bây giờ một hộp thoại xuất hiện và hiển thị đường dẫn thư mục của thư mục tìm thấy. Nếu bạn cần mở thư mục tìm thấy, vui lòng nhấp vào Có .

Và bây giờ thư mục tìm thấy đang mở trên ngăn Điều hướng như ảnh chụp màn hình bên dưới:

Chú thích: Nếu có nhiều hơn một thư mục có tên được chỉ định, VBA này chỉ có thể tìm và mở một thư mục.

Nếu bạn đã cài đặt Kutools cho Outlook, bạn có thể áp dụng tính năng Go To của nó để nhanh chóng tìm ra tất cả các thư mục theo tên thư mục nhất định và dễ dàng mở bất kỳ thư mục nào được tìm thấy.

1. Nhấp chuột Kutools Plus > Go To để kích hoạt tính năng này.

2. Trong hộp thoại Đi tới, vui lòng nhập tên thư mục được chỉ định trong Tìm kiếm , chọn một thư mục trong kết quả tìm kiếm và nhấp vào Ok .

Bây giờ thư mục được chỉ định với tên thư mục nhất định được tìm thấy và mở ngay lập tức.