2 métodos fáceis para imprimir apenas o cabeçalho normal ou da Internet de um e-mail do Outlook

Às vezes, você precisa imprimir apenas o cabeçalho normal ou o cabeçalho da internet de um e-mail do Outlook. Este post compartilhará duas maneiras rápidas e simples de fazer isso.

Do artigo anterior – “2 dicas para imprimir um e-mail do Outlook sem cabeçalho e nome de usuário“, você pode aprender as maneiras fáceis de imprimir apenas o corpo da mensagem de um e-mail. Mas, às vezes, você pode querer apenas imprimir o cabeçalho normal ou da Internet de um e-mail, ou seja, o remetente, destinatários e outras informações do e-mail. Portanto, a seguir, ensinaremos 2 métodos para obtê-lo.

Método 1: imprimir manualmente

Imprimir Cabeçalho da Internet

1. Primeiro, clique duas vezes no e-mail para abri-lo na janela Mensagem.
2. Em seguida, vá para o menu "Arquivo".
3. Na guia “Informações”, clique no botão “Propriedades”.
4. Na janela “Propriedades”, clique na caixa “Cabeçalhos da Internet”.
5. Em seguida, pressione “Ctrl + A” para selecionar tudo e “Ctrl + C” para copiar os cabeçalhos completos.
6. Mais tarde, crie um novo e-mail e pressione “Ctrl + V” para colar os cabeçalhos no corpo.
7. Por fim, vá em “Arquivo” > “Imprimir” para imprimir o novo e-mail.

Imprimir Cabeçalho Normal

1. Para começar, selecione ou abra o e-mail de origem.
2. Em seguida, clique no botão “Avançar”.
3. No e-mail de encaminhamento pop-up, selecione e remova o corpo da mensagem do e-mail original para deixar apenas o cabeçalho, como na captura de tela a seguir.
4. Por fim, imprima o e-mail de encaminhamento atual como de costume.

Método 2: imprimir com VBA

Imprimir Cabeçalho da Internet

1. Para começar, abra ou selecione o e-mail que deseja.
2. Em seguida, inicie o editor VBA do Outlook via “Alt + F11”.
3. Em seguida, coloque o código a seguir em um módulo.

Sub PrintFullHeaders()
    Dim objMail As Outlook.MailItem
    Dim objPropertyAccessor As Outlook.PropertyAccessor
    Dim strHeader As String
    Dim objTempMail As Outlook.MailItem
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Get full headers
    Set objPropertyAccessor = objMail.PropertyAccessor
    strHeader = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")
 
    'Print headers in temp mail
    Set objTempMail = Outlook.Application.CreateItem(olMailItem)
    objTempMail.HTMLBody = "<HTML><BODY>" & strHeader & "</BODY></HTML>"
    objTempMail.PrintOut
End Sub

4. Por fim, clique no ícone "Executar" na barra de ferramentas.
5. Imediatamente, o cabeçalho da Internet do e-mail será impresso.

Imprimir Cabeçalho Normal

1. Ainda no editor VBA, copie o código abaixo em um módulo.

Sub PrintShortHeaders()
    Dim objMail As Outlook.MailItem
    Dim objTempMail As Outlook.MailItem
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objTempMail = objMail.Copy
    'Remove the body, leave headers only
    objTempMail.Body = ""
    objTempMail.PrintOut
End Sub

2. Depois disso, execute esta macro.
3. Imediatamente, o cabeçalho normal do e-mail será impresso.

Cuidado com e-mails desconhecidos

Os cabeçalhos podem expor muitas informações do e-mail, incluindo os endereços IP. Se você quiser identificar se um e-mail é suspeito, os cabeçalhos devem ser verificados. Sinceramente, recomenda-se não confiar em e-mails de remetentes desconhecidos, pois a maioria deles são spam e até mesmo contêm macros maliciosas. Eles podem atacar seu arquivo do Outlook com facilidade. Se o arquivo do Outlook estiver corrompido, você terá que tomar medidas para tentar recuperá-lo. Reparo do Outlook. É bastante complicado, a menos que você recorra a uma ferramenta profissional e robusta, como DataNumen Outlook Repair.

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 corrupção e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com