Outlook: Resimler olmadan e-posta yazdırma

Genellikle Outlook’ta bir e-postayı yazdırırken resimler de yazdırılır. Ancak bazen yalnızca metni, resimleri olmadan yazdırmak isteyebilirsiniz. Ne yazık ki Outlook’ta bu işlemi gerçekleştirmenize olanak tanıyan yerleşik bir özellik bulunmamaktadır. Bu eğitimde, e-postanın yalnızca metnini —resimler olmadan— hemen Word üzerinden yazdıran bir VBA kodu sunulmaktadır. Ya da bilgisayarınızda yazıcı yoksa, VBA kodu öncelikle e-postayı resimler olmadan bir PDF olarak dışa aktarır; yazıcı kullanıma hazır olduğunda bu PDF’i yazdırabilirsiniz.

Resimler olmadan e-posta yazdırmak için VBA

---

Resimler olmadan e-posta yazdırmak için VBA

1. Yalnızca metnini yazdırmak istediğiniz e-postayı seçin, ardından Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Yeni bir boş modül oluşturmak için Ekle > Modül seçeneğine tıklayın, ardından aşağıdaki kodu modüle kopyalayıp yapıştırın.

VBA: Resimler olmadan e-posta dışa aktarma

Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
  Dim xMail As Outlook.MailItem
  Dim xFileName As String, xSubject As String
  Dim xWord As Word.Application
  Dim xWordDoc As Word.Document
  Dim xInlineShape As Word.InlineShape
  Dim InvalidArr
  On Error Resume Next
  If Application.ActiveWindow.Class = olInspector Then
    Set xMail = ActiveInspector.CurrentItem
  ElseIf Application.ActiveWindow.Class = olExplorer Then
    Set xMail = ActiveExplorer.Selection.Item(1)
  End If
  
  InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
  xSubject = xMail.Subject
  For i = 0 To UBound(InvalidArr)
    xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
  Next i
  
  xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
  xMail.SaveAs xFileName, olDoc
  Set xWord = CreateObject("Word.Application")
  xWord.Visible = False
  Set xWordDoc = xWord.Documents.Open(xFileName)
  For Each xInlineShape In xWordDoc.InlineShapes
      xInlineShape.Delete
  Next
  xWordDoc.PrintOut
  xWordDoc.Close
  xWord.Quit
  Kill xFileName
End Sub

3. Araçlar > Başvurular seçeneğine tıklayarak Başvurular – Proje 1 iletişim kutusunu açın, Microsoft Word 16,0 Nesne Kitaplığı onay kutusunu işaretleyin ve Tamam’a tıklayın.

 

4-1. İmleci kodun içinde tutun ve kodu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın; böylece resimler olmadan e-posta hemen Word üzerinden yazdırılır. Ancak bilgisayarınızda yazıcı yoksa, lütfen 4. adımı izleyin.

4-2. Bilgisayarınızda yazıcı olmadığında, kodu çalıştırmak için F5 tuşuna bastıktan veya Çalıştır düğmesine tıkladıktan sonra, PDF dosyalarının kaydedileceği bir klasör seçmeniz için bir iletişim kutusu açılacak ve bu PDF dosyalarına bir ad vereceksiniz. Kaydet’e tıklayın.

 

Artık e-posta, resimler olmadan PDF olarak dışa aktarıldı. PDF dosyalarını açın ve yazdırmak için sağ tıklayıp Yazdır seçeneğini belirleyin.

İpucu: Seçili e-postaları resimler, başlıklar, gövde metinleri, CC’ler ve her şeyiyle birlikte toplu olarak PDF (veya Word, CSV, Excel, TXT, HTML dosyası) biçiminde kaydetmek istiyorsanız, Toplu Kaydet özelliği Kutools for Outlook size yardımcı olabilir; bunun için yalnızca 3 adıma ihtiyacınız var.

1. E-postaları seçin.

2. Kutools > Toplu Kaydet öğesine tıklayın.

3. Bir konum seçin ve istediğiniz dosya türünü (veya türlerini) işaretleyin. Tamam’a tıklayın.