Hitro poiščite in odprite mape po imenih map z neverjetnim orodjem

Na splošno lahko iščemo mape po imenu mape s kodo VBA. Večina kod VBA lahko išče mape v trenutnem nabiralniku in odpre samo prvo najdeno mapo. Zdaj s funkcijo Pojdi na Kutools for Outlook, lahko enostavno najdete mape po imenu mape in odprete katero koli najdeno mapo, kot jo potrebujete.

Sledite spodnjim korakom za iskanje map po imenih map z VBA v Outlooku.

1. Pritisnite druga + F11 da odprete okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin nato prilepite pod kodo VBA v novo okno modula.

VBA: v Outlooku poiščite in odprite mape po imenih map

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. Pritisnite F5 ali kliknite Run za zagon tega VBA.

4. V pogovorno okno Iskanje po mapi vnesite ime mape, po kateri boste iskali, in kliknite OK . Oglejte si posnetek zaslona:

Opombe: Ta VBA podpira nadomestni znak z zvezdico. Lahko na primer vnesete tes * če želite izvedeti vse mape, katerih imena se začnejo tes.

5. Zdaj se odpre pogovorno okno in prikaže pot do najdene mape. Če želite odpreti najdeno mapo, kliknite Da gumb.

Zdaj se najde najdena mapa v podoknu za krmarjenje, kot je prikazano spodaj:

Opombe: Če je z navedenim imenom imenovanih več map, lahko ta VBA najde in odpre samo eno mapo.

Če imate Kutools for Outlook nameščen, lahko uporabite njegovo funkcijo Pojdi na, da hitro poiščete vse mape z določenim imenom mape in preprosto odprete vse najdene mape.

1. Kliknite Kutools Plus > Pojdi na da omogočite to funkcijo.

2. V pogovorno okno Pojdi na vnesite določeno ime mape v Iskalnik izberite mapo med rezultati iskanja in kliknite Ok gumb.

Zdaj je navedena mapa z določenim imenom mape najdena in takoj odprta.