Bir Outlook E-postasını Yazdırırken Katıştırılmış Görüntüleri Hariç Tutma

Bazen, katıştırılmış resimler dahil değil, bir e-postanın metnini yazdırmak isteyebilirsiniz. Resimleri baskıdan önce kaldırmak yerine bu yazıda anlatılan yöntemi uygulayabilirsiniz. Yazdırırken görüntüleri otomatik olarak hariç tutabilir.

Hepimizin bildiği gibi, görüntü basmak mürekkep israfıdır. Bu nedenle, bazen bir e-postayı yazdırırken eklenen resimlerin işe yaramaz olduğunu düşünebilirsiniz. Bu nedenle, bir e-postayı yazdırırken görüntüleri hariç tutmak isteyebilirsiniz. Bu durumda, zahmetsizce elde etmek için aşağıdaki yolu kullanabilirsiniz.

Bir E-postayı Yazdırırken Gömülü Resimleri Hariç Tut

1. Öncelikle, Outlook uygulamasını başlatın.
2. Ardından, makaleye göre Outlook VBA düzenleyicisine erişin – “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız? anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
3. Ardından, “MS Word Nesne Kitaplığı”nı etkinleştirmeniz gerekecek; bununla ilgili daha fazla bilgiyi şu adreste bulabilirsiniz: “VBA'da Nesne Kütüphanesi Referansı Nasıl Eklenir? anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
4. Bundan sonra, aşağıdaki VBA kodunu kullanılmayan bir modüle yerleştirin.

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. Daha sonra mevcut “Uygulamalar için Microsoft Visual Basic” penceresini kapatın.
6. Ardından, yeni makroyu Hızlı Erişim Araç Çubuğuna ekleyin.
7. Sonunda, bu makroyu şimdi deneyebilirsiniz.

• Öncelikle kaynak e-postayı seçin veya açın.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
• Hemen, e-posta, aşağıdaki ekran görüntüsüne benzeyen gömülü resimler olmadan yazdırılacaktır:

Outlook Verilerinizi Etkili Bir Şekilde Koruyun

Günümüzde, donanım hataları, yazılım hataları, virüs bulaşması vb. gibi çok fazla potansiyel risk olduğu için veriler her zaman güvensizdir. Aynı şey Outlook verileriniz için de geçerlidir. Bu nedenle, Outlook verilerinizi korumak için çaba göstermelisiniz. Örneğin, düzenli PST yedeklemeleri yapmalısınız. Ayrıca, nasıl kullanılacağını öğrenmeniz gerekir. Tarama Outlook dosyasını onarmak için. Son olarak, güçlü bir harici onarım aracı hazırlamak da bir zorunluluktur. 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. mdf'yi kurtar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com