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

Outlook’ta e-postaları yazdırabilirsiniz, ama hiç tek bir e-postanın ya da seçili e-postaların yalnızca eklerini yazdırmaya çalıştınız mı? Bu makalede, bu işlemi kolayca halletmenizi sağlayacak püf noktalarını paylaşıyorum.

Hızlı Yazdır ile tek bir e-postadan yalnızca ek(ler)i yazdırma

VBA ile seçili e-postalardan yalnızca ek(ler)i yazdırma

---

Hızlı Yazdır ile tek bir e-postadan yalnızca ek(ler)i yazdırma

Yalnızca ekleri, e-posta gövdesini yazdırmadan bastırmak için Hızlı Yazdır özelliğini kullanabilirsiniz.

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

2. Ardından «Kaydet» > «Kaydet» seçeneğine tıklayarak ek dosyayı istediğiniz bir konuma kaydedin.

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

---

VBA ile seçili e-postalardan yalnızca ek(ler)i yazdırma

Seçili e-postalardan ekleri yazdırmak istiyorsanız VBA kodunu kullanabilirsiniz.

1. Yazdırılacak ekleri içeren e-postaları seçin ve «Alt» + «F11» tuşlarına basarak «Microsoft Visual Basic for Applications» penceresini açın.

2. «Project1» bölmesinden «ThisOutlookSession» öğesine çift tıklayın ve 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

3. Ardından «Araçlar» > «Referanslar» seçeneğine tıklayıp açılan «Referanslar» iletişim kutusundan «Microsoft Scripting Runtime» onay kutusunu işaretleyin.
  

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

Not: Ek bir resim ise öncelikle «Resimleri Yazdır» iletişim kutusu açılır; «Yazdır» seçeneğine tıklayarak «Yazdırma Çıktısını Farklı Kaydet» iletişim kutusuna geçebilirsiniz.