Per qualche strana ragione, mi viene richiesto dal lavoro di stampare 10.500 e-mail E i loro allegati (che accompagnano circa il 70% delle e-mail) attraverso Outlook 2010 . Come te, sono sconvolto da tale ridicola inefficienza e dai 55.000 pezzi di carta che abbiamo stimato questo costerà a noi e al mondo. Ciononostante, accadrà manualmente (cosa abbiamo fatto negli ultimi due giorni) o automaticamente (per favore, Dio ci aiuti).

Questi devono essere ordinati in modo tale che ogni e-mail si trovi in ​​cima al rispettivo allegato e sia stampata cronologicamente. Quindi e-mail 1, allegato 1, e-mail 2, allegato 2, ecc. Gli allegati possono essere in Powerpoint, Excel, Word Docs e il più problematico di tutti: i file zip.

Ecco cosa ho provato finora:

1. In Outlook "Opzioni" -> "Opzioni di stampa" -> Seleziona Stampa con allegati

2. Conversione di tutta la posta in un file .eml e stampa dalla cartella

3. Utilizzo di un componente aggiuntivo di posta elettronica di terze parti (di Sperrysoftware) per convertire tutte le e-mail in pdf ed esportare in una cartella. Prendendo questa cartella e riordinandola per data e stampando i pdf.

Ecco perché nessuno di questi ha funzionato finora:

1. L'impostazione Stampa con allegati di Outlook funziona raramente per i documenti con macro al loro interno. Soprattutto, non funziona con i file zip e li passa semplicemente.

2. Ovviamente i file .eml non possono essere stampati o letti direttamente al di fuori di un client di posta. In realtà penso che questo sia ancora il nostro sforzo più promettente in quanto è in effetti l'intero file di posta rappresentato in un formato stabile, separato ed esterno a un client di posta, il che significa che sono praticabili. Non riesco a trovare un software di terze parti che mi consenta effettivamente di convertire le e-mail E i loro rispettivi allegati compressi e formattati in file stampabili. Se ne conosci uno, siamo anche disposti a spendere oltre 200 euro in software.

3. Questo software all'inizio era promettente. Ma la macro si interrompe frequentemente e riconosce anche le firme di posta elettronica della nostra azienda come allegati.

Se puoi offrire qualche consiglio, questo ci sarebbe di grande aiuto. Attualmente stiamo aprendo ogni e-mail, i rispettivi 3 - 4 allegati e stampandoli tramite il rispettivo dialogo di stampa di ciascun allegato. Ci vorranno cinque di noi un mese, quindi il tuo contributo sarà molto apprezzato!

MsgExtract può stampare in batch messaggi e-mail da diverse fonti e-mail e anche convertire i formati e-mail.

1. Può stampare in batch le e-mail e i relativi allegati in ordine cronologico. Nell'ultima build abbiamo aggiunto la possibilità di decomprimere e stampare gli allegati zip secondo le vostre esigenze.
2. Può salvare la posta elettronica di Outlook come file EML
3. Può salvare la posta elettronica di Outlook come file PDF
4. Può scaricare le immagini collegate nella parte html del messaggio e includerle nel formato risultante (file PDF, stampante ...)

Per stampare gli allegati, MsgExtract si affida alle associazioni di stampa della shell di Windows, se non esiste alcuna associazione per l'estensione del file allegato, viene saltato.

Puoi saperne di più sulla stampa batch di MsgExtract su:

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

(Dichiarazione di non responsabilità, sono l'autore di MsgExtract)

Non ho prospettive su questa macchina e non avrò accesso a una macchina Windows con Outlook fino alla prossima settimana. Ma fondamentalmente, vuoi fare qualcosa del genere:

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

Quindi passa attraverso la cartella alla ricerca di e-mail, li stampa e li controlla per gli allegati e, se trovati, li stampa anche.

Non ho prospettive, come ho detto, quindi non posso provarlo.

Non andare su dati dal vivo!

Se fossi in te, avevo messo come tre email copiati in una nuova cartella e testare il tutto su di loro prima di toccare i dati in tempo reale. Potrebbe essere necessario cercare comeset oFolder