10

По какой-то нечестивой причине я должен распечатать 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 вложениями и распечатываем его через соответствующий диалог печати каждого вложения. Это займет у нас пятерых один месяц, поэтому ваш вклад будет высоко оценен!

|источник

2 ответа2

3

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)

|источник
0

У меня нет перспективы на эту машину, и у меня не будет доступа к машине 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

|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .