Comment exporter le texte du corps d'un e-mail Outlook vers une feuille de calcul Excel?

Si vous souhaitez exporter le texte du corps de l'e-mail sélectionné d'Outlook vers une feuille de calcul Excel, la méthode de cet article peut vous aider.

Exporter le texte du corps de l'e-mail Outlook vers une feuille de calcul Excel avec le code VBA

Exporter le texte du corps de l'e-mail Outlook vers une feuille de calcul Excel avec le code VBA<

Veuillez exécuter le code VBA ci-dessous pour exporter le corps du texte sélectionné d'un e-mail Outlook vers Excel.

1. Ouvrez l'e-mail, sélectionnez le corps de l'e-mail que vous souhaitez exporter vers une feuille de calcul Excel, puis appuyez sur le bouton autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Et puis copiez ci-dessous le code VBA dans la fenêtre Code.

Code VBA: exporter le texte du corps de l'e-mail Outlook vers une feuille de calcul 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

Notes: Dans le code, "E-mail body.xlsx»Est le nom du classeur que vous allez créer avec le texte du corps de l'e-mail sélectionné. Vous pouvez le modifier en fonction de vos besoins.

3. Cliquez Outils > Bibliographie. Vérifiez ensuite les Bibliothèque d'objets Microsoft Excel et Bibliothèque d'objets Microsoft Word boîtes dans le Références - Projet boite de dialogue. Voir la capture d'écran:

4. Puis un Parcourir pour le dossier boîte de dialogue apparaît, veuillez sélectionner un dossier pour enregistrer le classeur et cliquez sur le OK .

Maintenant, un classeur nommé "Corps de l'e-mail”Est ​​créé et enregistré dans un dossier spécifié. Ouvrez le classeur, vous pouvez voir que le texte du corps de l'e-mail sélectionné est exporté vers la feuille Sheet1 du classeur.

---

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat