3Jul
Artikel ini ditulis oleh Sean Tsai, 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 layanan email faks gratis ke 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 tunjukkan di sini adalah membuat aturan di Outlook dan memindahkan email faks masuk ke dalam subfolder terpisah. Dengan menggunakan kode VB kami membuat makro agar Anda bisa 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 "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 saat( jangan memasukkan teks yang akan diubah secara berkala).Bidang ke-3 "Batch Prints" adalah subfolder yang baru saja Anda buat pada langkah pertama.
Langkah 3
Buat makro VB.Pertama buka editor VB dengan membuka Tools /Macro/ Visual Basic Editor. Anda harus melihat editor VB terlihat seperti ini:
Langkah 4
Dari jendela Project sebelah kiri, klik kanan pada item Project1 dan masukkan modul bernama Module1:
Langkah 5
Setelah Module1 dibuat, salin kode di bawah ini ke dalamjendela di sisi kanan seperti ditunjukkan pada peluru # 3.
Public Sub PrintAttachments() Dim Inbox Sebagai MAPIFolder Dim Item Sebagai MailItem Dim Atmt Sebagai Attachment Dim FileName As 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 Di Item. Attachment 'semua lampiran pertama kali disimpan dalam folder temp C: \ Temp. Pastikan untuk membuat folder ini. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName 'tolong ubah folder program sesuai jika Acrobat Reader tidak diinstal pada drive C: Shell "" "C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe" "/ h /p "" "+ FileName +" "" ", vbHide Next Item. Delete 'hapus baris ini jika Anda tidak ingin email dihapus secara otomatis Next Set Inbox = Nothing End SubPerhatikan bahwa Anda mungkin perlu mengubah bariskode yang memanggil Acrobat untuk mencocokkan path pada sistem Anda.
Langkah 6
Sekarang setup selesai. Semua email dari vendor faks Anda akan dipindahkan ke "Batch Prints" Anda saat masuk. Harap dicatat, pada contohnya, kami mengharapkan semua lampiran dalam format PDF sehingga kami menggunakan Acrobat acrord32.exe untuk mencetak setiap lampiran.
Menggunakan Macro
Sekarang, bila Anda ingin mencetak semua lampiran, cukup masuk 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 diarahkan ke printer default Anda sehingga Anda harus memastikan driver printer yang valid telah diatur dan dipilih.
Semoga ini berguna!
