Por alguna razón impía, el trabajo me exige imprimir 10,500 correos electrónicos Y sus archivos adjuntos (que acompañan a aproximadamente el 70% de los correos electrónicos) a través de Outlook 2010 . Yo, como usted, estoy horrorizado ante una ineficiencia tan ridícula y los 55,000 pedazos de papel que hemos estimado que esto nos costará a nosotros y al mundo. Sin embargo, va a suceder de forma manual (lo que hemos estado haciendo durante los últimos dos días) o automáticamente (por favor, que Dios nos ayude).

Estos deben ordenarse para que cada correo electrónico se encuentre encima de su archivo adjunto respectivo y se imprima cronológicamente. Por lo tanto, el correo electrónico 1, el archivo adjunto 1, el correo electrónico 2, el archivo adjunto 2, etc. Los archivos adjuntos pueden venir en Powerpoint, Excel, Word Docs y lo más problemático de todos: archivos zip.

Esto es lo que he intentado hasta ahora:

1. En Outlook "Opciones" -> "Opciones de impresión" -> Seleccione Imprimir con archivos adjuntos

2. Convertir todo el correo en un archivo .eml e imprimir desde la carpeta

3. Uso de un complemento de correo de terceros (por Sperrysoftware) para convertir todos los correos electrónicos en archivos PDF y exportarlos a una carpeta. Tomar esta carpeta y reordenarla por fecha e imprimir los archivos PDF.

He aquí por qué nada de eso funcionó hasta ahora:

1. La configuración Imprimir con archivos adjuntos de Outlook rara vez funciona para documentos con macros en ellos. Sobre todo, no funciona con archivos zip y solo los pasa.

2. Obviamente, los archivos .eml no se pueden imprimir o leer directamente fuera de un cliente de correo. De hecho, creo que este sigue siendo nuestro esfuerzo más prometedor, ya que de hecho es el archivo de correo completo representado en un formato estable, separado y fuera de un cliente de correo, lo que significa que son viables. Parece que no puedo encontrar un software de terceros que me permita convertir efectivamente los correos electrónicos Y sus respectivos archivos adjuntos comprimidos y con distintos formatos en archivos imprimibles. Si conoce uno, también estamos dispuestos a gastar más de 200 euros en software.

3. Este software fue prometedor al principio. Pero la macro se rompe con frecuencia y también reconoce las firmas de correo electrónico de nuestra empresa como archivos adjuntos.

Si puede ofrecer algún consejo, sería de gran ayuda para nosotros. Actualmente estamos abriendo cada correo electrónico, sus respectivos 3 a 4 archivos adjuntos, e imprimiéndolos a través del diálogo de impresión respectivo de cada archivo adjunto. Esto nos tomará a cinco de nosotros un mes, por lo que su aporte será muy valioso.

MsgExtract puede imprimir por lotes mensajes de correo electrónico de diferentes fuentes de correo electrónico y también convertir formatos de correo electrónico.

1. Puede imprimir por lotes los correos electrónicos y sus archivos adjuntos en orden cronológico. En la última versión, hemos agregado la capacidad de descomprimir e imprimir archivos adjuntos zip según sus necesidades.
2. Puede guardar el correo electrónico de Outlook como archivos EML
3. Puede guardar el correo electrónico de Outlook como archivos PDF
4. Puede descargar las imágenes que están vinculadas en la parte html del mensaje e incluirlas en el formato resultante (archivos PDF, impresora ...)

Para imprimir los archivos adjuntos, MsgExtract se basa en las asociaciones de impresión de Windows Shell, si no existe ninguna asociación para la extensión del archivo adjunto, se omite.

Puede obtener más información sobre la impresión por lotes de MsgExtract en:

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

(Descargo de responsabilidad, soy el autor de MsgExtract)

No tengo perspectiva en esta máquina y no tendré acceso a una máquina de Windows con perspectiva hasta la próxima semana. Pero básicamente, quieres hacer algo como esto:

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

Por lo tanto, revisa la carpeta en busca de correos electrónicos, los imprime y los comprueba en busca de archivos adjuntos y, si los encuentra, también los imprime.

No tengo perspectiva, como dije, así que no puedo probar esto.

¡No vayas con datos en vivo!

Si yo fuera usted, pondría como tres correos electrónicos COPIADOS en una nueva carpeta y probaría esto en ellos antes de tocar cualquier dato en vivo. Es posible que deba buscar cómoset oFolder