Bazen Outlook e-postalarının yalnızca normal veya internet başlığını yazdırmanız gerekebilir. Bu yazıda size 2 hızlı ve basit yöntem sunacağız.
Bir önceki yazıdan – “Başlık ve Kullanıcı Adı Olmadan Bir Outlook E-postası Yazdırmak İçin 2 İpucu“ ile bir mailin sadece mesaj gövdesini yazdırmanın kolay yollarını öğrenebilirsiniz. Ancak bazen, bir e-postanın normal veya internet başlığını, yani e-postanın göndereni, alıcıları ve diğer bilgilerini yazdırmak isteyebilirsiniz. Bundan sonra, onu elde etmek için size 2 yöntem öğreteceğiz.
Yöntem 1: Manuel Olarak Yazdır
İnternet Başlığını Yazdır
- İlk başta, Mesaj penceresinde açmak için e-postayı çift tıklayın.
- Ardından, “Dosya” menüsüne gidin.
- “Bilgi” sekmesinde, “Özellikler” düğmesini tıklayın.
- "Özellikler" penceresinde, "İnternet başlıkları" kutusuna tıklayın.
- Ardından, tümünü seçmek için "Ctrl + A" ve tüm başlıkları kopyalamak için "Ctrl + C" tuşlarına basın.
- Daha sonra, yeni bir e-posta oluşturun ve başlıkları gövdeye yapıştırmak için "Ctrl + V" tuşlarına basın.
- Son olarak, yeni postayı yazdırmak için “Dosya” > “Yazdır” seçeneğine gidin.
Normal Üstbilgiyi Yazdır
- Başlamak için kaynak e-postayı seçin veya açın.
- Ardından, "İleri" düğmesini tıklayın.
- Posta yönlendirme açılır penceresinde, aşağıdaki ekran görüntüsü gibi yalnızca başlığı bırakmak için orijinal postanın mesaj gövdesini seçin ve kaldırın.
- Son olarak, mevcut yönlendirme postasını her zamanki gibi yazdırın.
Yöntem 2: VBA ile yazdırın
İnternet Başlığını Yazdır
- Öncelikle, açmak veya seçmek istediğiniz e-postayı açın.
- Ardından, "Alt + F11" aracılığıyla Outlook VBA düzenleyicisini başlatın.
- Ardından, aşağıdaki kodu bir modüle yerleştirin.
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
- Son olarak, araç çubuğundaki “Çalıştır” simgesine tıklayın.
- Hemen, e-postanın İnternet başlığı yazdırılacaktır.
Normal Üstbilgiyi Yazdır
- Hala VBA editöründe, aşağıdaki kodu bir modüle kopyalayı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
- Daha sonra bu makroyu çalıştırın.
- Hemen, e-postanın normal başlığı yazdırılacaktır.
Bilinmeyen Postalara Dikkat
Başlıklar, IP adresleri de dahil olmak üzere e-posta hakkında birçok bilgiyi ortaya çıkarabilir. Bir e-postanın şüpheli olup olmadığını belirlemek istiyorsanız, başlıkları kontrol etmelisiniz. Dürüst olmak gerekirse, bilinmeyen göndericilerden gelen e-postalara güvenmemeniz önerilir, çünkü bunların çoğu spam'dir ve hatta kötü amaçlı makrolar içerir. Outlook dosyanıza kolayca saldırabilirler. Outlook dosyanız bozuksa, onarmaya çalışmak için çaba sarf etmelisiniz. Outlook onarımı. Gibi profesyonel ve sağlam bir araca başvurmadığınız sürece oldukça düğümlüdür. DataNumen Outlook Repair.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. SQL Server rüşvet ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com