Bagaimana cara mencetak semua lampiran dalam satu / beberapa email di Outlook?
Seperti yang Anda ketahui, itu hanya akan mencetak konten email seperti header, body ketika Anda mengklik File > Mencetak di Microsoft Outlook, tetapi tidak mencetak lampiran. Di sini kami akan menunjukkan kepada Anda cara mencetak semua lampiran dalam email yang dipilih dengan mudah di Microsoft Outlook.
- Cetak semua lampiran dalam satu pesan email satu per satu
- Batch mencetak semua lampiran dalam satu pesan email
- Cetak batch semua lampiran dan gambar dalam beberapa email yang dipilih
- Cetak batch semua lampiran dalam beberapa email yang dipilih kecuali gambar di badan
Cetak semua lampiran dalam satu pesan email satu per satu
Microsoft Outlook memberi kami Cetak cepat fitur, yang dapat membantu Anda mencetak lampiran dalam pesan email satu per satu.
1. Pilih pesan email yang lampirannya akan Anda cetak nanti.
2. Klik satu lampiran di email ini.
3. klik Cetak cepat tombol di tindakan kelompok di lampiran Tab.
Catatan: Alat Lampiran tidak akan diaktifkan sampai Anda mengklik lampiran di email.
4. Dialog Opening Mail Attachment keluar, dan silahkan klik Open .
Harap dicatat bahwa langkah ini akan membuka lampiran yang dipilih, dan mencetak lampiran yang dipilih ini pada waktu yang bersamaan.
Untuk mencetak lampiran lain di email ini, ulangi Langkah 2 hingga Langkah 4.
Cepat simpan / ekspor semua lampiran dari beberapa email di Outlook
Biasanya kita dapat menyimpan lampiran dari satu email dengan mengaktifkan Alat Lampiran dan menerapkan Simpan Semua Lampiran fitur di Outlook. Tapi, bagaimana jika menyimpan lampiran dari beberapa email, atau dari seluruh folder email di Outlook? Coba Kutools for Outlook's Simpan semua Fitur (Lampiran).
Batch mencetak semua lampiran dalam satu pesan email
Jika ada banyak lampiran dalam satu pesan email, akan memakan waktu lama untuk mencetaknya satu per satu. Dan metode berikut akan memandu Anda melalui pencetakan batch semua lampiran dalam pesan email yang dipilih dengan mudah.
1. Pilih pesan email yang lampirannya akan Anda cetak nanti.
2. Di Outlook 2010 atau versi yang lebih baru, klik File > Mencetak > Opsi Cetak. Lihat screenshot berikut:
3. Di kotak dialog Cetak, silakan centang Cetak file terlampir. Lampiran hanya akan dicetak ke printer default pilihan dalam Opsi cetak bagian.
4. klik Mencetak .
5. Pada kotak dialog Opening Mail Attachment yang muncul, klik Open tombol untuk melanjutkan. (Note: Kotak dialog ini akan muncul untuk setiap lampiran secara terpisah.)
Sekarang semua lampiran dalam pesan email yang dipilih ini akan dicetak sekaligus.
Cetak batch semua lampiran dan gambar dalam beberapa email yang dipilih
Untuk mencetak semua lampiran di beberapa email serta semua gambar di badan pesan di Outlook, ikuti langkah-langkah di bawah ini untuk menerapkan kode VBA.
1. Di milis, harap tunggu Ctrl or perubahan kunci untuk memilih beberapa email yang lampirannya akan Anda cetak.
2. tekan lain + F11 bersama untuk membuka jendela Microsoft Visual Basic for Applications.
3. Di jendela Microsoft Visual Basic for Applications, klik Ya Tools > Referensi. Dan kemudian periksa Runtime Microsoft Scripting pilihan seperti yang ditunjukkan di bawah ini. Setelah selesai, klik OK.
4. Klik Menyisipkan > Modul, lalu tempel kode VBA di bawah ini ke jendela modul baru.
VBA: Cetak semua lampiran di beberapa email Outlook
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. tekan F5 atau klik Run tombol untuk menjalankan kode VBA ini. Sekarang Anda akan melihat bahwa semua lampiran di email yang dipilih dan gambar di badan pesan dicetak.
Catatan:
- Setiap gambar akan memunculkan kotak dialog pop-up untuk meminta konfirmasi pencetakan. Sedangkan jenis file lainnya akan langsung dicetak.
- Jika ada gambar dalam tanda tangan email, mereka juga akan memunculkan kotak dialog pop-up.
- Jika kamu dapatkan Makro dalam proyek ini dinonaktifkan kesalahan, silakan periksa tutorial ini: Bagaimana Cara Mengaktifkan Dan Menonaktifkan Macro Di Outlook?
Cetak batch semua lampiran dalam beberapa email yang dipilih kecuali gambar di badan
Untuk hanya mencetak lampiran di beberapa email tetapi gambar di badan pesan di Outlook, ikuti langkah-langkah di bawah ini untuk menerapkan kode VBA.
1. Di milis, harap tunggu Ctrl or perubahan kunci untuk memilih beberapa email yang lampirannya akan Anda cetak.
2. tekan lain + F11 bersama untuk membuka jendela Microsoft Visual Basic for Applications.
3. Di jendela Microsoft Visual Basic for Applications, klik Ya Tools > Referensi. Dan kemudian periksa Runtime Microsoft Scripting pilihan seperti yang ditunjukkan di bawah ini. Setelah selesai, klik OK.
4. Klik Menyisipkan > Modul, lalu tempel kode VBA di bawah ini ke jendela modul baru.
VBA: Cetak semua lampiran di beberapa email Outlook
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. tekan F5 atau klik Run tombol untuk menjalankan kode VBA ini. Sekarang Anda akan melihat bahwa semua lampiran dalam email yang dipilih dicetak.
Catatan:
- Setiap gambar terlampir akan memunculkan kotak dialog pop-up untuk meminta Anda konfirmasi pencetakan. Sedangkan jenis file lainnya akan langsung dicetak.
- Gambar di badan pesan tidak akan dicetak.
- Jika kamu dapatkan Makro dalam proyek ini dinonaktifkan kesalahan, silakan periksa tutorial ini: Bagaimana Cara Mengaktifkan Dan Menonaktifkan Macro Di Outlook?
Demo: cetak satu atau semua lampiran di email Outlook
jenis: Dalam video ini, Kutools tab ditambahkan oleh Kutools untuk Outlook. Jika Anda membutuhkannya, silakan klik di sini untuk mendapatkan uji coba gratis 60 hari tanpa batasan!
Alat Produktivitas Kantor Terbaik
Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda
🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...
📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP) / Jadwal Kirim Email / Auto CC/BCC Sesuai Aturan Saat Mengirim Email / Penerusan Otomatis (Aturan Lanjutan) / Tambah Salam Otomatis / Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...
📨 email Management: Mengingat Email dengan Mudah / Blokir Email Penipuan berdasarkan Subjek dan Lainnya / Hapus Email Duplikat / Pencarian / Konsolidasi Folder ...
📁 Lampiran Pro: Penyimpanan Batch / Pelepasan Batch / Kompres Batch / Penyimpanan otomatis / Lepaskan Otomatis / Kompres Otomatis ...
🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren / Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab / Minimalkan Outlook Daripada Menutup ...
👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk / Email Anti-Phishing / 🕘Tampilkan Zona Waktu Pengirim ...
👩🏼🤝👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih / Bagi Grup Kontak menjadi Grup Individual / Hapus Pengingat Ulang Tahun ...
Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.