Outlook'ta yalnızca bir e-postadan veya seçilen e-postalardan ekleri nasıl yazdırabilirim?
Outlook'ta e-postaları yazdırabilirsiniz, ancak ekleri yalnızca bir e-postadan mı yoksa Outlook'ta seçilen e-postalardan mı yazdırdınız? Bu yazıda, bu işi çözmenin püf noktalarını tanıtacağım.
Quick Print ile yalnızca bir e-postadaki ekleri yazdırın
Yalnızca VBA ile seçilen e-postalardaki ekleri yazdırın
Quick Print ile yalnızca bir e-postadaki ekleri yazdırın
Ekleri yalnızca e-posta gövdesi olmadan yazdırmak için Hızlı Yazdırma işlevini kullanabilirsiniz.
1. Mesaj penceresinde, yazdırmak istediğiniz eke sağ tıklayın, seçin Hızlı Yazdır bağlam menüsünden.
2. Sonra tıklayın İndirim > İndirim ek dosyasını bir konuma kaydetmek için.
3. Şimdi ek dosyasını yerleştirdiğiniz konuma gidin ve her zamanki gibi yazdırmak için dosyayı açın.
Yalnızca VBA ile seçilen e-postalardaki ekleri yazdırın
Ekleri seçilen e-postalardan yazdırmak istiyorsanız, VBA kodunu kullanabilirsiniz.
1. Ekleri yazdırmak istediğiniz e-postaları seçin, Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. Çift tıklama Bu OutlookOturumu itibaren Project1 bölmesinde, aşağıdaki kodu kopyalayıp komut dosyasına yapıştırın.
VBA: Seçili e-postalardan ekleri yazdırın
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. Sonra tıklayın Tools > ReferanslarVe içinde Referanslar iletişim, kontrol et Microsoft Komut Dosyası Çalışma Zamanı onay kutusunu işaretleyin.
4. tık OKTuşuna basın ve ardından tuşuna basın. F5 Seçili e-postalardaki tüm ekleri toplu olarak yazdırmak için tuşuna basın.
not: Ek resim ise, bir Resimleri Yazdır önce iletişim kutusu, tıklayın Print gitmek için Baskı Çıktısını Farklı Kaydet iletişim.
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.