Aus irgendeinem unheiligen Grund muss ich 10.500 E-Mails UND deren Anhänge (die etwa 70% der E-Mails begleiten) über Outlook 2010 ausdrucken . Ich bin wie Sie entsetzt über diese lächerliche Ineffizienz und die 55.000 Zettel, die wir geschätzt haben, werden uns und die Welt kosten. Trotzdem wird es entweder manuell (was wir in den letzten zwei Tagen getan haben) oder automatisch (bitte Gott helfe uns) geschehen.

Diese müssen so bestellt werden, dass jede E-Mail über dem jeweiligen Anhang liegt und chronologisch gedruckt wird. Also E-Mail 1, Anhang 1, E-Mail 2, Anhang 2 usw. Die Anhänge können in Powerpoint, Excel, Word Docs und am problematischsten sein: Zip-Dateien.

Folgendes habe ich bisher versucht:

1. In Outlook "Optionen" -> "Druckoptionen" -> Mit Anhängen drucken auswählen

2. Konvertieren aller E-Mails in eine EML-Datei und Drucken aus dem Ordner

3. Verwenden eines E-Mail-Add-Ons eines Drittanbieters (von Sperrysoftware), um alle E-Mails in PDFs zu konvertieren und in einen Ordner zu exportieren. Nehmen Sie diesen Ordner und ordnen Sie ihn nach Datum neu an und drucken Sie die PDFs aus.

Hier ist, warum bisher nichts davon funktioniert hat:

1. Die Einstellung "Drucken mit Anhängen" von Outlook funktioniert selten für Dokumente mit darin enthaltenen Makros. Vor allem funktioniert es nicht mit Zip-Dateien und übergibt diese einfach.

2. Offensichtlich können EML-Dateien nicht direkt außerhalb eines Mail-Clients gedruckt oder gelesen werden. Ich denke tatsächlich, dass dies immer noch unsere vielversprechendste Anstrengung ist, da es sich tatsächlich um die gesamte Mail-Datei handelt, die in einem stabilen Format, getrennt und außerhalb eines Mail-Clients dargestellt wird - was bedeutet, dass sie funktionsfähig sind. Ich kann anscheinend keine Software von Drittanbietern finden, mit der ich die E-Mails UND ihre jeweiligen komprimierten und unterschiedlich formatierten Anhänge effektiv in druckbare Dateien konvertieren kann. Wenn Sie eines kennen, sind wir auch bereit, mehr als 200 Euro für Software auszugeben.

3. Diese Software war zunächst vielversprechend. Das Makro wird jedoch häufig unterbrochen und erkennt auch die E-Mail-Signaturen unseres Unternehmens als Anhänge.

Wenn Sie überhaupt einen Rat geben können, wäre dies eine große Hilfe für uns. Wir öffnen derzeit jede E-Mail mit ihren jeweiligen 3 - 4 Anhängen und drucken sie über den jeweiligen Druckdialog jedes Anhangs. Dies wird fünf von uns einen Monat dauern, daher wäre Ihre Eingabe sehr geschätzt!

MsgExtract kann E-Mail-Nachrichten aus verschiedenen E-Mail-Quellen stapelweise drucken und E-Mail-Formate konvertieren.

1. Es kann die E-Mails und ihre Anhänge in chronologischer Reihenfolge stapelweise drucken. Wir haben in der neuesten Version die Möglichkeit hinzugefügt, Zip-Anhänge gemäß Ihren Anforderungen zu dekomprimieren und zu drucken.
2. Es kann Outlook-E-Mails als EML-Dateien speichern
3. Es kann Outlook-E-Mails als PDF-Dateien speichern
4. Es kann die Bilder herunterladen, die im HTML-Teil der Nachricht verlinkt sind, und sie in das resultierende Format (PDF-Dateien, Drucker ...) aufnehmen.

Zum Drucken der Anhänge verwendet MsgExtract die Windows Shell-Druckzuordnungen. Wenn für die Dateierweiterung der Anhänge keine Zuordnung vorhanden ist, wird sie übersprungen.

Weitere Informationen zum MsgExtract-Stapeldruck finden Sie unter:

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

(Haftungsausschluss, ich bin der Autor von MsgExtract)

Ich habe keinen Ausblick auf diesen Computer und habe erst nächste Woche Zugriff auf einen Windows-Computer mit Ausblick. Aber im Grunde möchten Sie so etwas tun:

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

Es durchsucht den Ordner nach E-Mails, druckt sie aus und überprüft sie auf Anhänge. Wenn sie gefunden werden, werden sie auch gedruckt.

Ich habe keine Aussichten, wie ich sagte, also kann ich das nicht testen.

Gehen Sie nicht auf Live-Daten!

Wenn ich Sie wäre, würde ich drei kopierte E-Mails in einen neuen Ordner legen und diese testen, bevor ich Live-Daten berühre. Möglicherweise müssen Sie nachschlagen, wieset oFolder