2 Metoda të thjeshta për të printuar vetëm titullin normal ose në internet të një emaili të Outlook

Ndonjëherë, duhet të printoni vetëm kokën normale ose të internetit të një email-i Outlook. Tani, ky postim do t'ju ndajë 2 qasje të shpejta dhe të thjeshta.

Nga artikulli i mëparshëm - "2 Këshilla për të printuar një email të Outlook pa titull dhe emër përdoruesi“, mund të mësoni mënyrat e thjeshta për të printuar vetëm trupin e mesazhit të një poste. Por, ndonjëherë, mund të dëshironi të printoni thjesht kokën normale ose të internetit të një emaili, domethënë dërguesin, marrësit dhe informacione të tjera të emailit. Pra, në vijim, ne do t'ju mësojmë 2 mënyra për ta marrë atë.

Metoda 1: Printoni manualisht

Printoni Kreun e Internetit

1. Në fillim, klikoni dy herë emailin për ta hapur në dritaren e Mesazhit.
2. Pastaj shkoni te menyja "File".
3. Në skedën "Info", klikoni në butonin "Properties".
4. Në dritaren "Properties", klikoni në kutinë "Titujt e Internetit".
5. Më pas, shtypni "Ctrl + A" për të zgjedhur të gjitha dhe "Ctrl + C" për të kopjuar titujt e plotë.
6. Më vonë, krijoni një email të ri dhe shtypni "Ctrl + V" për të ngjitur titujt në trup.
7. Së fundi, shkoni te "File" > "Print" për të printuar postën e re.

Printoni kokën normale

1. Për të filluar, zgjidhni ose hapni emailin burimor.
2. Më pas, klikoni në butonin "Përpara".
3. Në postën e dërgimit që shfaqet, zgjidhni dhe hiqni trupin e mesazhit të postës origjinale për të lënë vetëm kokën, si pamja e mëposhtme e ekranit.
4. Në fund të fundit, printoni postën aktuale të përcjelljes si zakonisht.

Metoda 2: Printoni me VBA

Printoni Kreun e Internetit

1. Për të filluar, hapni ose zgjidhni postën që dëshironi.
2. Më pas, nisni redaktorin VBA të Outlook përmes "Alt + F11".
3. Më pas, vendosni kodin e mëposhtëm në një 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

4. Së fundi, klikoni ikonën "Run" në shiritin e veglave.
5. Menjëherë, koka e internetit e emailit do të printohet.

Printoni kokën normale

1. Ende në redaktuesin VBA, kopjoni kodin më poshtë në një 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

2. Pas kësaj, ekzekutoni këtë makro.
3. Menjëherë, titulli normal i emailit do të printohet.

Kini kujdes për postat e panjohura

Titujt mund të zbulojnë shumë informacione të email-it, duke përfshirë adresat IP. Nëse doni të identifikoni nëse një email është i dyshimtë, duhet të kontrolloni titujt. Për të qenë i sinqertë, rekomandohet të mos u besoni email-eve nga dërgues të panjohur, pasi shumica e tyre janë spam dhe madje përmbajnë makro të dëmshme. Ato mund të sulmojnë skedarin tuaj Outlook me lehtësi. Nëse skedari Outlook është i korruptuar, duhet të bëni përpjekje për ta provuar. Riparimi i parashikimeve. Është mjaft i lidhur nëse nuk përdorni një mjet profesional dhe të fortë, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë SQL Server korrupsioni dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com