Pour une raison impie, je suis obligé par le travail d'imprimer 10 500 e-mails ET leurs pièces jointes (qui accompagnent environ 70% des e-mails) via Outlook 2010 . Comme vous, je suis consterné par une telle inefficacité ridicule et les 55 000 morceaux de papier que nous avons estimés que cela nous coûtera au monde entier. Néanmoins, cela va se produire soit manuellement (ce que nous faisons depuis deux jours) soit automatiquement (s'il vous plaît, dieu nous aide).

Ceux-ci doivent être commandés de sorte que chaque e-mail se trouve au-dessus de sa pièce jointe respective et soit imprimé chronologiquement. Donc, e-mail 1, pièce jointe 1, e-mail 2, pièce jointe 2, etc.

Voici ce que j'ai essayé jusqu'à présent:

1. Dans Outlook "Options" -> "Options d'impression" -> Sélectionnez Imprimer avec les pièces jointes

2. Conversion de tous les messages en un fichier .eml et impression à partir du dossier

3. Utilisation d'un module complémentaire de messagerie tiers (par Sperrysoftware) pour convertir tous les e-mails en pdfs et exporter vers un dossier. Prendre ce dossier et le réorganiser par date et imprimer les fichiers PDF.

Voici pourquoi rien de tout cela n'a fonctionné jusqu'à présent:

1. Le paramètre Imprimer avec pièces jointes d'Outlook fonctionne rarement pour les documents contenant des macros. Surtout, il ne fonctionne pas avec les fichiers zip et les transmet simplement.

2. De toute évidence, les fichiers .eml ne peuvent pas être directement imprimés ou lus en dehors d'un client de messagerie. En fait, je pense que c'est toujours notre effort le plus prometteur, car il s'agit en fait de l'ensemble du fichier courrier représenté dans un format stable, séparé et en dehors d'un client de messagerie - ce qui signifie qu'il est réalisable. Je n'arrive pas à trouver un logiciel tiers qui me permettrait effectivement de convertir les e-mails ET leurs pièces jointes compressées et formatées respectives en fichiers imprimables. Si vous en connaissez un, nous sommes également prêts à dépenser plus de 200 euros en logiciels.

3. Ce logiciel était prometteur au début. Mais la macro se casse fréquemment et elle reconnaît également les signatures électroniques de notre société comme pièces jointes.

Si vous pouvez offrir des conseils, cela nous serait d'une grande aide. Nous ouvrons actuellement chaque e-mail, ses 3 à 4 pièces jointes respectives, et les imprimons via la boîte de dialogue d'impression respective de chaque pièce jointe. Cela nous prendra cinq mois, donc votre contribution serait très appréciée!

MsgExtract peut imprimer des e-mails par lots à partir de différentes sources d'e-mails et également convertir des formats d'e-mails.

1. Il peut imprimer par lots les e-mails et leurs pièces jointes dans l'ordre chronologique. Nous avons ajouté dans la dernière version la possibilité de décompresser et d'imprimer les pièces jointes zip selon vos besoins.
2. Il peut enregistrer les e-mails Outlook en tant que fichiers EML
3. Il peut enregistrer les e-mails Outlook sous forme de fichiers PDF
4. Il peut télécharger les images liées dans la partie html du message et les inclure dans le format résultant (fichiers PDF, imprimante ...)

Pour imprimer les pièces jointes, MsgExtract s'appuie sur les associations d'impression Windows Shell, si aucune association n'existe pour l'extension de fichier de pièce jointe, elle est ignorée.

Vous pouvez en savoir plus sur l'impression par lots MsgExtract sur:

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

(Avertissement, je suis l'auteur de MsgExtract)

Je n'ai pas de perspectives sur cette machine et je n'aurai accès à une machine Windows avec perspectives que la semaine prochaine. Mais en gros, vous voulez faire quelque chose comme ça:

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

Ainsi, il parcourt le dossier à la recherche d'e-mails, les imprime et vérifie les pièces jointes et, s'il est trouvé, les imprime également.

Je n'ai pas de perspectives, comme je l'ai dit, donc je ne peux pas tester cela.

N'allez pas sur les données en direct!

Si je devais vous, je mettrais comme trois e - mails dans un COPIES nouveau dossier et tester ceci sur eux avant de toucher des données en temps réel. Vous devrez peut-être rechercher commentset oFolder