Outlook'ta tek/çoklu e-postalardaki tüm ekleri nasıl yazdırabiliriz?

4. Bir Posta Eki Açma iletişim kutusu çıkacak ve Lütfen Aç düğmesine tıklayın.

Lütfen unutmayın ki bu adım seçilen eki açacak ve aynı anda bu seçili eki yazdıracaktır.

Bu e-postadaki diğer ekleri yazdırmak için lütfen 2. Adım'dan 4. Adım'a kadar olan adımları tekrarlayın.

Outlook'ta birden fazla e-postadan tüm ekleri hızlıca kaydetme/dışa aktarma

Normalde bir e-postadan ekleri kaydetmek için Ek Araçlarını etkinleştirip Outlook'taki Tüm Ekleri Kaydet özelliğini kullanabiliriz. Peki ya birden fazla e-postadan veya Outlook'taki tüm posta klasöründen ekleri kaydetmek istersek? Kutools for Outlook'un Tümünü Kaydet (Ekler) özelliğini deneyin.

Kutools for Outlook'un ücretsiz sürümünü hemen deneyin, bu sürüm 100'den fazla özelliği içerir ve 70'ten fazla özellik ömür boyu ücretsizdir!

Tek bir e-posta mesajındaki tüm ekleri toplu olarak yazdırma

Eğer bir e-posta mesajında birçok ek varsa, bunları teker teker yazdırmak zaman alıcı olacaktır. Aşağıdaki yöntem ise size seçili bir e-posta mesajındaki tüm ekleri kolayca toplu olarak yazdırma yolunu gösterecektir.

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

2. Outlook 2010 veya daha yeni sürümlerde, lütfen Dosya > Yazdır > Yazdırma Seçenekleri'ne tıklayın. Aşağıdaki ekran görüntüsüne bakın:

3. Yazdırma iletişim kutusunda, lütfen Yazdırma seçenekleri bölümünde Ek dosyaları yazdır seçeneğini işaretleyin. Ekler yalnızca varsayılan yazıcıya yazdırılacaktır.

4. Yazdır düğmesine tıklayın.

5. Açılan Posta Eki Açma iletişim kutusunda, devam etmek için lütfen Aç düğmesine tıklayın. (Not: Bu iletişim kutusu her eke ayrı ayrı açılacaktır.)

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

Birden fazla seçili e-postadaki tüm ekleri ve resimleri toplu olarak yazdırma

Outlook'ta birden fazla e-postadaki tüm ekleri ve ileti gövdesindeki tüm resimleri yazdırmak için lütfen aşağıdaki adımları izleyerek bir VBA kodu uygulayın.

1. Posta listesinde, yazdırmak istediğiniz eklerin bulunduğu birden fazla e-postayı seçmek için Ctrl veya Shift tuşlarını basılı tutun.

2. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına birlikte basın.

3. Microsoft Visual Basic for Applications penceresinde Araçlar > Referanslar'a tıklayın. Ve ardından aşağıda gösterildiği gibi Microsoft Scripting Runtime seçeneğini işaretleyin. İşlem tamamlandığında Tamam'a tıklayın.

4. Ekle Insert > Module'e tıklayın ve ardından aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Birden fazla Outlook e-postasındaki tüm ekleri yazdırma

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. Bu VBA kodunu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın. Şimdi seçili e-postalardaki tüm eklerin ve ileti gövdesindeki resimlerin yazdırıldığını göreceksiniz.

Not:

• Her bir resim, yazdırma onayınızı istemek için bir açılır iletişim kutusu getirecektir. Diğer dosya türleri ise doğrudan yazdırılacaktır.
• Bir e-posta imzasında bulunan resimler de açılır iletişim kutuları getirecektir.
• Bu projedeki makrolar devre dışı bırakıldı hatası alırsanız, lütfen bu öğreticiye bakın: Outlook'ta Makroları Nasıl Etkinleştirip Devre Dışı Bırakabilirim?

Gövdedeki resimler hariç birden fazla seçili e-postadaki tüm ekleri toplu olarak yazdırma

Outlook'ta yalnızca birden fazla e-postadaki ekleri yazdırmak, ancak ileti gövdesindeki resimleri yazdırmamak için lütfen aşağıdaki adımları izleyerek bir VBA kodu uygulayın.

1. Posta listesinde, yazdırmak istediğiniz eklerin bulunduğu birden fazla e-postayı seçmek için Ctrl veya Shift tuşlarını basılı tutun.

2. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına birlikte basın.

3. Microsoft Visual Basic for Applications penceresinde Araçlar > Referanslar'a tıklayın. Ve ardından aşağıda gösterildiği gibi Microsoft Scripting Runtime seçeneğini işaretleyin. İşlem tamamlandığında Tamam'a tıklayın.

4. Ekle Insert > Module'e tıklayın ve ardından aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Birden fazla Outlook e-postasındaki tüm ekleri yazdırma

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. Bu VBA kodunu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın. Şimdi seçili e-postalardaki tüm eklerin yazdırıldığını göreceksiniz.

Not:

• Her bir ekli resim, yazdırma onayınızı istemek için bir açılır iletişim kutusu getirecektir. Diğer dosya türleri ise doğrudan yazdırılacaktır.
• İleti gövdesindeki resimler yazdırılmayacaktır.
• Bu projedeki makrolar devre dışı bırakıldı hatası alırsanız, lütfen bu öğreticiye bakın: Outlook'ta Makroları Nasıl Etkinleştirip Devre Dışı Bırakabilirim?

Demo: Bir Outlook e-postasındaki bir veya tüm ekleri yazdırma

---

En İyi Ofis Verimlilik Araçları

Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Başlattı!

Yepyeni Kutools for Outlook ÜCRETSİZ sürümünü70'ten fazla harika özellikle sonsuza dek kullanabilirsiniz! Şimdi indirmek için tıklayın!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisiyle e-postaları zahmetsizce yönetir; yanıtlama, özetleme, optimize etme, genişletme, çeviri ve e-posta oluşturma işlemlerini kolayca gerçekleştirir.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanla Gönder / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Dolandırıcılık E-postalarını Engelle / Yinelenen E-postaları Sil / Gelişmiş Arama / Klasörleri düzenle...

📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...

🌟 Arayüz Sihri: 😊Daha Fazla Güzel ve Havalı Emoji / Önemli e-postalar geldiğinde sizi uyarır / Outlook'u Kapatmak Yerine Simge Durumuna Küçült...

👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster...

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...

Kutools for Outlook'u tek tıkla anında etkinleştirin. Beklemeyin, hemen indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi Ücretsiz Sürümü İndir Profesyonel Sürümüne Yükselt