¿Cómo encontrar una carpeta perdida que se movió por accidente en Outlook?

Es posible que haya movido accidentalmente una carpeta, pero no es fácil encontrarla y volver a colocarla en su lugar. Este artículo presentará tres métodos para ayudarlo a encontrar una carpeta perdida que se movió por accidente en Outlook.

Encuentre una carpeta perdida que se movió por accidente con la opción Tamaño de carpeta
Encuentre una carpeta perdida que se movió por accidente mediante Buscar y examinar
Encuentre una carpeta perdida que se movió accidentalmente por código VBA

Encuentre una carpeta perdida que se movió por accidente con la opción Tamaño de carpeta

Suponiendo que el nombre de la carpeta que falta es “Interna”, puede encontrarla examinando todos los nombres de las carpetas en el cuadro de diálogo Tamaño de carpeta. Haz lo siguiente.

1. Haga clic con el botón derecho en la cuenta de correo electrónico en el Panel de exploración y haga clic Propiedades del archivo de datos desde el menú contextual. Ver captura de pantalla:

2. En el Outlook hoy cuadro de diálogo y debajo del General pestaña, haga clic en Tamaño de carpeta botón. En la apertura Tamaño de carpeta cuadro de diálogo, busque la carpeta que falta en el cuadro de carpeta. Ver captura de pantalla:

3. Regrese a la interfaz principal de Outlook, busque la carpeta de acuerdo con la ruta de la carpeta anterior, luego arrastre manualmente la carpeta de regreso a donde pertenece.

Encuentre una carpeta perdida que se movió por accidente mediante Buscar y examinar

Si recuerda el título de algún correo electrónico en la carpeta que falta, puede encontrarlo buscando el título del correo electrónico como se muestra a continuación.

1. Haga clic para activar el Buscar cuadro, cambie el alcance de la búsqueda a Todos los buzonesy luego ingrese las palabras del título del correo electrónico en el Buscar caja. Ver captura de pantalla:

2. Luego, se busca el correo electrónico y se incluye en la lista de correo, haga doble clic para abrirlo.

3. presione el Ctrl + cambio + F teclas para abrir el Búsqueda avanzada caja de diálogo. En el cuadro de diálogo, puede ver que el nombre de la carpeta del correo electrónico se muestra en el cuadro En, haga clic en el Búsqueda de botón. Ver captura de pantalla:

4. En el Seleccionar carpeta (s) cuadro de diálogo, verá dónde se ubica actualmente la carpeta que falta. Recuerde la ruta de la carpeta y luego haga clic en el OK

5. Regrese a la interfaz principal de Outlook, busque la carpeta que falta de acuerdo con la ruta de la carpeta anterior, luego arrastre manualmente la carpeta de regreso a donde pertenece.

Encuentre una carpeta perdida que se movió accidentalmente por código VBA

Si recuerda el nombre de la carpeta que falta, puede buscarla directamente por su nombre.

1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el código de VBA a continuación en la ventana de código.

Código VBA: encuentre una carpeta que falta con su nombre

Private g_Folder As Outlook.MAPIFolder
Private g_Find As String

Public Sub FindFolder()
Dim xFldName As String
Dim xFolders As Outlook.Folders
Dim xYesNo As Integer
On Error Resume Next
Set g_Folder = Nothing
g_Find = ""
xFldName = InputBox("Folder name:", "Kutools for Outlook")
If Trim(xFldName) = "" Then Exit Sub
g_Find = xFldName
g_Find = UCase(g_Find)
Set xFolders = Application.Session.Folders
LoopFolders xFolders
If Not g_Folder Is Nothing Then
    xYesNo = MsgBox("Activate folder: " & vbCrLf & g_Folder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbYes Then
        Set Application.ActiveExplorer.CurrentFolder = g_Folder
    End If
Else
    MsgBox "Not found", vbInformation, "Kutools for Outlook"
End If
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders)
Dim xFolder As Outlook.MAPIFolder
Dim xFound As Boolean
On Error Resume Next
xFound = False
For Each xFolder In Folders
    If UCase(xFolder.Name) = g_Find Then xFound = True
    If xFound Then
        Set g_Folder = xFolder
        Exit For
    Else
        LoopFolders xFolder.Folders
        If Not g_Folder Is Nothing Then Exit For
    End If
Next
End Sub

3. presione el F5 clave para ejecutar el código.

4. En el Kutools para Outlook cuadro de diálogo, ingrese el nombre de la carpeta que falta en el cuadro de texto y luego haga clic en el OK

5. Haga clic en el Sí en el siguiente cuadro de diálogo.

6. Luego, la carpeta que falta se abre inmediatamente en el Panel de navegación, arrastre manualmente la carpeta de regreso a donde pertenece.

Artículos relacionados:

• ¿Cómo contar el número de carpetas en una cuenta de correo electrónico especificada o en todos los buzones de correo en Outlook?
• ¿Cómo unificar todas las bandejas de entrada de varias cuentas para mostrar todos los correos electrónicos juntos en Outlook?
• ¿Cómo mostrar un cuadro de diálogo "Buscar carpeta" para elegir una carpeta en Outlook?
• ¿Cómo contar el número de subcarpetas en cierta carpeta en Outlook?

Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

• Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
• Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
• Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
• Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
• Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.

Leer más ... Descargar ahora...