Por alguma razão profana, sou obrigado a imprimir 10.500 emails E seus anexos (que acompanham cerca de 70% dos emails) no Outlook 2010 . Eu, como você, estou chocado com essa ineficiência ridícula e os 55.000 pedaços de papel que estimamos que isso custarão a nós e ao mundo. No entanto, isso acontecerá manualmente (o que estamos fazendo nos últimos dois dias) ou automaticamente (por favor, Deus nos ajude).

Eles precisam ser solicitados para que cada e-mail fique sobre o respectivo anexo e seja impresso cronologicamente. Portanto, o email 1, o anexo 1, o email 2, o anexo 2 etc. Os anexos podem vir no Powerpoint, Excel, Word Docs e o mais problemático de todos: arquivos zip.

Aqui está o que eu tentei até agora:

1. No Outlook "Opções" -> "Opções de impressão" -> selecione Imprimir com anexos

2. Convertendo todos os emails em um arquivo .eml e imprimindo da pasta

3. Usando um complemento de email de terceiros (da Sperrysoftware) para converter todos os emails em PDFs e exportar para uma pasta. Pegue esta pasta e reordene-a por data e imprima os pdfs.

Eis por que nada disso funcionou até agora:

1. A configuração Imprimir com anexos do Outlook raramente funciona para documentos com macros. Acima de tudo, ele não funciona com arquivos zip e apenas os repassa.

2. Obviamente, os arquivos .eml não podem ser impressos ou lidos diretamente fora de um cliente de email. Na verdade, acho que esse ainda é o nosso esforço mais promissor, pois é de fato todo o arquivo de mensagens representado em um formato estável, separado e fora de um cliente de email - o que significa que eles são viáveis. Parece que não consigo encontrar um software de terceiros que efetivamente permita converter os emails E seus respectivos anexos compactados e formatados de maneira diversa em arquivos imprimíveis. Se você conhece um, também estamos dispostos a gastar mais de 200 Euros em software.

3. Este software foi promissor no começo. Mas a macro é interrompida com frequência e também reconhece as assinaturas de email da empresa como anexos.

Se você puder oferecer algum conselho, isso seria de grande ajuda para nós. No momento, estamos abrindo todos os emails, seus respectivos anexos 3 a 4, e os imprimimos através do respectivo diálogo de impressão de cada anexo. Isso levará cinco de nós um mês, portanto, sua contribuição será muito valorizada!

MsgExtract pode imprimir em lote mensagens de email de diferentes fontes de email e também converter formatos de email.

1. Pode imprimir em lote os emails e seus anexos em ordem cronológica. Adicionamos na versão mais recente a capacidade de descompactar e imprimir anexos zip conforme sua exigência.
2. Ele pode salvar o email do Outlook como arquivos EML
3. Pode salvar o email do Outlook como arquivos PDF
4. Ele pode baixar as imagens vinculadas na parte html da mensagem e incluí-las no formato resultante (arquivos PDF, impressora ...)

Para imprimir os anexos, o MsgExtract depende das associações de impressão do Shell do Windows, se não existir nenhuma associação para a extensão do arquivo de anexo, ela será ignorada.

Você pode saber mais sobre a impressão em lote MsgExtract em:

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

(Isenção de responsabilidade, eu sou o autor de MsgExtract)

Não tenho perspectivas para esta máquina e não terei acesso a uma máquina com janelas até a próxima semana. Mas basicamente, você quer fazer algo assim:

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

Então, ele percorre a pasta procurando e-mails, os imprime e verifica se há anexos e, se encontrado, os imprime também.

Eu não tenho perspectivas, como eu disse, então não posso testar isso.

Não use dados ao vivo!

Se eu fosse você, colocaria três e-mails da COPIED em uma nova pasta e testaria isso antes de tocar em quaisquer dados ao vivo. Pode ser necessário pesquisar comoset oFolder