Cara Mengecualikan Imej Terbenam semasa Mencetak Email Outlook

Kadang-kadang, anda mungkin mahu mencetak teks e-mel, tidak termasuk gambar yang disematkan. Daripada membuang gambar sebelum mencetak, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini. Ia dapat mengecualikan gambar secara automatik semasa mencetak.

Seperti yang kita semua ketahui, mencetak gambar adalah membuang dakwat. Oleh itu, kadang-kadang, semasa mencetak e-mel, anda mungkin menganggap bahawa gambar yang dimasukkan tidak berguna. Oleh itu, anda mungkin ingin mengecualikan gambar semasa mencetak e-mel. Dalam kes ini, anda dapat menggunakan cara berikut untuk mencapainya dengan mudah.

Kecualikan Imej Terbenam semasa Mencetak E-mel

1. Pertama, lancarkan aplikasi Outlook.
2. Kemudian, akses editor VBA Outlook mengikut artikel - “Cara Menjalankan Kod VBA di Outlook Anda".
3. Seterusnya, anda perlu mendayakan “Perpustakaan Objek MS Word”, yang boleh anda rujuk kepada “Cara Menambah Rujukan Perpustakaan Objek dalam VBA".
4. Selepas itu, masukkan kod 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 tetingkap "Microsoft Visual Basic for Applications" semasa.
6. Selepas itu, tambahkan makro baru ke Bar Alat Akses Pantas.
7. Akhirnya, anda boleh mencuba makro ini sekarang.

• Untuk bermula, pilih atau buka e-mel sumber.
• Kemudian, klik butang makro di Bar Alat Akses Pantas.
• Sekali gus, e-mel akan dicetak tanpa gambar yang disematkan, yang akan kelihatan seperti tangkapan skrin berikut:

Lindungi Data Outlook Anda dengan Berkesan

Pada masa ini, data selalu tidak selamat kerana terdapat terlalu banyak risiko yang berpotensi, seperti gangguan perkakasan, kesalahan perisian, jangkitan virus dan sebagainya. Perkara yang sama berlaku untuk data Outlook anda. Oleh itu, anda harus berusaha untuk melindungi data Outlook anda. Sebagai contoh, anda harus membuat sandaran PST biasa. Selain itu, anda perlu belajar bagaimana menggunakan scanpst untuk membaiki fail Outlook. Akhir sekali, menyediakan alat pembaikan luaran yang kuat juga merupakan keperluan, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com