¿Cómo exportar correos de Outlook a Excel de forma automática?

Normalmente, puede exportar correos de Outlook a Excel mediante la función Importar/Exportar. Sin embargo, si necesita que los correos entrantes se exporten automáticamente a un archivo de Excel en el momento en que llegan, Outlook no incluye una solución integrada para ello. Este artículo presenta dos métodos para lograrlo:

Exportar automáticamente los nuevos correos entrantes de la Bandeja de entrada a Excel mediante VBA(Manual y tedioso)

Exportar rápidamente todos los correos de una carpeta seleccionada a un informe de Excel con Kutools para Outlook 👍(Rápido y sencillo)

Exportar automáticamente los nuevos correos entrantes de la Bandeja de entrada a Excel mediante VBA

Si necesita una forma automatizada de exportar correos nuevos a Excel, puede utilizar el siguiente código VBA. Este método supervisa la carpeta Bandeja de entrada y exporta los detalles de los correos nuevos a un archivo de Excel en cuanto llegan.

Paso 1: Preparar el archivo de Excel

Antes de ejecutar el código VBA, configure un libro de Excel para almacenar los datos de los correos exportados. En la primera fila, incluya los siguientes encabezados de columna: Nº, Nombre del remitente, Correo electrónico del remitente, Asunto y Hora de recepción.

Paso 2: Abrir el editor de VBA en Outlook

1. Pulse Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En el panel Proyecto1 (VbaProject.OTM), expanda Objetos de Microsoft Outlook y haga doble clic en ThisOutlookSession.

Paso 3: Insertar el código VBA

Copie y pegue el siguiente código VBA en el módulo:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    ' Update this path with your actual Excel file path  
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

Paso 4: Habilitar la biblioteca de objetos Microsoft Excel

1. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias.

2. En el cuadro de diálogo Referencias - Proyecto1, desplácese hacia abajo y active la opción Biblioteca de objetos de Microsoft Excel.

3. Haga clic en Aceptar para aplicar los cambios.

Paso 5: Guardar y reiniciar Outlook

1. Guarde el código VBA y cierre el editor.

2. Reinicie Outlook para que los cambios surtan efecto.

Resultado:

A partir de ahora, cada nuevo correo electrónico que llegue a la bandeja de entrada se exportará automáticamente al libro de Excel especificado.

---

📊 Estadísticas de correo electrónico más inteligente con Kutools

Controle y analice fácilmente su actividad de correo electrónico con la función Kutools para Outlook de Estadísticas. ¡Ahora puede contar los correos electrónicos recibidos por día, semana o mes, y visualizar los resultados en gráficos claros y profesionales! Optimice la gestión de su bandeja de entrada y obtenga información valiosa con solo unos pocos clics.

Descargue Kutools para Outlook ahora

Exportar rápidamente todos los correos de una carpeta seleccionada a un informe de Excel con Kutools para Outlook 👍

Si necesita una forma sencilla de exportar correos electrónicos de cualquier carpeta —ya sea la Bandeja de entrada, Elementos enviados o carpetas personalizadas— sin recurrir a VBA, la función Informe rápido de Kutools para Outlook le ofrece una solución rápida y eficaz.

Paso 1: Seleccionar la carpeta y activar la función Informe rápido

1. Abra Outlook y diríjase a la carpeta que desea exportar (Bandeja de entrada, Bandeja de salida, Elementos enviados, etc.).

2. Haga clic en KUTOOLS PLUS > Informe > Informe rápido.

Paso 2: Elegir la ubicación de guardado

1. En la ventana Guardar informe, seleccione una ubicación e introduzca un nombre de archivo para su exportación.

2. Haga clic en Guardar.

Paso 3: Abrir el Exportar informe

Aparecerá un mensaje de confirmación. Haga clic en **Sí** para abrir el archivo exportado.

Resultado:

Todos los correos de la carpeta seleccionada se exportarán a un archivo XML compatible con Excel, que incluirá el remitente, el asunto, la hora de recepción y más.

Nota:Para utilizar la utilidad Informe rápido de Kutools para Outlook, primero debe descargar e instalar Kutools para Outlook.

---

¿Qué método debería utilizar?

A continuación, se muestra una comparación de ambos métodos para ayudarle a decidir cuál se adapta mejor a sus necesidades:

Método	Ideal para	Facilidad de uso	Eficiencia
Usar código VBA (automatizado pero complejo)	Exportar automáticamente Nuevo Email desde la Bandeja de entrada	⭐⭐	⭐⭐⭐⭐
Usar Kutools para Outlook (sencillo y flexible)	Exportar rápidamente todos los correos de una carpeta seleccionada	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐

¡Al elegir el método adecuado, podrá exportar eficazmente los correos de Outlook a Excel según las necesidades de su flujo de trabajo!

---

Artículos relacionados

• Exportar tabla del cuerpo del correo a Excel en Outlook
• Cuando reciba un correo con tablas en el cuerpo, es posible que necesite exportar todas ellas a una hoja de cálculo de Excel. Aunque normalmente puede copiarlas y pegarlas directamente, a continuación le presentamos un método práctico para hacerlo de forma eficiente cuando deba exportar varias tablas.

• Extraer o exportar la lista de tareas a Excel en Outlook
• Al usar Outlook, puede extraer su lista de tareas a Excel para otros usos. Gracias a la potente función de exportación de Outlook, transferir su lista de tareas a Excel es rápido y sencillo. Siga el tutorial que se muestra a continuación.

• Exportar información de contactos con fotos en Outlook
• Al exportar contactos de Outlook a un archivo, solo se puede exportar la información textual de los contactos. Sin embargo, a veces también necesitará exportar las fotos junto con dicha información. ¿Cómo puede llevar a cabo esta tarea en Outlook?

• Exportar Estructura de carpetas de Outlook a Excel
• En este artículo te explicamos cómo exportar la estructura de carpetas de una cuenta de Outlook a un archivo de Excel. Sigue los pasos detallados para lograrlo fácilmente.

---

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

🤖KUTOOLS AI:Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

👩🏼‍🤝‍👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook      Descargar ahora      Ir a comprar

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

• ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
• 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
• 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto⬇ Descargar el Conjunto💳 Comprar el Conjunto