Untuk beberapa alasan tidak suci, saya diharuskan oleh pekerjaan untuk mencetak 10.500 email DAN lampirannya (yang menyertai sekitar 70% dari email) melalui Outlook 2010 . Saya, seperti Anda, terkejut atas ketidakefisienan yang begitu konyol dan 55.000 lembar kertas yang kami perkirakan akan merugikan kami dan dunia. Namun demikian, itu akan terjadi baik secara manual (apa yang telah kami lakukan selama dua hari terakhir) atau secara otomatis (tolong Tuhan bantu kami).

Ini perlu dipesan sehingga setiap email duduk di atas lampiran masing-masing dan dicetak secara kronologis. Jadi email 1, lampiran 1, email 2, lampiran 2, dll. Lampiran dapat datang di Powerpoint, Excel, Word Documents, dan yang paling sulit dari semuanya: file zip.

Inilah yang saya coba sejauh ini:

1. Di Outlook "Opsi" -> "Opsi Cetak" -> Pilih Cetak dengan Lampiran

2. Mengubah semua email menjadi file .eml dan mencetak dari folder

3. Menggunakan add-on surat pihak ketiga (oleh Sperrysoftware) untuk mengubah semua email menjadi pdf dan mengekspor ke folder. Mengambil folder ini dan menyusun ulang berdasarkan tanggal dan mencetak pdf.

Inilah sebabnya mengapa tidak ada yang bekerja sejauh ini:

1. Pengaturan Cetak dengan Lampiran Outlook jarang berfungsi untuk dokumen dengan makro di dalamnya. Di atas segalanya, itu tidak bekerja dengan file zip dan hanya melewati ini.

2. Jelas file .eml tidak dapat langsung dicetak atau dibaca di luar klien email. Saya benar-benar berpikir ini masih upaya kami yang paling menjanjikan karena memang seluruh file email diwakili dalam format yang stabil, dipisahkan, dan di luar klien email - yang berarti mereka bisa diterapkan. Sepertinya saya tidak dapat menemukan perangkat lunak pihak ketiga yang secara efektif akan membiarkan saya mengonversi email dan lampiran masing-masing yang diformat dan diformat beragam menjadi file yang dapat dicetak. Jika Anda mengetahuinya, kami juga bersedia mengeluarkan lebih dari 200 Euro untuk perangkat lunak.

3. Perangkat lunak ini menjanjikan pada awalnya. Tapi makro sering rusak dan juga mengenali tanda tangan email perusahaan kami sebagai lampiran.

Jika Anda dapat memberikan saran apa pun, ini akan sangat membantu kami. Kami saat ini membuka setiap email, masing-masing 3 - 4 lampirannya, dan mencetaknya melalui dialog pencetakan masing-masing lampiran. Ini akan memakan waktu lima dari kita satu bulan, jadi input Anda akan sangat dihargai!

MsgExtract dapat mencetak pesan email batch dari berbagai sumber email dan juga mengkonversi format email.

1. Itu dapat batch mencetak email dan lampirannya dalam urutan kronologis. Kami telah menambahkan dalam versi terbaru kemampuan untuk mendekompresi dan mencetak lampiran zip sesuai kebutuhan Anda.
2. Itu dapat menyimpan email Outlook sebagai file EML
3. Itu dapat menyimpan email Outlook sebagai file PDF
4. Itu dapat mengunduh gambar yang ditautkan di bagian html dari pesan dan memasukkannya dalam format yang dihasilkan (file PDF, printer ...)

Untuk mencetak lampiran MsgExtract bergantung pada asosiasi cetak Windows Shell, jika tidak ada asosiasi untuk ekstensi file lampiran itu dilewati.

Anda dapat mempelajari lebih lanjut tentang pencetakan batch MsgExtract di:

http://docs.maildev.com/article/122-how-do-i-batch-print-email-messages-and-its-attachments

(Penafian, saya penulis MsgExtract)

Saya tidak memiliki pandangan tentang mesin ini dan saya tidak akan memiliki akses ke mesin windows dengan pandangan sampai minggu depan. Tetapi pada dasarnya, Anda ingin melakukan sesuatu seperti ini:

Sub test()
Dim oFolder As outlook.folder
Dim oAttachment As outlook.attachment
Dim oMailItem As outlook.mailitem
Dim oItem As Object

set oFolder = 'get the folder you want to print from

Dim i As Integer
Dim j As Integer

For i = 1 To oFolder.items.Count
    Set oMailItem = oFolder.items(i)
    oMailItem.PrintOut

    If oMailItem.attachments.Count > 0 Then
        For j = 1 To oMailItem.Attachments.Count
              'below you might need to change the attachment(j) to items(j)
            Set oAttachment = oMailItem.attachment(j)
            oAttachment.PrintOut
        Next
    End If

Next

End Sub

Jadi itu melalui folder mencari email, mencetaknya dan memeriksanya untuk lampiran dan jika ditemukan, mencetaknya juga.

Saya tidak memiliki pandangan, seperti yang saya katakan, jadi saya tidak bisa menguji ini.

Jangan buka data langsung!

Jika saya jadi Anda, saya akan memasukkan tiga email COPIED di folder baru dan menguji ini sebelum menyentuh data langsung. Anda mungkin perlu mencari caranyaset oFolder