Cara Mengecualikan Gambar yang Disematkan saat Mencetak Email Outlook

Terkadang, Anda mungkin hanya ingin mencetak teks email, tidak termasuk gambar yang disematkan. Daripada menghapus gambar sebelum dicetak, Anda dapat menerapkan metode yang diperkenalkan dalam artikel ini. Itu dapat secara otomatis mengecualikan gambar saat mencetak.

Seperti yang kita semua tahu, mencetak gambar menghabiskan tinta. Oleh karena itu, terkadang saat mencetak email, Anda mungkin berpikir bahwa gambar yang disisipkan tidak berguna. Jadi, Anda mungkin ingin mengecualikan gambar saat mencetak email. Dalam hal ini, Anda dapat menggunakan cara berikut untuk mencapainya dengan mudah.

Kecualikan Gambar yang Disematkan saat Mencetak Email

1. Pertama, luncurkan aplikasi Outlook.
2. Kemudian, akses editor Outlook VBA sesuai artikel – “Cara Menjalankan Kode VBA di Outlook Anda".
3. Selanjutnya, Anda perlu mengaktifkan “MS Word Object Library”, yang dapat Anda lihat pada “Cara Menambahkan Referensi Pustaka Objek di VBA".
4. Setelah itu, masukkan kode VBA berikut ke dalam modul yang tidak digunakan.

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

5. Kemudian, tutup jendela "Microsoft Visual Basic for Applications" saat ini.
6. Setelah itu, tambahkan makro baru ke Bilah Alat Akses Cepat.
7. Akhirnya, Anda dapat mencoba makro ini sekarang.

• Pertama-tama, pilih atau buka email sumbernya.
• Lalu, klik tombol makro di Bilah Alat Akses Cepat.
• Sekaligus, email akan dicetak tanpa gambar yang disematkan, yang akan terlihat seperti tangkapan layar berikut:

Lindungi Data Outlook Anda Secara Efektif

Saat ini, data selalu tidak aman karena terlalu banyak potensi risiko, seperti gangguan perangkat keras, kesalahan perangkat lunak, infeksi virus, dan sebagainya. Hal yang sama berlaku untuk data Outlook Anda. Karenanya, Anda harus melakukan upaya untuk melindungi data Outlook Anda. Misalnya, Anda harus membuat cadangan PST secara teratur. Plus, Anda perlu belajar cara menggunakan scanpst untuk memperbaiki file Outlook. Last but not least, menyiapkan alat perbaikan eksternal yang kuat juga merupakan kebutuhan, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com