Cetak Batch Lampiran PDF di Outlook
Artikel ini ditulis oleh Sean Tsai, seorang ahli pergudangan data dan teman baik How-To Geek
Pernahkah Anda ingin mencetak setiap lampiran yang Anda terima di kotak email Outlook Anda? Katakanlah Anda berlangganan faks gratis ke layanan email PDF dan Anda ingin mereka dicetak secara otomatis seperti mesin faks kuno.
Berikut adalah cara cepat untuk mencapainya jika Anda merasa nyaman dengan sedikit pemrograman VB (makro).
Apa yang kami tampilkan di sini adalah membuat aturan di Outlook dan memindahkan email faks yang masuk ke subfolder terpisah. Menggunakan kode VB kami membuat makro untuk Anda menjalankan pekerjaan cetak terhadap setiap email di subfolder sehingga Anda tidak perlu membuka email dan mencetak lampiran satu per satu.
Langkah 1
Buat subfolder bernama "Cetak Batch" di bawah "Kotak Pesan - NamaAnda" di Outlook.
Langkah 2
Buat aturan (dari menu Alat / Aturan dan Peringatan) di Outlook yang terlihat seperti ini:
Tempatkan alamat email dari vendor faks Anda di bidang “[email protected]”. Di baris subjek, letakkan teks persisten yang dikirim dari vendor faks setiap kali (jangan masukkan teks yang akan diubah secara berkala). 3rd bidang “Cetak Batch” adalah subfolder yang baru saja Anda buat pada langkah pertama.
Langkah 3
Buat makro VB. Pertama bawa editor VB dengan pergi ke Tools / Makro / Visual Basic Editor. Anda akan melihat editor VB terlihat 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 bullet # 3.
Public Sub PrintAttachments () Dim Inbox As MAPIFolder Dim Item As MailItem Dim Atmt Sebagai Lampiran Dim FileName As String Dim i Sebagai Integer Set Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folder.Item ("Batch Prints" ) Untuk Setiap Item Di Kotak Masuk. Item Untuk Setiap Atmt Dalam Item. Semua lampiran pertama kali disimpan dalam 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 +" "" ", vbSembunyikan Item Berikutnya. Hapus baris ini jika Anda tidak ingin email dihapus secara otomatis Berikutnya Set Kotak Masuk = Tidak Ada Sub Sub Perhatikan bahwa Anda mungkin perlu mengubah baris kode yang memanggil Acrobat agar sesuai dengan jalur di sistem Anda.
Langkah 6
Sekarang setup sudah selesai. Semua email dari vendor faks Anda akan dipindahkan ke "Cetak Batch" Anda ketika mereka masuk. Harap perhatikan, 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 buka makro dan jalankan makro PrintAttachments dan semua lampiran akan dicetak secara berurutan. Email akan dihapus dan dipindahkan ke tong sampah begitu sudah dicetak.
Catatan: hasil cetak dialihkan ke printer default Anda sehingga Anda harus memastikan driver printer yang valid sudah diatur dan dipilih.
Semoga ini bermanfaat!
