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

Outlook'ta bir / birden çok e-postadaki tüm ekleri nasıl yazdırabilirim?

Bildiğiniz gibi, yalnızca üstbilgi, gövde gibi e-posta içeriğini, fileto > Print Microsoft Outlook'ta, ancak ekleri yazdırmayın. Burada, seçilen bir e-postadaki tüm eklerin Microsoft Outlook'ta nasıl kolayca yazdırılacağını göstereceğiz.


Tek bir e-posta iletisindeki tüm ekleri tek tek yazdırın

Microsoft Outlook bize sağlar Hızlı Yazdır bir e-posta mesajındaki ekleri tek tek yazdırmanıza yardımcı olabilecek özellik.

1. Eklerini daha sonra yazdıracağınız e-posta mesajını seçin.

2. Bu e-postadaki bir eke tıklayın.

3. Tıkla Hızlı Yazdır düğmesi İşlemler üzerinde grup Ekler sekmesi.

Not: Ek Araçları e-postalardaki ekleri tıklayana kadar etkinleştirilmeyecek.

4. Bir Posta Eki Açılıyor iletişim kutusu çıkıyor ve lütfen Açılış düğmesine basın.

Lütfen bu adımın seçilen eki açacağını ve bu seçili eki aynı anda yazdıracağını unutmayın.

Bu e-postadaki diğer ekleri yazdırmak için lütfen Adım 2 ila Adım 4'ü tekrarlayın.

Outlook'ta birden çok e-postadaki tüm ekleri hızla kaydedin / dışa aktarın

Normalde bir e-postadaki ekleri kaydedebiliriz. Ek Araçları ve uygulamak Tüm Ekleri Kaydet Outlook'taki özellik. Ancak, ekleri birden çok e-postadan veya Outlook'taki tüm posta klasöründen kaydediyorsanız ne olur? Outlook için Kutools'u deneyin Tümünü kaydet (Ekler) özelliği.


ekleri birden çok e-postaya kaydet kto9

Tüm ekleri tek bir e-posta mesajında ​​toplu olarak yazdırın

Bir e-posta mesajında ​​çok sayıda ek varsa, bunları tek tek yazdırmak zaman alacaktır. Ve aşağıdaki yöntem, seçilen bir e-posta mesajındaki tüm ekleri kolayca toplu yazdırma işleminde size yol gösterecektir.

1. Eklerini daha sonra yazdıracağınız e-posta mesajını seçin.

2. Outlook 2010 veya sonraki sürümlerde, lütfen fileto > Print > Yazdırma Seçenekleri. Aşağıdaki ekran görüntüsüne bakın:

3. Yazdır iletişim kutusunda, lütfen Ekli dosyaları yazdırın. Ekler yalnızca varsayılan yazıcıya yazdırılır seçeneği Baskı seçenekleri Bölüm.

4. Tıkla Print düğmesine basın.

5. Posta Ekini Açma iletişim kutusunu açarken, lütfen Açılış devam etmek için düğmesine basın. (not: Bu iletişim kutusu, her ek için ayrı olarak açılacaktır.)

Şimdi bu seçilen e-posta mesajındaki tüm ekler bir kerede yazdırılacaktır.


Birden çok seçili e-postadaki tüm ekleri ve resimleri toplu olarak yazdırın

Outlook'ta ileti gövdesindeki tüm resimlerin yanı sıra birden çok e-postadaki tüm ekleri yazdırmak için, bir VBA kodu uygulamak için lütfen aşağıdaki adımları izleyin.

1. Posta listesinde lütfen bekleyin Ctrl or vardiya Eklerini yazdıracağınız birden çok e-postayı seçmek için tuşlar.

2. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için anahtarları birlikte kullanın.

3. Uygulamalar için Microsoft Visual Basic penceresinde, Tools > Referanslar. Ve sonra kontrol edin Microsoft Komut Dosyası Çalışma Zamanı seçeneği aşağıda gösterildiği gibidir. Bittiğinde, tıklayın OK.

4. tıklayın Ekle > modülve ardından yeni modül penceresine VBA kodunun altına yapıştırın.

VBA: Tüm ekleri birden çok Outlook e-postasında yazdırın

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/03
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        xFilePath = xTempFldPath & "\" & xAttachment.FileName
        xAttachment.SaveAsFile (xFilePath)
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

5. Basın F5 anahtarı veya tıklayın koşmak Bu VBA kodunu çalıştırmak için düğme. Şimdi seçilen e-postalardaki tüm eklerin ve mesaj gövdesindeki resimlerin yazdırıldığını göreceksiniz.

