Bagaimana cara mencetak lampiran dari satu email atau email yang dipilih di Outlook?
Di Outlook, Anda dapat mencetak email, tetapi apakah Anda mencetak lampiran hanya dari satu email atau email yang dipilih di Outlook? Pada artikel ini, saya memperkenalkan trik menyelesaikan pekerjaan ini.
Hanya cetak lampiran dari satu email dengan Quick Print
Hanya cetak lampiran dari email yang dipilih dengan VBA
Hanya cetak lampiran dari satu email dengan Quick Print
Untuk mencetak lampiran saja tanpa badan email, Anda dapat menggunakan fungsi Cetak Cepat.
1. Di jendela pesan, klik kanan pada lampiran yang ingin Anda cetak, pilih Cetak cepat dari menu konteks
2. Lalu klik Save > Save untuk menyimpan file lampiran di suatu lokasi.
3. Sekarang pergi ke lokasi Anda meletakkan file lampiran, dan buka file tersebut untuk dicetak seperti biasa.
Hanya cetak lampiran dari email yang dipilih dengan VBA
Jika Anda ingin mencetak lampiran dari email yang dipilih, Anda dapat menggunakan kode VBA.
1. Pilih email yang ingin Anda cetak lampirannya, tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik dua kali Sesi Pandangan ini dari Project1 panel, salin dan tempel kode di bawah ini ke skrip.
VBA: Cetak lampiran dari email yang dipilih
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. Lalu klik Tools > Referensi, dan di Referensi dialog, periksa Runtime Microsoft Scripting checkbox.
4. klik OK, Lalu tekan F5 kunci untuk mencetak semua lampiran di email yang dipilih secara massal.
Note: Jika lampirannya adalah gambar, maka akan muncul a Cetak Gambar dialog pertama, klik Mencetak untuk pergi ke Simpan Output Cetak As dialog.
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.
