Batch Print PDF Attachments in Outlook
Artikel ini ditulis oleh Sean Tsai, ahli pergudangan data dan rakan baik How-To Geek
Pernahkah anda mahu mencetak setiap lampiran yang anda terima dalam kotak e-mel Outlook anda? Katakan anda melanggan faks percuma ke perkhidmatan e-mel PDF dan anda mahu mereka dicetak secara automatik seperti mesin faks lama.
Berikut adalah cara cepat untuk mencapai itu jika anda selesa dengan sedikit pengaturcaraan VB (makro).
Apa yang kami tunjukkan di sini adalah untuk mewujudkan peraturan di Outlook dan memindahkan e-mel faks yang masuk ke subfolder yang berasingan. Menggunakan kod VB kami membuat makro untuk anda menjalankan tugas cetak terhadap setiap e-mel dalam subfolder supaya anda tidak perlu membuka e-mel dan mencetak lampiran satu persatu.
Langkah 1
Buat subfolder bernama "Batch Prints" di bawah "Peti Mel - YourName" di Outlook.
Langkah 2
Buat peraturan (dari Alat / Kaedah dan Makluman menu) di Outlook yang kelihatan seperti ini:
Letakkan alamat e-mel dari penjual faks anda dalam bidang "[email protected]". Dalam baris subjek, letakkan teks yang berterusan yang dihantar dari penjual faks setiap kali (jangan masukkan teks yang akan diubah secara berkala). 3rd bidang "Batch Prints" adalah subfolder yang baru anda buat dalam langkah pertama.
Langkah 3
Buat makro VB. Mula-mula bawa editor VB dengan pergi ke Alat / Makro / Visual Basic Editor. Anda harus melihat editor VB kelihatan seperti ini:
Langkah 4
Dari tetingkap Projek sebelah kiri, klik kanan pada item Project1 dan masukkan modul bernama Module1:
Langkah 5
Sebaik sahaja Module1 dicipta, salin kod di bawah ke dalam tetingkap di sebelah kanan seperti yang ditunjukkan dalam peluru # 3.
Public Sub PrintAttachments () Dim Inbox Sebagai MAPIFolder Dim Item As MailItem Dim Atmt As Attachment Dim FileName As String Dim i As Inbox Set Integer = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Prints Batch" ) Untuk Setiap Item Dalam Inbox.Items Untuk Setiap Atmt In Item.Attachments 'semua lampiran pertama disimpan dalam folder temp C: \ Temp. Pastikan folder ini dibuat. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName 'sila tukar folder program sesuai jika Acrobat Reader tidak dipasang pada drive C: Shell "" "C: \ Program Files \ Reader \ acrord32.exe "" / h / p "" + + FileName + "" "", vbHide Next Item.Delete 'keluarkan baris ini jika anda tidak mahu e-mel itu akan dipadam secara automatik Seterusnya Peti Masuk = Perhatikan bahawa anda mungkin perlu mengubah barisan kod yang memanggil Acrobat untuk menyesuaikan laluan pada sistem anda.
Langkah 6
Sekarang persediaan selesai. Semua e-mel dari vendor faks anda akan dipindahkan ke "Batch Prints" anda apabila mereka masuk. Sila ambil perhatian, contohnya, kami menjangkakan semua lampiran dalam format PDF jadi kami menggunakan Acrobat acrord32.exe untuk mencetak setiap lampiran.
Menggunakan Makro
Kini, apabila anda hendak mencetak semua lampiran, hanya pergi ke makro dan jalankan PrintAttachments makro dan semua lampiran akan dicetak secara berurutan. E-mel akan dipadam dan dipindahkan ke dalam tong sampah sebaik sahaja ia dicetak.
Nota: cetakan diarahkan ke pencetak lalai anda supaya anda perlu memastikan pemandu pencetak yang sah disiapkan dan dipilih.
Harap ini berguna!
