불경 한 이유로 나는 10,500 개의 전자 메일과 첨부 파일 (전자 메일의 약 70 %를 동봉 함)을 인쇄해야합니다. Outlook 2010 . 나는 너처럼, 어리석은 비 능률과 55,000 장의 종이에 우리는 이것이 우리와 세계에 값을 치르게 될 것이라고 예상했다. 그럼에도 불구하고 수동으로 (지난 2 일간) 또는 자동으로 (신이 도와주세요) 일어날 것입니다.

각 전자 메일이 해당 첨부 파일 위에 놓이고 연대순으로 인쇄되도록 순서를 지정해야합니다. 따라서 이메일 1, 첨부 파일 1, 이메일 2, 첨부 파일 2 등. 첨부 파일은 Powerpoint, Excel, Word 문서 및 대부분의 번거로운 Zip 파일로 올 수 있습니다.

여기 내가 지금까지 시도한 바가있다.

1. Outlook의 '옵션'- & gt; '인쇄 옵션'- & gt; 첨부 파일로 인쇄 선택

2. 모든 메일을 .eml 파일로 변환하고 폴더에서 인쇄

3. 타사 메일 추가 기능 (Sperrysoftware 제공)을 사용하여 모든 전자 메일을 pdfs로 변환하고 폴더로 내 보냅니다. 이 폴더를 가져 와서 날짜순으로 정리하고 pdfs를 인쇄하십시오.

다음은 지금까지 아무 것도 작동하지 않은 이유입니다.

1. Outlook의 첨부 파일로 인쇄 설정은 매크로가있는 문서에서는 거의 작동하지 않습니다. 무엇보다도 zip 파일에서는 작동하지 않고 그냥 넘겨줍니다.

2. 분명히 .eml 파일은 직접 인쇄하거나 메일 클라이언트 외부에서 읽을 수 없습니다. 실제로 이것이 안정적인 형식으로 표시되고, 분리되고, 메일 클라이언트 외부에있는 전체 메일 파일이므로 이것이 여전히 가장 유망한 노력이라고 생각합니다. 즉, 실행 가능하다는 의미입니다. 필자는 전자 메일과 해당 압축 및 다양한 형식의 첨부 파일을 인쇄 가능한 파일로 효과적으로 변환 할 수있는 타사 소프트웨어를 찾지 못하는 것 같습니다. 당신이 알고 있다면 우리는 소프트웨어에 200 유로를 초과하여 기꺼이 소비 할 것입니다.

3. 이 소프트웨어는 처음에 유망했습니다. 그러나 매크로는 자주 중단되며 회사의 전자 메일 서명을 첨부 파일로 인식합니다.

이 모든 조언을 제공 할 수 있다면 우리에게 큰 도움이 될 것입니다. 우리는 현재 모든 전자 메일과 해당 3 - 4 첨부 파일을 열어 각 첨부 파일의 인쇄 대화 상자를 통해 인쇄합니다. 이것은 한 달에 5 명이 걸릴 것이므로 귀하의 의견은 매우 가치있게 평가 될 것입니다!

MsgExtract 다른 이메일 소스의 이메일 메시지를 일괄 적으로 인쇄하고 이메일 형식을 변환 할 수 있습니다.

1. 전자 메일과 첨부 파일을 연대순으로 일괄 인쇄 할 수 있습니다. 우리는 귀하의 요구 사항에 따라 zip 첨부 파일을 압축 해제하고 인쇄 할 수있는 기능을 최신 빌드에 추가했습니다.
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

따라서 전자 메일을 찾는 폴더를 거치며 인쇄하고 첨부 파일이 있는지 확인하고 발견 된 경우 첨부 파일을 인쇄합니다.

내가 말했듯이 나는 전망이 없기 때문에 이것을 시험 할 수는 없다.

라이브 데이터를 사용하지 마십시오!

내가 너라면, 나는 새 폴더에 COPIED 이메일 3 개 과 이것을 시험해 보라. 라이브 데이터를 터치하기 전에 방법을 검색해야 할 수도 있습니다. set oFolder