По какой-то нечестивой причине я вынужден на работе распечатывать 10 500 электронных писем и их вложений (которые сопровождают около 70% электронных писем) через Outlook 2010 . Я, как и вы, потрясен такой нелепой неэффективностью, и, по нашим оценкам, 55 000 листов бумаги обойдутся нам и всему миру. Тем не менее, это произойдет либо вручную (чем мы занимались последние два дня), либо автоматически (пожалуйста, помогите нам).

Их необходимо заказывать так, чтобы каждое электронное письмо располагалось поверх соответствующего вложения и было напечатано в хронологическом порядке. Так что электронная почта 1, вложение 1, электронная почта 2, вложение 2 и т. Д. Вложения могут быть в Powerpoint, Excel, Word Docs, и самое неприятное из всех: zip-файлы.

Вот что я пробовал до сих пор:

1. В Outlook «Параметры» -> «Параметры печати» -> Выберите «Печать с вложениями».

2. Преобразование всей почты в файл .eml и печать из папки

3. Использование стороннего почтового надстройки (от Sperrysoftware) для преобразования всех электронных писем в pdf и экспорта в папку. Взяв эту папку и переупорядочив ее по дате, распечатав PDF-файлы.

Вот почему ничего из этого не сработало:

1. Параметр «Печать с вложениями» в Outlook редко работает с документами, в которых есть макросы. Прежде всего, он не работает с zip-файлами и просто передает их.

2. Очевидно, что файлы .eml нельзя напрямую распечатать или прочитать вне почтового клиента. Я на самом деле думаю, что это все еще наше самое многообещающее усилие, поскольку это действительно весь почтовый файл, представленный в стабильном формате, отдельно и вне почтового клиента, то есть они работоспособны. Кажется, я не могу найти стороннее программное обеспечение, которое позволило бы мне эффективно конвертировать электронные письма и их соответствующие сжатые и отформатированные вложения в печатные файлы. Если вы знаете об этом, мы также готовы потратить более 200 евро на программное обеспечение.

3. Сначала это программное обеспечение было многообещающим. Но макрос часто ломается, и он также распознает подписи электронной почты нашей компании как вложения.

Если вы можете предложить какой-либо совет, это очень помогло бы нам. В настоящее время мы открываем каждое электронное письмо с соответствующими 3-4 вложениями и распечатываем его через соответствующий диалог печати каждого вложения. Это займет у нас пятерых один месяц, поэтому ваш вклад будет высоко оценен!

MsgExtract может печатать сообщения электронной почты из разных источников, а также конвертировать форматы электронной почты.

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

Для печати вложений MsgExtract использует сопоставления печати оболочки Windows, если сопоставление для расширения файла вложения не пропущено.

Вы можете узнать больше о пакетной печати 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

Таким образом, он просматривает папку для поиска электронных писем, распечатывает их, проверяет их на наличие вложений и, если они найдены, также печатает их.

У меня нет перспективы, как я уже сказал, поэтому я не могу это проверить.

Не используйте данные в реальном времени!

Если бы я был на вашем месте, я бы поместил три новые электронные письма в новую папку и проверил их, прежде чем касаться любых живых данных. Возможно, вам придется посмотреть, какset oFolder