Artikel ini ditulis oleh Sean Tsai, seorang ahli data warehousing dan teman baik How-To Geek
Pernahkah Anda ingin mencetak setiap lampiran yang Anda terima di kotak surel Outlook Anda? Katakanlah Anda berlangganan layanan faks ke email PDF gratis dan Anda ingin mereka dicetak secara otomatis seperti mesin faks kuno.
Berikut ini adalah cara cepat untuk mencapai itu jika Anda merasa nyaman dengan sedikit VB (makro) pemrograman.
Apa yang kami tunjukkan di sini adalah membuat aturan di Outlook dan memindahkan email faks yang masuk ke subfolder terpisah. Dengan menggunakan kode VB kami membuat makro bagi Anda untuk menjalankan pekerjaan cetak terhadap setiap email dalam subfolder itu sehingga Anda tidak perlu membuka email dan mencetak lampiran satu per satu.
Langkah 1
Buat subfolder bernama "Batch Prints" di bawah "Mailbox - YourName" di Outlook.
Langkah 2
Buat aturan (dari menu Tools / Rules and Alerts) di Outlook yang terlihat seperti ini:
Tempatkan alamat email dari vendor faks Anda di bidang "[email protected]". Di baris subjek, tempatkan teks persisten yang dikirim dari vendor faks setiap kali (jangan masukkan teks yang akan diubah secara berkala). 3rd field "Batch Prints" adalah subfolder yang baru Anda buat di langkah pertama.
Langkah 3
Buat makro VB. Pertama memunculkan editor VB dengan pergi ke Tools / Makro / Visual Basic Editor. Anda harus melihat editor VB seperti ini:
Langkah 4
Dari jendela Project sisi kiri, klik kanan pada item Project1 dan masukkan modul bernama Module1:
Langkah 5
Setelah Module1 dibuat, salin kode di bawah ini ke jendela di sisi kanan seperti yang ditunjukkan pada butir # 3.
Public Sub PrintAttachments () Dim Inbox Sebagai MAPIFolder Dim Item Sebagai MailItem Dim Atmt Sebagai Attachment Dim FileName Sebagai String Dim i As Integer Set Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) Untuk Setiap Item Di Inbox.Items Untuk Setiap Atmt Dalam Item. Semua lampiran pertama kali disimpan di folder temp C: \ Temp. Pastikan untuk membuat folder ini. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName 'harap ubah folder program sesuai jika Acrobat Reader tidak diinstal pada drive C: Shell "" "C: \ Program Files \ Adobe \ Reader 8.0 \ Pembaca \ acrord32.exe "" / h / p "" "+ FileName +" "" ", vbHide Next Item. Hapus 'hapus baris ini jika Anda tidak ingin email dihapus secara otomatis Set Inbox Berikutnya = Tidak Ada Akhir Sub Perhatikan bahwa Anda mungkin perlu mengubah baris kode yang memanggil Acrobat agar cocok dengan jalur di sistem Anda.
Langkah 6
Sekarang pengaturan selesai. Semua email dari vendor fax Anda akan dipindahkan ke "Batch Prints" Anda ketika mereka masuk. Harap dicatat, dalam contoh, kami mengharapkan semua lampiran dalam format PDF sehingga kami menggunakan Acrobat acrord32.exe untuk mencetak setiap lampiran.
Menggunakan Makro
Sekarang, ketika Anda ingin mencetak semua lampiran, cukup pergi ke makro dan jalankan PrintAttachments makro dan semua lampiran akan dicetak secara berurutan. Email akan dihapus dan dipindahkan ke tempat sampah setelah dicetak.
Catatan: hasil cetak dirutekan ke printer default Anda sehingga Anda harus memastikan driver printer yang valid sudah diatur dan dipilih.
Semoga ini bermanfaat!