Note: The other languages of the website are Google-translated. Back to English

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 - Office'te Sekmeli Düzenleme ve Taramayı Etkinleştirin ve Çalışmayı Çok Daha Kolay Hale Getirin ...
Kutools for Outlook - Microsoft Outlook'a 100 Güçlü Gelişmiş Özellik Getiriyor
  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Kurallara göre Birden Fazla E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - posta adresiniz BCC listesindeyse tümünü yanıtlamaya çalıştığınızda mesajı gösterin; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Tüm Eklerle Yanıtla (Hepsi) posta görüşmesinde; Birçok E-postayı aynı anda yanıtlayın; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Otomatik Tarih ve Saat Ekle ...
  • Ek Araçları: Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Otomatik Kaydet ... Hızlı rapor, Seçilen Postaları Say, Yinelenen Postaları ve Kişileri Kaldır ...
  • 100'den fazla gelişmiş özellik problemlerinin çoğunu çöz Outlook 2010-2019 ve 365'te. Tam özellikleri 60 günlük ücretsiz deneme.

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

doc yinelenen takvim öğelerini kaldır 1

3. tık Araçlar > Referanslar etkinleştirmek Referanslar - 1. Proje diyalog, tik Microsoft Word 16.0 Nesne Kitaplığı onay kutusu. Tıklayın OK.

 doc yinelenen takvim öğelerini kaldır 1

doc yinelenen takvim öğelerini kaldır 1

4-1. İmleci kodun içinde tutun ve F5 anahtar veya tıklama koşmak düğmesine basarsanız, resim içermeyen e-posta hemen Word aracılığıyla yazdırılır. Ancak bilgisayarınızda yazıcı yoksa lütfen 4. Adımı uygulayın.

4-2. Bilgisayarınızda yazıcı olmadığında, düğmesine bastıktan sonra F5 anahtar veya tıklama koşmak düğmesini tıkladığınızda, PDF dosyasını yerleştirmek için bir klasör seçmek ve PDF dosyasını adlandırmak için bir iletişim kutusu açılır. Tıklamak İndirim.

 doc yinelenen takvim öğelerini kaldır 1

Artık e-posta, resimsiz bir PDF olarak dışa aktarıldı. PDF dosyasını açın ve seçmek için sağ tıklayın Print e-postayı yazdırmak için.

doc yinelenen takvim öğelerini kaldır 1

doc yinelenen takvim öğelerini kaldır 1

Bahşiş: Seçili e-postaları resimler, başlıklar, gövdeler, Ccs ile PDF (veya Word, CSV, Excel, Txt, HTML dosyaları) olarak toplu olarak kaydetmek istiyorsanız, Toplu Kaydet özelliği Outlook için Kutools sadece 3 adıma ihtiyaç duyan size yardımcı olabilir.

1. E-postaları seçin.

2. tık Kutools > Toplu Kaydet.

doc yinelenen takvim öğelerini kaldır 1

3. Bir konum seçin ve istediğiniz dosya biçimini/biçimlerini kontrol edin, Tamam'a tıklayın.

doc yinelenen takvim öğelerini kaldır 1

doc yinelenen takvim öğelerini kaldır 1

Kutools for Outlook'un 30 günlük ücretsiz deneme sürümünü şimdi edinin.


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0  Karakterler
Önerilen Konumlar