Bəzən Outlook e-poçtunun yalnız adi və ya internet başlığını çap etməlisiniz. İndi bu yazı sizə 2 sürətli və sadə üsulu təqdim edəcək.
Əvvəlki məqalədən – “Başlıq və İstifadəçi adı olmadan Outlook e-poçtunu çap etmək üçün 2 məsləhət“, siz poçtun yalnız mesaj mətnini çap etməyin asan yollarını öyrənə bilərsiniz. Ancaq bəzən siz sadəcə olaraq e-poçtun normal və ya internet başlığını çap etmək istəyə bilərsiniz, yəni göndərən, alıcılar və e-poçtun digər məlumatlarını. Beləliklə, bundan sonra sizə onu əldə etməyin 2 üsulunu öyrədəcəyik.
Metod 1: Əl ilə çap edin
İnternet başlığını çap edin
- Əvvəlcə e-poçtu Mesaj pəncərəsində açmaq üçün iki dəfə klikləyin.
- Sonra "Fayl" menyusuna keçin.
- "Məlumat" sekmesinde, "Xüsusiyyətlər" düyməsini basın.

- "Xüsusiyyətlər" pəncərəsində "İnternet başlıqları" qutusuna klikləyin.
- Sonra, hamısını seçmək üçün "Ctrl + A" və tam başlıqları kopyalamaq üçün "Ctrl + C" düyməsini basın.
- Daha sonra yeni e-poçt poçtu yaradın və başlıqları gövdəyə yapışdırmaq üçün "Ctrl + V" düyməsini basın.
- Nəhayət, yeni məktubu çap etmək üçün “Fayl” > “Çap et” bölməsinə keçin.
Normal başlığı çap edin
- Başlamaq üçün mənbə e-poçtunu seçin və ya açın.
- Sonra "İrəli" düyməsini basın.
- Popup yönləndirici poçtda, aşağıdakı ekran görüntüsü kimi yalnız başlığı tərk etmək üçün orijinal poçtun mesaj gövdəsini seçin və silin.
- Nəhayət, hər zamanki kimi cari yönləndirmə poçtunu çap edin.
Metod 2: VBA ilə çap edin
İnternet başlığını çap edin
- Başlamaq üçün istədiyiniz poçtu açın və ya seçin.
- Sonra "Alt + F11" vasitəsilə Outlook VBA redaktorunu işə salın.
- Sonra, aşağıdakı kodu modula qoyun.
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əhayət, alətlər panelində "Çalış" simgesini basın.
- Dərhal e-poçtun İnternet başlığı çap olunacaq.
Normal başlığı çap edin
- Hələ VBA redaktorunda, aşağıdakı kodu modula köçürün.
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
- Bundan sonra bu makronu işə salın.
- Dərhal e-poçtun normal başlığı çap olunacaq.
Naməlum məktublara diqqət yetirin
Başlıqlar, IP ünvanları da daxil olmaqla, e-poçtun bir çox məlumatını üzə çıxara bilər. Bir e-poçtun şübhəli olub olmadığını müəyyən etmək istəyirsinizsə, başlıqlar yoxlanılmalıdır. Düzünü desəm, naməlum göndərənlərdən gələn e-poçtlara etibar etməməyiniz tövsiyə olunur, çünki onların əksəriyyəti spamdır və hətta zərərli makroslar daşıyır. Onlar Outlook faylınıza asanlıqla hücum edə bilərlər. Outlook faylı zədələnibsə, cəhd etməlisiniz Outlook təmiri. kimi peşəkar və möhkəm alətə müraciət etməsəniz, bu olduqca düyünlüdür DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server korrupsiya və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com