Not:

  • Her görüntü, yazdırma onayınızı istemek için bir açılır iletişim kutusu açacaktır. Diğer dosya türleri doğrudan yazdırılırken.
  • Bir e-posta imzasında resimler varsa, bunlar da açılır iletişim kutuları açar.
  • Eğer alırsanız Bu projedeki makrolar devre dışı hata, lütfen bu öğreticiyi kontrol edin: Outlook'ta Makrolar Nasıl Etkinleştirilir ve Devre Dışı Bırakılır?

Gövdedeki resimler hariç, seçilen birden çok e-postadaki tüm ekleri toplu olarak yazdırın

Yalnızca birden çok e-postadaki ekleri, ancak Outlook'ta ileti gövdesindeki resimleri yazdırmak için, lütfen bir VBA kodu uygulamak için aşağıdaki adımları izleyin.

1. Posta listesinde lütfen bekleyin Ctrl or vardiya Eklerini yazdıracağınız birden çok e-postayı seçmek için tuşlar.

2. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için anahtarları birlikte kullanın.

3. Uygulamalar için Microsoft Visual Basic penceresinde, Tools > Referanslar. Ve sonra kontrol edin Microsoft Komut Dosyası Çalışma Zamanı seçeneği aşağıda gösterildiği gibidir. Bittiğinde, tıklayın OK.

4. tıklayın Ekle > modülve ardından yeni modül penceresine VBA kodunun altına yapıştırın.

VBA: Tüm ekleri birden çok Outlook e-postasında yazdırın

Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

5. Basın F5 anahtarı veya tıklayın koşmak Bu VBA kodunu çalıştırmak için düğme. Şimdi, seçilen e-postalardaki tüm eklerin yazdırıldığını göreceksiniz.

Not:

  • Eklenen her görüntü, sizden yazdırma onayını istemek için bir açılır iletişim kutusu açacaktır. Diğer dosya türleri doğrudan yazdırılırken.
  • Mesaj gövdesindeki resimler yazdırılmayacaktır.
  • Eğer alırsanız Bu projedeki makrolar devre dışı hata, lütfen bu öğreticiyi kontrol edin: Outlook'ta Makrolar Nasıl Etkinleştirilir ve Devre Dışı Bırakılır?

 


Demo: Outlook e-postasındaki eklerden birini veya tümünü yazdırın


Bahşiş: Bu videoda, Kutools sekme tarafından eklendi Outlook için Kutools. İhtiyacınız olursa lütfen tıklayın okuyun 60 günlük ücretsiz deneme sürümüne sahip olmak için sınırlama olmaksızın!


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 (23)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu çok kullanışlı, ancak Office 365'te bana yardımcı olmuyor mu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kısmı kendim çözebilirim - anlamaya çalıştığım şey, buna rağmen eklerin neden yazdırılmadığı. Her ek için "açmak" veya "kaydetmek" isteyip istemediğimi soran bir hata mesajı çıkıyor. Herhangi bir seçeneğin seçilmesi tam olarak bu sonuçları verir - başka bir deyişle, hala yazdırma yok, yalnızca açma veya kaydetme. 20 e-postadan 4 ek var. Gerçekten sadece yazdırabilmek için 80 belge açmak zorunda kalmak istemiyorum. Kendi bilgisayarımı ve satın alıp parasını ödediğim işletim sistemini kullanabilmem için silinmesi gereken bir "beni kendimden kurtar" güvenlik ayarı olduğu açık. Bilmem gereken bu.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kendi kendine "açılmak" için e-postaya çift tıklayın. Eklerden birine sağ tıklayın ve "tümünü seç"e ve ardından "hızlı yazdır"a tıklayın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Leah'a katılıyorum, bu işe yaramıyor. Yalnızca e-postanın ana gövdesini ve ilk eki yazdırır, hepsini değil. Yukarıda gösterilen "tümünü seç" seçeneklerini kullanarak hepsini nasıl yazdıracağınıza ilişkin talimatlara ihtiyacınız var.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tüm ekleri 1 e-postada birlikte yazdırmak istiyorsanız, işte yapmanız gerekenler. önce masaüstünüzde bir klasör oluşturun....benimkine "yazdır" adını verdim. ekleri olan e-postaya gidin....tüm ekleri vurgulayın, sağ tıklayın, tüm ekleri yazdırma klasörüne kaydedin. Yazdırma klasörünü açın.....hepsini vurgulayın.....sağ tıklayın.....yazdır.



