Z jakiegoś niecnego powodu jestem zobowiązany do wydrukowania 10 500 e-maili ORAZ ich załączników (które towarzyszą około 70% e-maili) za pośrednictwem programu Outlook 2010 . Ja, podobnie jak ty, jestem przerażony tak absurdalną nieefektywnością, a 55 000 kawałków papieru, które oszacowaliśmy, będzie kosztowało nas i świat. Niemniej jednak stanie się to albo ręcznie (co robiliśmy przez ostatnie dwa dni), albo automatycznie (proszę, Boże, pomóż nam).

Należy je zamówić tak, aby każdy e-mail znajdował się nad odpowiednim załącznikiem i był chronologicznie wydrukowany. Tak więc e-mail 1, załącznik 1, e-mail 2, załącznik 2 itd. Załączniki mogą pochodzić z Powerpoint, Excel, Word Docs i najbardziej kłopotliwe ze wszystkich: pliki zip.

Oto, co próbowałem do tej pory:

1. W programie Outlook „Opcje” -> „Opcje drukowania” -> Wybierz Drukuj z załącznikami

2. Konwertowanie całej poczty na plik .eml i drukowanie z folderu

3. Używanie zewnętrznego dodatku do poczty (firmy Sperrysoftware) do konwertowania wszystkich wiadomości e-mail na pliki pdf i eksportowania do folderu. Biorąc ten folder i zmieniając jego kolejność według daty i drukując pliki pdf.

Oto dlaczego żaden z nich do tej pory nie działał:

1. Ustawienie Drukuj z załącznikami w programie Outlook rzadko działa w przypadku dokumentów zawierających makra. Przede wszystkim nie działa z plikami zip i po prostu je pomija.

2. Oczywiście plików .eml nie można bezpośrednio wydrukować ani odczytać poza klientem poczty. Myślę, że jest to nadal nasz najbardziej obiecujący wysiłek, ponieważ jest to rzeczywiście cały plik poczty reprezentowany w stabilnym formacie, oddzielony i poza klientem poczty - co oznacza, że ​​są one wykonalne. Nie mogę znaleźć oprogramowania innej firmy, które skutecznie pozwoliłoby mi konwertować wiadomości e-mail ORAZ odpowiadające im skompresowane i różnie sformatowane załączniki na pliki do wydruku. Jeśli znasz jeden, jesteśmy gotowi wydać ponad 200 euro na oprogramowanie.

3. To oprogramowanie na początku było obiecujące. Jednak makro często się psuje i rozpoznaje również podpisy e-mail naszej firmy jako załączniki.

Jeśli w ogóle możesz udzielić jakiejkolwiek porady, byłoby to dla nas ogromną pomocą. Obecnie otwieramy każdą wiadomość e-mail, odpowiadające jej 3–4 załączniki i drukujemy je za pośrednictwem odpowiedniego okna dialogowego drukowania każdego załącznika. Zajmie to pięciu z nas w ciągu miesiąca, więc Twój wkład byłby bardzo cenny!

MsgExtract może grupowo drukować wiadomości e-mail z różnych źródeł, a także konwertować formaty wiadomości.

1. Może grupowo wydrukować wiadomości e-mail i załączniki w kolejności chronologicznej. W najnowszej wersji dodaliśmy możliwość dekompresji i drukowania załączników zip zgodnie z wymaganiami.
2. Może zapisywać wiadomości e-mail programu Outlook jako pliki EML
3. Może zapisywać wiadomości e-mail programu Outlook jako pliki PDF
4. Może pobierać obrazy, które są połączone w części HTML wiadomości i dołączać je do wynikowego formatu (pliki PDF, drukarka ...)

Do drukowania załączników MsgExtract opiera się na powiązaniach drukowania powłoki Windows, jeśli nie istnieje powiązanie dla rozszerzenia pliku załącznika, jest ono pomijane.

Możesz dowiedzieć się więcej na temat drukowania partii MsgExtract pod adresem:

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

(Oświadczenie, jestem autorem MsgExtract)

Nie mam perspektywy na tym komputerze i nie będę mieć dostępu do komputera z systemem Windows do następnego tygodnia. Ale w zasadzie chcesz zrobić coś takiego:

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

Tak więc przegląda folder w poszukiwaniu wiadomości e-mail, drukuje je i sprawdza, czy nie zawierają załączników, a jeśli je znaleziono, drukuje je również.

Nie mam perspektyw, jak powiedziałem, więc nie mogę tego przetestować.

Nie korzystaj z danych na żywo!

Gdybym był tobą, umieściłem jak trzy SKOPIOWANE e-maile w nowym folderze i przetestowałem to na nich przed dotknięciem jakichkolwiek danych na żywo. Może być konieczne sprawdzenie, jak to zrobićset oFolder