Si vous souhaitez enregistrer ou convertir un e-mail Outlook en document Word, vous pouvez utiliser les 2 méthodes présentées dans cet article.
Outlook n'offre aucune fonctionnalité native pour enregistrer ou convertir un e-mail Outlook en tant que document Word. Par conséquent, si vous souhaitez y parvenir, vous devez faire des efforts supplémentaires. Ici, nous allons vous apprendre 2 méthodes rapides. L'une consiste à utiliser intelligemment la fonction "Enregistrer". L'autre consiste à utiliser avec tact Outlook VBA. Veuillez lire la suite pour les obtenir en détail.
Méthode 1 : Utiliser la fonction "Enregistrer"
- À start avec, lancez votre programme Outlook.
- Ensuite, lancez un e-mail.
- Allez ensuite dans le menu "Fichier" et sélectionnez l'option "Enregistrer sous".
- Ensuite, dans la boîte de dialogue contextuelle, sélectionnez un dossier de destination et choisissez « Texte uniquement » dans le champ « Enregistrer sous le type ».
- Après avoir cliqué sur le bouton "Enregistrer", vous pouvez ouvrir votre application Microsoft Word.
- Dans MS Word, allez dans le menu "Fichier" et sélectionnez "Ouvrir".
- Dans la boîte de dialogue contextuelle "Ouvrir", sélectionnez "Tous les fichiers" dans la ligne "Nom de fichier" et lancez le fichier texte précédemment enregistré.
- Après avoir cliqué sur "Ouvrir", l'e-mail au format texte s'ouvrira dans Word.
- Plus tard, vous pouvez sélectionner "Fichier"> "Enregistrer sous".
- Enfin, dans la boîte de dialogue "Enregistrer sous", choisissez "Document Word" dans "Enregistrer sous le type" et cliquez sur "Enregistrer".
Méthode 2 : Utiliser Outlook VBA
- En premier lieu, appuyez sur les raccourcis clavier "Alt + F11" dans Outlook.
- Ensuite, dans la fenêtre contextuelle de l'éditeur Outlook VBA, ouvrez un nouveau module.
- Ensuite, copiez et collez-y les codes VBA suivants.
Sub ConvertEmailtoWordDocument()
Dim objMail As Outlook.MailItem
Dim strMessage As String
Dim objWordApp As Word.Application
Dim objWordDocument As Word.Document
Dim objWordRange As Word.Range
Dim strFilePath, strFileName As String
Select Case Application.ActiveWindow.Class
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
Case olInspector
Set objMail = ActiveInspector.CurrentItem
End Select
strMessage = "From: " & objMail.SenderName & vbCrLf & "Sent: " & objMail.SentOn & vbCrLf & "Subject: " & objMail.Subject & vbCrLf & vbCrLf & objMail.Body
'create a word document
Set objWordApp = CreateObject("Word.Application")
Set objWordDocument = objWordApp.Documents.Add
objWordDocument.Activate
Set objWordRange = objWordDocument.Range(0, 0)
'insert the email information to the document
objWordRange.Text = strMessage
'change the email contents' format
With objWordRange.Font
.Name = "Cambria"
.Color = wdColorBlack
.Size = 12
End With
'show the word document
objWordApp.Visible = True
objWordDocument.ActiveWindow.Visible = True
End Sub
- Ensuite, ajoutez le nouveau projet VBA à la barre d'outils d'accès rapide.
- Après cela, sélectionnez un e-mail et cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
- Immédiatement, un document Word contenant le contenu de l'e-mail s'affichera.
- Enfin, vous pouvez enregistrer le nouveau document Word contextuel comme d'habitude.
Débarrassez-vous efficacement des problèmes Outlook ennuyeux
Comme Outlook est sujet aux erreurs et à la corruption, vous devez consacrer plus d'efforts à la protection de vos données Outlook. Par exemple, vous devez effectuer des sauvegardes régulières de vos données Outlook. De plus, il est prudent de s'emparer d'un prééminent Récupération d'Outlook outil, comme DataNumen Outlook Repair, qui vous sera sûrement utile un jour.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris SQL Server réparation et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com