şimdi 200 e-postadaki tüm ekleri her birini açmadan ve yazdırmadan nasıl yazdıracağımı çözebilseydim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kutools for Outlook'un Tümünü Ayır (Ekler) özelliği, tüm ekleri birkaç tıklamayla birden çok e-postadan indirmenize yardımcı olabilir! https://www.extendoffice.com/product/kutools-for-outlook/outlook-detach-attachments.html
Bu yorum sitedeki moderatör tarafından en aza indirildi
bir pdf aynı ada sahipse, makro yalnızca bir pdf yazdırır, pdf adını değiştirmek için kodu nasıl değiştirebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodu sözdizimi hatası veriyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
9. satırda, "Sonraki Hata Devam Ediyor" un kaldırılması benim için çalıştı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
evet bu sadece benim için de işe yaradı. Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
teşekkür ederim 
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, birkaç haftadır bu kısayolu kullanıyorum, birden fazla e-postadaki tüm ekleri aynı anda yazdırıyorum ve son zamanlarda Nilanka'nın dediği gibi çalışmakta olan 9. satırı kaldırmak zorunda kaldım, ancak bu artık çalışmıyor. Bu projedeki makroların devre dışı bırakıldığını söyleyen bir uyarı kutusu alıyorum.....vb.. bu işi daha önce olduğu gibi yapmak için bir çözümü olan varsa, lütfen lmk, çünkü yaklaşık 60 tane seçiyorum. tüm ekleri içeren e-postalar yazdırılacak. teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herkese merhaba, 2022/08/03 tarihinde öğreticide VBA kodunu güncelledik. Hala tüm ekleri yazdırmanız gerekiyorsa, lütfen yeni kodu kontrol edin. 😊
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu dün benim için iyi çalıştı ama şimdi 'bu projedeki makrolar devre dışı' diyor Bunları nasıl etkinleştireceğinize dair herhangi bir tavsiyeniz var mı? 
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Vielen, vielen Dank dafür! Şu anda en iyi şekilde tanımlanabilecek bir şey var. En önemli - en iyi yorumlar - daha önce "Dim xAttachment As Outlook.Attachment On Error Resume Next" entfernen, Code einfandfrei durch.
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba, ich möchte nur den Anhang der Mails von der angegebenen Adresse giden, wie kann ich das machen, danke
Bu yorum sitedeki moderatör tarafından en aza indirildi
Microsoft 365 kullanıyorum ve bu 9. satırı sildikten sonra işe yaradı. Teşekkürler! Bu benim için biraz zaman kazandırdı.
5 üzerinden 5 olarak derecelendirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili tüm,

VBA'yı denedim ve kod çalışıyor ancak posta imzasından görüntüleri yazdırmak için ekranda birçok açılır pencere açılıyor (görünüşe göre bu bir ek olarak kabul ediliyor). Nasıl çözüleceğini bilen var mı?

S.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Baskı resimlerinin açılır pencereleri açacağı için üzgünüm. Tüm görüntüleri indirmek için her birini onaylamanız gerekecek. Görüntüleri yazdırmanız gerekmiyorsa lütfen İptal'e tıklayın.

Amanda
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir mesajın gövdesindeki resimleri yazdırmak istemiyorsanız, lütfen aşağıdaki kodu kullanın:
Sub PrintAllAttachmentsInMultipleMails()
  'Update by ExtendOffice 2022/08/05
  Dim xShellApp As Object
  Dim xFSO As Scripting.FileSystemObject
  Dim xItem As Object
  Dim xTempFldPath, xFilePath As String
  Dim xSelItems As Outlook.Selection
  Dim xMailItem As Outlook.MailItem
  Dim xAttachments As Outlook.Attachments
  Dim xAttachment As Outlook.Attachment
  Dim xFile As File
  On Error Resume Next
  Set xFSO = New Scripting.FileSystemObject
  xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
  If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
    xFSO.CreateFolder (xTempFldPath)
  End If
  Set xSelItems = Outlook.ActiveExplorer.Selection
  Set xShellApp = CreateObject("Shell.Application")
  For Each xItem In xSelItems
    If xItem.Class = OlObjectClass.olMail Then
      Set xMailItem = xItem
      Set xAttachments = xMailItem.Attachments
      For Each xAttachment In xAttachments
        If IsEmbeddedAttachment(xAttachment) = False Then
          xFilePath = xTempFldPath & "\" & xAttachment.FileName
          xAttachment.SaveAsFile (xFilePath)
          Debug.Print xFilePath
        End If
      Next
    End If
  Next
  For Each xFile In xFSO.GetFolder(xTempFldPath).Files
    VBA.DoEvents
    Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
  Next
  Set xSelItems = Nothing
  Set xShellApp = Nothing
  Set xFSO = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Amanda,

Kod için teşekkürler. İşe yaradı!

S.
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

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır