Allegati PDF di stampa batch in Outlook

Questo articolo è stato scritto da Sean Tsai, un esperto di data warehousing e buon amico di How-To Geek

. Hai mai desiderato stampare tutti gli allegati che ricevi nella casella di posta elettronica di Outlook? Supponiamo che tu abbia sottoscritto un servizio fax gratuito in formato PDF e desideri che vengano stampati automaticamente come un vecchio apparecchio fax.

Ecco un modo rapido per ottenerlo se sei a tuo agio con un po 'di programmazione VB( macro).

Quello che mostriamo qui è quello di creare una regola in Outlook e spostare le e-mail fax in entrata in una sottocartella separata. Usando il codice VB creiamo una macro per far eseguire un lavoro di stampa contro ogni e-mail in quella sottocartella in modo da non dover aprire l'e-mail e stampare gli allegati uno per uno.

Passaggio 1

Creare una sottocartella denominata "Stampe batch" in "Cassetta postale - Nome utente" in Outlook.

Passaggio 2

Creare una regola( dal menu Strumenti / Regole e avvisi) in Outlook simile a questa:

Inserire l'indirizzo di posta elettronica dal proprio fornitore di fax nel campo "[email protected]".Nella riga dell'oggetto, inserire il testo permanente inviato dal fornitore fax ogni volta( non inserire il testo che verrà modificato periodicamente).Il terzo campo "Stampe batch" è la sottocartella appena creata nel primo passaggio.

Passaggio 3

Creare una macro VB.Per prima cosa fai apparire l'editor VB andando su Strumenti /Macro/ Visual Basic Editor. Dovresti vedere l'editor VB in questo modo:

Passaggio 4

Dalla parte sinistra della finestra Project, fare clic con il pulsante destro del mouse sull'elemento Project1 e inserire un modulo denominato Module1:

Passaggio 5

Una volta creato Module1, copiare il codice riportato di seguito nelfinestra sul lato destro come mostrato nel proiettile # 3.

Public Sub PrintAttachments() Dim Posta in arrivo come MAPIFolder Dim Elemento come MailItem Dim Atmt As allegato Dim FileName As String Dim i As Integer Set Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Stampe di batch") Per ogni articolo In Posta in entrata. Items per ogni Atmt In Item. Attachments 'tutti gli allegati vengono prima salvati nella cartella temporanea C: \ Temp. Assicurati di creare questa cartella. FileName = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName 'si prega di cambiare la cartella del programma di conseguenza se Acrobat Reader non è installato sull'unità C: Shell "" "C: \ Programmi \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe" "/ h /p "" "+ FileName +" "" ", vbHide Next Item. Delete 'rimuovi questa riga se non vuoi che l'email sia cancellata automaticamente Next Set Inbox = Nothing End Sub

Nota che potresti dover cambiare la lineadi codice che chiama Acrobat per abbinare il percorso sul tuo sistema.

passaggio 6

Ora l'installazione è completa. Tutte le e-mail dal tuo fornitore di fax saranno trasferite alle tue "Stampe di batch" quando entrano. Si prega di notare, nell'esempio, che ci aspettiamo che tutti gli allegati siano in formato PDF, quindi usiamo Acrobat acrord32.exe per stampare ogni allegato.

Utilizzo della macro

Ora, quando si desidera stampare tutti gli allegati, è sufficiente accedere alla macro ed eseguire la macro PrintAttachments e tutti gli allegati verranno stampati in sequenza. L'email verrà eliminata e spostata nel cestino una volta stampata.

Nota: le stampe vengono indirizzate alla stampante predefinita, quindi è necessario accertarsi che un driver di stampante valido sia configurato e selezionato.

Spero che questo sia utile!