¿Cómo exportar el texto del cuerpo del correo electrónico de Outlook a una hoja de cálculo de Excel?

Si desea exportar el texto del cuerpo del correo electrónico seleccionado de Outlook a una hoja de cálculo de Excel, el método de este artículo puede ayudarlo.

Exporte el texto del cuerpo del correo electrónico de Outlook a una hoja de cálculo de Excel con código VBA

Exporte el texto del cuerpo del correo electrónico de Outlook a una hoja de cálculo de Excel con código VBA<

Ejecute el siguiente código VBA para exportar el texto del cuerpo seleccionado de un correo electrónico de Outlook a Excel.

1. Abra el correo electrónico, seleccione el cuerpo del correo electrónico que desea exportar a la hoja de cálculo de Excel y luego presione el botón 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. Y luego copie el código VBA a continuación en la ventana Código.

Código de VBA: exporte el texto del cuerpo del correo electrónico de Outlook a una hoja de cálculo de Excel

Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set xMailItem = xItem
    Set xInspector = xMailItem.GetInspector
    Set xDoc = xInspector.WordEditor
    xDoc.Application.Selection.Range.Copy
    xInspector.Close olDiscard
    Set xExcel = New Excel.Application
    Set xWb = xExcel.Workbooks.Add
    Set xWs = xWb.Sheets.item(1)
    xExcel.Visible = False
    xWs.Activate
    xWs.Paste
    xWs.SaveAs xFilePath & "Email body.xlsx"
    xWb.Close True
    xExcel.Quit
    Set xWs = Nothing
    Set xWb = Nothing
    Set xExcel = Nothing
End Sub

Note: En el código, "Correo electrónico body.xlsx”Es el nombre del libro de trabajo que creará con el texto del cuerpo del correo electrónico seleccionado. Puede cambiarlo según sus necesidades.

3. Hacer clic en Herramientas > Referencias. Luego revise tanto el Biblioteca de objetos de Microsoft Excel y Biblioteca de objetos de Microsoft Word cajas en el Referencias - Proyecto caja de diálogo. Ver captura de pantalla:

4. Entonces un Busca por carpetas aparece el cuadro de diálogo, seleccione una carpeta para guardar el libro y haga clic en el OK del botón.

Ahora un libro de trabajo llamado "cuerpo del correo electrónico”Se crea y guarda en una carpeta especificada. Abra el libro de trabajo, puede ver que el texto del cuerpo del correo electrónico seleccionado se exporta a la Hoja1 del libro de trabajo.

---

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.

Leer Mas       Descargar gratis      Comprar