З якихось нечесних причин мене вимагають надрукувати 10 500 електронних листів та їх вкладень (які супроводжують близько 70% електронних листів) через Outlook 2010 . Я, як і ви, обурений такою смішною неефективністю, і 55000 аркушів паперу, які ми оцінили, це обійдеться нам і світові. Тим не менш, це станеться або вручну (що ми робимо останні два дні), або автоматично (будь ласка, допоможе нам Бог).

Їх потрібно замовити таким чином, щоб кожен електронний лист знаходився над відповідним вкладеним файлом і був надрукований хронологічно. Отже, надішліть електронну пошту 1, додаток 1, електронну пошту 2, додаток 2 і т.д.

Ось що я спробував поки що:

1. У програмі Outlook "Параметри" -> "Параметри друку" -> Виберіть Друк із додатками

2. Перетворення всієї пошти у .eml-файл та друк із папки

3. Використання додатка для пошти третьої сторони (від Sperrysoftware) для перетворення всіх електронних листів у pdfs та експортування в папку. Створення цієї папки та упорядкування її за датою та роздрукування файлів pdfs.

Ось чому досі жоден з них не працював:

1. Налаштування «Друк із додатками» Outlook рідко працює для документів із макросами. Перш за все, він не працює з поштовими файлами, а просто передає їх.

2. Очевидно, що .eml файли не можуть бути безпосередньо надруковані чи прочитані поза поштовим клієнтом. Насправді я думаю, що це все-таки наше найперспективніше зусилля, оскільки це справді весь поштовий файл, представлений у стабільному форматі, розділений та за межами поштового клієнта - це означає, що вони є працездатними. Я, здається, не можу знайти сторонне програмне забезпечення, яке б дозволило мені конвертувати електронні листи та їхні стиснуті та різного форматування вкладення у файли для друку. Якщо ви знаєте про це, ми також готові витратити понад 200 євро на програмне забезпечення.

3. Це програмне забезпечення спочатку було багатообіцяючим. Але макрос часто працює, і він також розпізнає підписи електронної пошти нашої компанії як вкладення.

Якщо ви можете взагалі запропонувати будь-яку пораду, це буде нам дуже корисно. Наразі ми відкриваємо кожну електронну пошту, її 3–4 додатки та друкуємо їх через відповідний діалог друку кожного вкладеного файлу. Це займе п’ять із нас на місяць, тож ваш внесок буде високо оцінений!

MsgExtract може пакетно друкувати повідомлення електронної пошти з різних джерел електронної пошти, а також конвертувати формати електронної пошти.

1. Він може друкувати електронні листи та додатки до них у хронологічному порядку. Ми додали до останнього побудови можливість розкручувати та друкувати вкладені файли відповідно до ваших вимог.
2. Він може зберігати електронну пошту Outlook у вигляді файлів EML
3. Він може зберігати електронну пошту Outlook як PDF-файли
4. Він може завантажувати зображення, пов’язані в html-частині повідомлення, і включати їх у отриманому форматі (PDF-файли, принтер ...)

Для друку вкладених файлів MsgExtract спирається на асоціації друку Windows Shell, якщо асоціації для розширення файлу вкладень не існує, він пропускається.

Дізнатися більше про пакетну друк MsgExtract можна на:

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

(Відмова, я автор MsgExtract)

У мене немає прогнозів на цій машині, і я не матиму доступу до машини Windows з перспективою до наступного тижня. Але в основному ви хочете зробити щось подібне:

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

Тож він проходить через папку, шукаючи електронні листи, роздруковує їх і перевіряє їх на вкладення і, якщо вони знайдені, також друкує їх.

Як я вже сказав, у мене немає світогляду, тому я не можу це перевірити.

Не продовжуйте живі дані!

Якби я був ти, я поставив би як три COPIED електронні листи у нову папку і перевіряю це на них, перш ніж торкатися будь-яких живих даних. Можливо, вам доведеться шукати, як це зробитиset oFolder