Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿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 has intentado exportar automáticamente los correos electrónicos al 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.

Exportar automáticamente información de correo electrónico de Outlook a Excel con código VBA


Exporte rápidamente archivos emials de la Bandeja de entrada / Elementos enviados / Borradores ... al archivo Excel:

Con la Kutools for Outlook's Informe rápido característica, puede generar fácilmente un archivo XML para informar la información de todos los elementos en la carpeta de correo electrónico actual o en la carpeta de tareas

doc auto exporta correos electrónicos para sobresalir 5

Kutools for Outlook: con más de 40 + prácticos complementos de Excel, de prueba sin límite en días 60. Descargue y pruebe la versión de prueba ahora!

Exportar automáticamente información de correo electrónico de Outlook a Excel con código VBA

Para exportar automáticamente los nuevos correos electrónicos que lleguen a un libro de trabajo de Excel, aplique el siguiente código VBA:

1. En primer lugar, debe crear un libro de trabajo con la siguiente información de encabezado como se muestra a continuación, para que esta información de los mensajes se exporte a este archivo de Excel.

doc auto exporta correos electrónicos para sobresalir 1

2. Luego vaya a Outlook y mantenga presionada la tecla ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. En la Microsoft Visual Basic para aplicaciones ventana, doble clic ThisOutlookSession desde el Project1 (VbaProject.OTM) para abrir el modo, y luego copiar y pegar 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 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

notas: En el código anterior, C: \ Users \ DT168 \ Desktop \ documento dividido \ kto-data.xlsx es la ruta de archivo de Excel y el nombre de Excel en los que desea ubicar la información exportada, cámbiela a su necesidad.

doc auto exporta correos electrónicos para sobresalir 2

4. Aún en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias para ir a la Referencias-Proyecto1 cuadro de diálogo y verificación Biblioteca de objetos de Microsoft Excel Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:

doc auto exporta correos electrónicos para sobresalir 3

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 entre en vigencia. 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:

doc auto exporta correos electrónicos para sobresalir 4



Kutools for Outlook

Más que 100 Funciones avanzadas para Outlook 2010, 2013, 2016, 2019 y 365

Kutools de captura de pantalla para Outlook pequeño para banner 201812

Más características | Descargar libre | Solo $ 39.00 para cientos de funciones

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jorge · 5 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, Jorge,
      If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.