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 tua 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 fax vecchio stile.
Ecco un modo rapido per raggiungere questo obiettivo se ti trovi bene 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.
Passo 1
Creare una sottocartella denominata "Stampe batch" in "Cassetta postale - YourName" in Outlook.
Passo 2
Crea una regola (dal menu Strumenti / Regole e Avvisi) in Outlook che assomiglia a questo:
Inserisci l'indirizzo email dal tuo 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 3rd campo "Stampe batch" è la sottocartella appena creata nel primo passaggio.
Passaggio 3
Crea una macro VB. Per prima cosa fai apparire l'editor VB andando su Tools / 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, copia il codice qui sotto nella finestra sul lato destro come mostrato nel punto # 3.
Public Sub PrintAttachments () Dim Inbox As MAPIFolder Dim Item As MailItem Dim Atmt As Attachment Dim FileName As String Dim i As Integer Imposta Inbox = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Stampa batch") ) Per ogni elemento 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 NomeFile "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 Si noti che potrebbe essere necessario modificare la riga di codice che chiama Acrobat per abbinare il percorso sul proprio sistema.
Passaggio 6
Ora l'installazione è completa. Tutte le e-mail dal tuo fornitore di fax saranno trasferite alle tue "Stampe 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.
Utilizzando la 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 stampa valido sia configurato e selezionato.
Spero che questo sia utile!
