Uneori, trebuie doar să imprimați antetul normal sau antetul de internet al unui e-mail Outlook. Acum, această postare vă va împărtăși două abordări rapide și simple.
Din articolul precedent – „2 sfaturi pentru a imprima un e-mail Outlook fără antet și nume de utilizator„, puteți învăța modalitățile ușoare de a tipări numai corpul mesajului unui e-mail. Dar, uneori, poate doriți să tipăriți antetul normal sau de internet al unui e-mail, și anume expeditorul, destinatarii și alte informații ale e-mailului. Deci, în continuare, vă vom învăța 2 metode pentru a-l obține.
Metoda 1: Imprimați manual
Imprimare antet Internet
- La început, faceți dublu clic pe e-mail pentru a-l deschide în fereastra Mesaj.
- Apoi, accesați meniul „Fișier”.
- În fila „Informații”, faceți clic pe butonul „Proprietăți”.
- În fereastra „Proprietăți”, faceți clic în caseta „Antete Internet”.
- Apoi, apăsați „Ctrl + A” pentru a selecta toate și „Ctrl + C” pentru a copia anteturile complete.
- Mai târziu, creați un e-mail nou și apăsați „Ctrl + V” pentru a lipi anteturile în corp.
- În cele din urmă, accesați „Fișier” > „Imprimare” pentru a imprima noul e-mail.
Imprimați antetul normal
- Pentru început, selectați sau deschideți e-mailul sursă.
- Apoi, faceți clic pe butonul „Înainte”.
- În e-mailul pop-up de redirecționare, selectați și eliminați corpul mesajului e-mailului original pentru a lăsa doar antetul, ca în următoarea captură de ecran.
- În cele din urmă, imprimați e-mailul de redirecționare curent ca de obicei.
Metoda 2: Imprimați cu VBA
Imprimare antet Internet
- Pentru început, deschideți sau selectați e-mailul dorit.
- Apoi, lansați editorul Outlook VBA prin „Alt + F11”.
- Apoi, introduceți următorul cod într-un modul.
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
- În sfârșit, faceți clic pe pictograma „Run” din bara de instrumente.
- Imediat, antetul Internet al e-mailului va fi tipărit.
Imprimați antetul normal
- Încă în editorul VBA, copiați codul de mai jos într-un modul.
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
- După aceea, rulați această macrocomandă.
- Imediat, antetul normal al e-mailului va fi tipărit.
Atenție la e-mailuri necunoscute
Anteturile pot expune multe informații despre e-mail, inclusiv adresele IP. Dacă doriți să identificați dacă un e-mail este suspect, trebuie verificate anteturile. Ca să fiu sincer, este recomandat să nu aveți încredere în e-mailurile de la expeditori necunoscuți, deoarece majoritatea sunt spam și chiar conțin macrocomenzi rău intenționate. Acestea pot ataca fișierul Outlook cu ușurință. Dacă fișierul Outlook este corupt, trebuie să depuneți eforturi pentru a încerca... Repararea Outlook. Este destul de noduri, cu excepția cazului în care apelați la un instrument profesional și robust, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server corupţie și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com