Đôi khi, bạn chỉ cần in phần tiêu đề thông thường hoặc tiêu đề internet của email Outlook. Bài viết này sẽ chia sẻ với bạn 2 cách nhanh chóng và đơn giản.
Từ bài báo trước – “2 Mẹo để In Email Outlook không có Tiêu đề & Tên người dùng“, bạn có thể tìm hiểu những cách dễ dàng để chỉ in nội dung thư của thư. Tuy nhiên, đôi khi, bạn có thể chỉ muốn in tiêu đề bình thường hoặc tiêu đề internet của email, cụ thể là người gửi, người nhận và các thông tin khác của email. Vì vậy, sau đây, chúng tôi sẽ hướng dẫn bạn 2 phương pháp để có được nó.
Phương pháp 1: In thủ công
In tiêu đề Internet
- Đầu tiên, nhấp đúp vào email để mở nó trong cửa sổ Tin nhắn.
- Sau đó, vào menu "Tệp".
- Trên tab “Thông tin”, nhấp vào nút “Thuộc tính”.
- Trong cửa sổ “Properties”, nhấp vào hộp “Internet headers”.
- Tiếp theo, nhấn “Ctrl + A” để chọn tất cả và “Ctrl + C” để sao chép toàn bộ tiêu đề.
- Sau đó, tạo một email mới và nhấn “Ctrl + V” để dán các tiêu đề vào phần nội dung.
- Cuối cùng, vào “File” > “Print” để in thư mới.
In tiêu đề bình thường
- Để bắt đầu, hãy chọn hoặc mở email nguồn.
- Sau đó, nhấp vào nút "Chuyển tiếp".
- Trong cửa sổ bật lên chuyển tiếp thư, hãy chọn và xóa nội dung thư của thư gốc để chỉ để lại tiêu đề, giống như ảnh chụp màn hình sau.
- Cuối cùng, in thư chuyển tiếp hiện tại như bình thường.
Cách 2: In bằng VBA
In tiêu đề Internet
- Trước tiên, hãy mở hoặc chọn thư mà bạn muốn xem.
- Sau đó, khởi chạy trình soạn thảo Outlook VBA thông qua “Alt + F11”.
- Tiếp theo, đặt đoạn mã sau vào một mô-đun.
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
- Cuối cùng, nhấp vào biểu tượng “Run” trên thanh công cụ.
- Ngay lập tức, tiêu đề Internet của email sẽ được in ra.
In tiêu đề bình thường
- Vẫn trong trình soạn thảo VBA, sao chép mã bên dưới vào một mô-đun.
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
- Sau đó, chạy macro này.
- Ngay lập tức, tiêu đề bình thường của email sẽ được in.
Coi chừng thư không xác định
Phần tiêu đề có thể tiết lộ nhiều thông tin của email, bao gồm cả địa chỉ IP. Nếu bạn muốn xác định xem một email có đáng ngờ hay không, bạn cần kiểm tra phần tiêu đề. Thành thật mà nói, không nên tin tưởng vào các email từ người gửi không xác định vì hầu hết chúng là thư rác và thậm chí chứa các macro độc hại. Chúng có thể dễ dàng tấn công tệp Outlook của bạn. Nếu tệp Outlook bị hỏng, bạn phải nỗ lực để khôi phục lại. Sửa chữa Outlook. Nó khá phức tạp trừ khi bạn sử dụng một công cụ chuyên nghiệp và mạnh mẽ, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm SQL Server tham nhũng và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm