Busque y abra carpetas rápidamente por nombre de carpeta con una herramienta increíble

En general, podemos buscar carpetas por nombre de carpeta con código VBA. La mayoría del código VBA puede buscar carpetas en el buzón actual y abrir solo la primera carpeta encontrada. Ahora, con la función Ir a de Kutools para Outlook, puede encontrar fácilmente carpetas por nombre de carpeta y abrir cualquiera de las carpetas encontradas que necesite.

Siga los pasos a continuación para buscar carpetas por nombre de carpeta con VBA en Outlook.

1. prensa otro + F11 teclas juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Móduloy luego pegue el código VBA debajo en la nueva ventana del Módulo.

VBA: busque y abra carpetas por nombre de carpeta en 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. prensa F5 o haga clic en el Ejecutar botón para ejecutar este VBA.

4. En el cuadro de diálogo emergente Buscar carpeta, escriba el nombre de la carpeta especificada por la que buscará y haga clic en el OK botón. Ver captura de pantalla:

Note: Este VBA admite el comodín de asterisco. Por ejemplo, puede escribir tes * para averiguar todas las carpetas cuyo nombre comienza con TES.

5. Ahora aparece un cuadro de diálogo que muestra la ruta de la carpeta encontrada. Si necesita abrir la carpeta encontrada, haga clic en el Sí del botón.

Y ahora la carpeta encontrada se abre en el panel de navegación como se muestra a continuación:

Note: Si hay más de una carpeta nombrada con el nombre especificado, este VBA puede buscar y abrir una sola carpeta.

Si tiene Kutools for Outlook instalado, puede aplicar su función Ir a para encontrar rápidamente todas las carpetas por un nombre de carpeta determinado y abrir fácilmente las carpetas que encuentre cualquier persona.

1. Hacer clic Kutools Más > Para ir para activar esta función.

2. En el cuadro de diálogo Ir a, escriba el nombre de la carpeta especificada en el Buscar , seleccione una carpeta en los resultados de la búsqueda y haga clic en el Ok del botón.

Ahora, la carpeta especificada con el nombre de carpeta determinado se encuentra y se abre inmediatamente.