Cách loại trừ hình ảnh nhúng khi in email Outlook

Chia sẻ ngay bây giờ:

Đôi khi, bạn có thể chỉ muốn in văn bản của email mà không bao gồm các hình ảnh được nhúng. Thay vì xóa ảnh trước khi in, bạn có thể áp dụng phương pháp được giới thiệu trong bài viết này. Nó có thể tự động loại trừ hình ảnh khi in.

Như chúng ta đã biết, in ảnh rất tốn mực. Vì vậy, đôi khi, khi in email, bạn có thể nghĩ rằng những hình ảnh được chèn vào là vô ích. Vì vậy, bạn có thể muốn loại trừ hình ảnh khi in email. Trong trường hợp này, bạn có thể sử dụng cách sau để đạt được điều đó một cách dễ dàng.

Loại trừ hình ảnh nhúng khi in email Outlook

Loại trừ hình ảnh nhúng khi in email

  1. Trước hết, hãy khởi chạy ứng dụng Outlook.
  2. Sau đó, truy cập trình soạn thảo Outlook VBA theo bài viết – “Cách chạy mã VBA trong Outlook của bạn".
  3. Tiếp theo, bạn cần kích hoạt "Thư viện đối tượng MS Word", về vấn đề này bạn có thể tham khảo tại "Cách thêm tham chiếu thư viện đối tượng trong VBA".
  4. Sau đó, đặt mã VBA sau vào mô-đun không sử dụng.
Sub ExcludeEmebeddedImagesWhenPrintingEmail()
    Dim objMail As Outlook.MailItem
    Dim strMailDocument As String
    Dim objWordApp As Word.Application
    Dim objMailDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Save the email as a Word document
    strMailDocument = Environ("Temp") & "\" & objMail.Subject & ".doc"
    objMail.SaveAs strMailDocument, olDoc
 
    'Remove the embedded images from the document
    Set objWordApp = CreateObject("Word.Application")
    Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
    objWordApp.Visible = True
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.Delete
    Next
 
    'Print out the document
    objMailDocument.PrintOut
 
    objMailDocument.Close
    objWordApp.Quit
    Kill strMailDocument
End Sub

Mã VBA - Loại trừ hình ảnh nhúng khi in email

  1. Sau đó, đóng cửa sổ “Microsoft Visual Basic for Application” hiện tại.
  2. Sau đó, thêm macro mới vào Thanh công cụ truy cập nhanh.
  3. Cuối cùng, bạn có thể thử macro này ngay bây giờ.
  • Trước tiên, hãy chọn hoặc mở email nguồn.
  • Sau đó, bấm vào nút macro trong Thanh công cụ truy cập nhanh.Chạy Macro trên Email đã chọn
  • Ngay lập tức, email sẽ được in ra mà không có hình ảnh nhúng, trông giống như ảnh chụp màn hình sau:Email được in

Bảo vệ dữ liệu Outlook của bạn một cách hiệu quả

Ngày nay, dữ liệu luôn không an toàn vì có quá nhiều rủi ro tiềm ẩn như trục trặc phần cứng, lỗi phần mềm, nhiễm virus, v.v. Điều tương tự cũng đúng với dữ liệu Outlook của bạn. Do đó, bạn phải nỗ lực bảo vệ dữ liệu Outlook của mình. Ví dụ: bạn nên tạo bản sao lưu PST thường xuyên. Ngoài ra, bạn cần học cách sử dụng scanpst để sửa chữa tập tin Outlook. Cuối cùng nhưng không kém phần quan trọng, việc chuẩn bị một công cụ sửa chữa bên ngoài mạnh mẽ cũng là điều cần thiết, 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 phục hồi mdf 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

Chia sẻ ngay bây giờ:

Được đóng lại.