2 métodos eficazes para converter um e-mail do Outlook em um documento do Word

Se você deseja salvar ou converter um e-mail do Outlook em um documento do Word, pode usar os 2 métodos apresentados neste artigo.

O Outlook não oferece nenhum recurso nativo para salvar ou converter um e-mail do Outlook em um documento do Word. Portanto, se você deseja alcançá-lo, deve fazer alguns esforços extras. Aqui vamos te ensinar 2 métodos rápidos. Uma delas é usar o recurso “Salvar” de maneira inteligente. A outra é usar o Outlook VBA com tato. Por favor, continue lendo para obtê-los em detalhes.

Método 1: Use o recurso "Salvar"

1. Para começar, abra o programa Outlook.
2. Em seguida, envie um e-mail.
3. Em seguida, vá para o menu “Arquivo” e selecione a opção “Salvar como”.
4. Posteriormente, na caixa de diálogo pop-up, selecione uma pasta de destino e escolha “Somente texto” no campo “Salvar como tipo”.
5. Depois de clicar no botão "Salvar", você pode abrir seu aplicativo Microsoft Word.
6. No MS Word, abra o menu “Arquivo” e selecione “Abrir”.
7. Na caixa de diálogo pop-up "Abrir", selecione "Todos os arquivos" na linha "Nome do arquivo" e selecione o arquivo de texto salvo anteriormente.
8. Após clicar em “Abrir”, o e-mail no tipo arquivo de texto será aberto no word.
9. Mais tarde, você pode selecionar “Arquivo” > “Salvar como”.
10. Por fim, na caixa de diálogo “Salvar como”, escolha “Documento do Word” em “Salvar como tipo” e clique em “Salvar”.

Método 2: Use o Outlook VBA

1. Em primeiro lugar, pressione os atalhos de teclado “Alt + F11” no Outlook.
2. Em seguida, na janela pop-up do editor VBA do Outlook, abra um novo módulo.
3. Em seguida, copie e cole os seguintes códigos VBA nele.

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

4. Posteriormente, adicione o novo projeto VBA à Barra de Ferramentas de Acesso Rápido.
5. Depois disso, selecione um e-mail e clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
6. Imediatamente, um documento do Word com conteúdo de e-mail será exibido.
7. Finalmente, você pode salvar o novo documento pop-up do Word como de costume.

Elimine problemas irritantes do Outlook de forma eficaz

Como o Outlook é propenso a erros e corrupção, você precisa se esforçar mais para proteger seus dados do Outlook. Por exemplo, você precisa fazer backups regulares dos dados do Outlook. Além disso, é prudente se apossar de um proeminente Recuperação do Outlook ferramenta, como DataNumen Outlook Repair, que certamente será útil um dia.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL Server reparar e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com