Terkadang, Anda hanya perlu mencetak header email Outlook biasa atau header internet. Nah, postingan ini akan membagikan 2 pendekatan cepat dan sederhana kepada Anda.
Dari artikel sebelumnya – “2 Tips Mencetak Email Outlook tanpa Header & Nama Pengguna“, Anda dapat mempelajari cara mudah untuk mencetak hanya isi pesan dari surat. Namun, terkadang, Anda mungkin hanya ingin mencetak header normal atau internet dari email, yaitu pengirim, penerima, dan informasi email lainnya. Nah, untuk selanjutnya kami akan mengajarkan 2 cara untuk mendapatkannya.
Metode 1: Cetak Secara Manual
Cetak Tajuk Internet
- Pertama, klik dua kali email tersebut untuk membukanya di jendela Pesan.
- Lalu, buka menu "File".
- Pada tab "Info", klik tombol "Properties".
- Di jendela "Properties", klik kotak "Internet headers".
- Selanjutnya, tekan "Ctrl + A" untuk memilih semua dan "Ctrl + C" untuk menyalin header lengkap.
- Nanti, buat email email baru dan tekan "Ctrl + V" untuk menempelkan header ke badan.
- Terakhir, buka "File"> "Print" untuk mencetak email baru.
Cetak Header Normal
- Untuk memulai, pilih atau buka email sumber.
- Kemudian, klik tombol "Maju".
- Di email penerusan sembulan, pilih dan hapus badan pesan email asli untuk meninggalkan header saja, seperti tangkapan layar berikut.
- Terakhir, cetak surat penerusan saat ini seperti biasa.
Metode 2: Mencetak dengan VBA
Cetak Tajuk Internet
- Sebagai langkah awal, buka atau pilih surat yang Anda inginkan.
- Kemudian, luncurkan editor Outlook VBA melalui "Alt + F11".
- Selanjutnya, masukkan kode berikut ke dalam 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
- Terakhir, klik ikon "Jalankan" di bilah alat.
- Sekaligus, tajuk Internet email akan dicetak.
Cetak Header Normal
- Masih di editor VBA, salin kode di bawah ini ke dalam 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
- Setelah itu, jalankan makro ini.
- Segera, header normal email akan dicetak.
Hati-hati dengan Email Tidak Dikenal
Header email dapat mengungkap banyak informasi, termasuk alamat IP. Jika Anda ingin mengidentifikasi apakah sebuah email mencurigakan, header-nya harus diperiksa. Sejujurnya, disarankan untuk tidak mempercayai email dari pengirim yang tidak dikenal karena sebagian besar adalah spam dan bahkan membawa makro berbahaya. Mereka dapat dengan mudah menyerang file Outlook Anda. Jika file Outlook rusak, Anda harus berupaya untuk memperbaikinya. Perbaikan Outlook. Ini cukup rumit kecuali jika Anda menggunakan alat yang profesional dan kuat, seperti DataNumen Outlook Repair.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server korupsi dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com