¿Cómo exportar correos electrónicos de Outlook a Excel automáticamente?
Normalmente, puede exportar los correos electrónicos de Outlook a Excel con la función Importar / Exportar. Pero, ¿alguna vez ha intentado exportar automáticamente los correos electrónicos a un archivo de Excel cuando llegan nuevos mensajes? En este artículo, hablaré sobre cómo exportar la información de los nuevos mensajes entrantes automáticamente en Excel.
Exportación automática de información de correo electrónico de Outlook a Excel con código VBA
Exporte información de correo electrónico de Outlook a Excel con una característica sorprendente
Exportación automática de información de correo electrónico de Outlook a Excel con código VBA
Para exportar los nuevos correos electrónicos que llegan a un libro de Excel automáticamente, aplique el siguiente código VBA:
1. Primero, debe crear un libro de trabajo con la información del encabezado a continuación como se muestra en la siguiente captura de pantalla, por lo que esta información de los mensajes se exportará a este archivo de Excel.
2. Luego vaya a Outlook y mantenga presionada la ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
3. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.
Código de VBA: Exportación automática de información de correo electrónico de Outlook a un archivo de Excel:
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
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
Note: En el código anterior, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx es la ruta del archivo de Excel y el nombre de Excel en el que desea ubicar la información exportada, cámbielo según sus necesidades.
4. Todavía en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias para ir a la Referencias-Proyecto1 cuadro de diálogo y verifique Biblioteca de objetos de Microsoft Excel Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:
5. Luego haga clic OK para cerrar el cuadro de diálogo y luego guardar y cerrar la ventana de código.
6. Ahora, debe reiniciar Outlook para que este código surta efecto. A partir de ahora, si llegan nuevos correos electrónicos, se exportarán automáticamente al libro de trabajo específico, vea la captura de pantalla:
Exporte información de correo electrónico de Outlook a Excel con una característica sorprendente
Si desea exportar los correos electrónicos de la Bandeja de entrada, Bandeja de salida u otras carpetas a un archivo de Excel, Kutools para Outlook's Informe rápido puede ayudarlo a generar fácilmente un archivo XML para reportar la información de todos los elementos en la carpeta de correo electrónico actual o carpeta de tareas según lo necesite.
Después de instalar Kutools para Outlook, haz lo siguiente:
1. Seleccione una carpeta en la que desee exportar toda la información de los mensajes y luego haga clic en Kutools Más > Informe rápido, ver captura de pantalla:
2. Entonces, en el apareció Guardar reporte ventana, elija una ubicación y especifique un nombre para este archivo exportado, vea la captura de pantalla:
3. Y luego, haga clic en Guardar para guardar este archivo y, en el cuadro emergente, haga clic en Sí para abrir el archivo, ver captura de pantalla:
4. Ahora, puede ver que toda la información de los correos electrónicos en la carpeta seleccionada se ha exportado al archivo de Excel, vea la captura de pantalla:
Artículos más relativos:
- Exportar la tabla del cuerpo del correo electrónico a Excel en Outlook
- Cuando recibe un correo electrónico que contiene algunas tablas en el cuerpo, a veces, es posible que deba exportar todas las tablas del cuerpo del mensaje a una hoja de cálculo de Excel. Normalmente, puede copiar y pegar las tablas en la hoja de trabajo, pero aquí hablaré sobre un método útil para resolver este trabajo cuando se necesitan exportar varias tablas.
- Extraer o exportar la lista de tareas a Excel en Outlook
- Mientras usa Outlook, puede extraer la lista de tareas a Excel para otros usos. Con la potente función Exportar de Outlook, puede exportar fácilmente su lista de tareas a Excel. Haz lo que se muestra a continuación en el tutorial.
- Exportar información de contactos con fotos en Outlook
- Cuando exporta contactos de Outlook a un archivo, solo se puede exportar la información de texto de los contactos. Pero, a veces, necesita que se exporten las fotos, así como la información de texto de los contactos, ¿cómo podría manejar esta tarea en Outlook?
- Exportar estructura de carpetas de Outlook a Excel
- En este artículo, presentaré cómo exportar la estructura de carpetas de una cuenta desde Outlook a un archivo de Excel. Por favor consígalo con los detalles de este artículo.
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.
