Skip to main content

Outlook'ta bir e-postadan veya seçili e-postalardan yalnızca ekleri nasıl yazdırabilirsiniz?

Author: Sun Last Modified: 2025-06-10

Outlook'ta e-postaları yazdırabilirsiniz, ancak Outlook'ta yalnızca bir e-postadan veya seçili e-postalardan ekleri yazdırdınız mı? Bu makalede, bu görevi çözmek için ipuçlarını tanıtacağım.

Hızlı Yazdırma ile yalnızca bir e-postadan ekleri yazdırma

VBA ile seçili e-postalardan yalnızca ekleri yazdırma


Hızlı Yazdırma ile yalnızca bir e-postadan ekleri yazdırma

E-posta içeriği olmadan yalnızca ekleri yazdırmak için Hızlı Yazdırma işlevini kullanabilirsiniz.

1. İleti penceresinde, yazdırmak istediğiniz eke sağ tıklayın ve bağlam menüsünden "Hızlı Yazdır" seçeneğini seçin.
doc print attachment 1

2. Ardından "Kaydet" > "Kaydet" düğmesine tıklayarak ek dosyasını bir konuma kaydedin.
doc print attachment 2
doc print attachment 3

3. Şimdi ek dosyasını yerleştirdiğiniz konuma gidin ve dosyayı açarak normal şekilde yazdırın.


VBA ile seçili e-postalardan yalnızca ekleri yazdırma

Seçili e-postalardaki ekleri yazdırmak istiyorsanız VBA kodu kullanabilirsiniz.

1. Eklerini yazdırmak istediğiniz e-postaları seçin ve "Alt" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini etkinleştirin.

2. "Proje1" bölmesinden "ThisOutlookSession" öğesine çift tıklayın, aşağıdaki kodu betiğe kopyalayıp yapıştırın.

VBA: Seçili e-postalardan ekleri yazdırma

Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
    xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count = 0 Then Exit Sub
        Set xAttachments = xMailItem.Attachments
        For Each xAttachment In xAttachments
            xFilePath = xTmpFldPath & "\" & xAttachment.FileName
            xAttachment.SaveAsFile (xFilePath)
            Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
            xTempFolderItem.InvokeVerbEx ("print")
        Next
    End If
Next

'If xFSO.FolderExists(xTmpFldPath) Then
'    xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub

doc print attachment 4

3. Ardından "Araçlar" > "Referanslar" seçeneğine tıklayın ve "Referanslar" iletişim kutusunda "Microsoft Scripting Runtime" onay kutusunu işaretleyin.
doc print attachment 5   doc print attachment 6

4. "Tamam" düğmesine tıklayın ve ardından tüm seçili e-postalardaki ekleri toplu olarak yazdırmak için "F5" tuşuna basın.

Not: Ek resim ise, önce bir "Resimleri Yazdır" iletişim kutusu açılacaktır, "Yazdır" seçeneğine tıklayarak "Yazdırma Çıktısını Farklı Kaydet" iletişim kutusuna gidin.
doc print attachment 7

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.
doc ai email handle

Bu özellik şunları destekler:

  • Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
  • Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
  • Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
  • Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
  • Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
  • Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

  • Akıllı e-posta yanıtları
  • Optimize edilmiş içerik
  • Anahtar kelimeye dayalı taslaklar
  • Akıllı içerik genişletme
  • E-posta özetleme
  • Çok dilli çeviri

En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın


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 features1 kutools for outlook features2