Outlook: Resimsiz e-posta nasıl yazdırılır

Genellikle Outlook'ta bir e-posta yazdırırken, resimler de yazdırılır. Ancak bazen metinleri resimler olmadan yazdırmak istersiniz, ancak Outlook'ta bu işi destekleyebilecek yerleşik bir özellik yoktur. Bu öğretici, görüntü içermeyen e-postayı Word aracılığıyla hemen yazdıracak bir VBA kodu sağlar. Veya bilgisayarınızda bir yazıcı olmadığında, VBA kodu e-postayı önce görüntü içermeyen bir PDF olarak dışa aktarır ve ardından yazıcı kullanılabilir olduktan sonra PDF'yi yazdırabilirsiniz.

Görüntüler olmadan e-posta yazdırmak için VBA

Office Sekmesi - Microsoft Office'te Sekmeli Düzenlemeyi ve Göz Atmayı Etkinleştirerek Çalışmayı Kolaylaştırın

Devamı ...Indirin ...

Kutools for Outlook - Üstün Verimlilik için Outlook'u 100'den Fazla Gelişmiş Özellikle Güçlendirin

E-posta göndermeyi otomatikleştirin Otomatik CC / BCC, Otomatik İleri kurallara göre; Göndermek Otomatik cevap (Ofis Dışında) değişim sunucusu gerektirmeden...
Şunun gibi hatırlatıcılar alın: BCC Uyarısı BCC listesindeyken herkese yanıt verirken ve Eksik Olduğunda Hatırlat Unutulan eklentiler için...
E-posta verimliliğini artırın Yanıtla (Tümü) Eklerle birlikte, İmzaya veya Konuya Otomatik Selamlama veya Tarih ve Saat Ekleme, Birden Fazla E-postayı Yanıtlayın...
E-posta göndermeyi kolaylaştırın E-postaları Geri Çağırma, Ek Araçları (Tümünü Sıkıştır, Tümünü Otomatik Kaydet...), Yinelemeleri Kaldır, ve Hızlı rapor...

Bu gelişmiş özelliklerle Outlook 2021 - 2010 veya Outlook 365'inizi güçlendirin. Kapsamlı 60 günlük ücretsiz deneme sürümünün keyfini çıkarın ve e-posta deneyiminizi geliştirin!

Devamı ...Indirin ...

Görüntüler olmadan e-posta yazdırmak için VBA

1. Yalnızca metnini yazdırmak istediğiniz bir e-posta seçin ve ardından Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül yeni bir boş modül oluşturmak için aşağıdaki kodu kopyalayıp modüle yapıştırın.

VBA: e-postayı resimsiz dışa aktar

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