Joskus sinun tarvitsee tulostaa vain Outlook-sähköpostin normaali tai internet-otsikko. Tässä viestissä jaetaan kaksi nopeaa ja yksinkertaista tapaa.
Edellisestä artikkelista - “2 vinkkiä Outlook-sähköpostin tulostamiseen ilman otsikkoa ja käyttäjätunnusta“, Voit oppia helpot tavat tulostaa vain sähköpostin viestin runko. Mutta joskus saatat haluta vain tulostaa sähköpostin normaalin tai Internet-otsikon, nimittäin sähköpostin lähettäjän, vastaanottajat ja muut tiedot. Joten, jäljempänä, opetamme sinulle 2 tapaa saada se.
Tapa 1: Tulosta manuaalisesti
Tulosta Internet-otsikko
- Aluksi kaksoisnapsauta sähköpostia avataksesi sen Viesti-ikkunassa.
- Siirry sitten Tiedosto-valikkoon.
- Napsauta Info-välilehdessä Ominaisuudet-painiketta.
- Napsauta Ominaisuudet-ikkunassa Internet-otsikot-ruutua.
- Valitse seuraavaksi kaikki painamalla "Ctrl + A" ja kopioi täydelliset otsikot painamalla "Ctrl + C".
- Luo myöhemmin uusi sähköposti sähköpostilla ja liitä otsikot runkoon painamalla "Ctrl + V".
- Lopuksi siirry kohtaan "Tiedosto"> "Tulosta" tulostaaksesi uuden postin.
Tulosta normaali otsikko
- Aluksi valitse tai avaa lähdesähköposti.
- Napsauta sitten "Välitä" -painiketta.
- Valitse ponnahdusikkunoiden edelleenlähetyspostista alkuperäisen sähköpostin viestirunko ja poistu vain otsikosta, kuten seuraava kuvakaappaus.
- Viime kädessä tulosta nykyinen edelleenlähetysviesti tavalliseen tapaan.
Tapa 2: Tulosta VBA: lla
Tulosta Internet-otsikko
- Aloita avaamalla tai valitsemalla haluamasi sähköpostiviesti.
- Käynnistä sitten Outlook VBA -editori Alt + F11: n kautta.
- Laita seuraavaksi seuraava koodi moduuliin.
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
- Napsauta lopuksi työkalupalkin Suorita-kuvaketta.
- Samalla sähköpostin Internet-otsikko tulostetaan.
Tulosta normaali otsikko
- Kopioi alla oleva koodi moduuliksi edelleen VBA-editorissa.
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
- Suorita tämän jälkeen tämä makro.
- Välittömästi sähköpostin normaali otsikko tulostetaan.
Varo tuntemattomia viestejä
Ylätunnisteet voivat paljastaa paljon sähköpostin tietoja, mukaan lukien IP-osoitteet. Jos haluat tunnistaa, onko sähköposti epäilyttävä, ylätunnisteet on tarkistettava. Rehellisesti sanottuna on suositeltavaa olla luottamatta tuntemattomien lähettäjien sähköposteihin, koska useimmat niistä ovat roskapostia ja sisältävät jopa haitallisia makroita. Ne voivat hyökätä Outlook-tiedostoosi helposti. Jos Outlook-tiedosto on vioittunut, sinun on pyrittävä korjaamaan se. Outlookin korjaus. Se on melko oksainen, ellet turvaudu ammattimaiseen ja vankkaan työkaluun, kuten DataNumen Outlook Repair.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com