불경 한 이유로 나는 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 명이 걸릴 것이므로 귀하의 의견은 매우 가치있게 평가 될 것입니다!

답변

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