En ocasiones, solo necesitas imprimir el encabezado normal o de Internet de un correo electrónico de Outlook. En este artículo, te mostraremos dos maneras rápidas y sencillas de hacerlo.
Del artículo anterior - "2 consejos para imprimir un correo electrónico de Outlook sin encabezado ni nombre de usuario“, Puede aprender las formas sencillas de imprimir solo el cuerpo del mensaje de un correo. Pero, a veces, es posible que desee imprimir el encabezado normal o de Internet de un correo electrónico, es decir, el remitente, los destinatarios y otra información del correo electrónico. Entonces, a continuación, te enseñaremos 2 métodos para conseguirlo.
Método 1: imprimir manualmente
Imprimir encabezado de Internet
- Al principio, haga doble clic en el correo electrónico para abrirlo en la ventana Mensaje.
- Luego, vaya al menú "Archivo".
- En la pestaña "Información", haga clic en el botón "Propiedades".

- En la ventana "Propiedades", haga clic en el cuadro "Encabezados de Internet".
- A continuación, presione "Ctrl + A" para seleccionar todo y "Ctrl + C" para copiar los encabezados completos.
- Más tarde, cree un correo electrónico nuevo y presione "Ctrl + V" para pegar los encabezados en el cuerpo.
- Finalmente, vaya a "Archivo"> "Imprimir" para imprimir el nuevo correo.
Imprimir encabezado normal
- Para empezar, seleccione o abra el correo electrónico de origen.
- Luego, haga clic en el botón "Adelante".
- En el correo de reenvío emergente, seleccione y elimine el cuerpo del mensaje del correo original para dejar solo el encabezado, como en la siguiente captura de pantalla.
- En última instancia, imprima el correo de reenvío actual como de costumbre.
Método 2: imprimir con VBA
Imprimir encabezado de Internet
- Para empezar, abre o selecciona el correo que quieras.
- Luego, inicie el editor de Outlook VBA a través de "Alt + F11".
- A continuación, coloque el siguiente código en un 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
- Por último, haga clic en el icono "Ejecutar" en la barra de herramientas.
- De inmediato, se imprimirá el encabezado de Internet del correo electrónico.
Imprimir encabezado normal
- Aún en el editor de VBA, copie el código a continuación en un 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
- Después de eso, ejecute esta macro.
- Inmediatamente, se imprimirá el encabezado normal del correo electrónico.
Cuidado con los correos desconocidos
Los encabezados pueden revelar mucha información del correo electrónico, incluidas las direcciones IP. Si desea identificar si un correo electrónico es sospechoso, debe revisar los encabezados. Siendo honestos, se recomienda no confiar en los correos electrónicos de remitentes desconocidos, ya que la mayoría son spam e incluso contienen macros maliciosas. Pueden atacar su archivo de Outlook con facilidad. Si el archivo de Outlook está dañado, debe hacer esfuerzos para intentar Reparación de Outlook. Es bastante complicado a menos que recurras a una herramienta profesional y robusta, como DataNumen Outlook Repair.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo SQL Server corrupción y productos de software de reparación de Outlook. Para más información visite www.datanumen.com






