Παρτίδα Εκτύπωση συνημμένων PDF στο Outlook
Αυτό το άρθρο γράφτηκε από τον Sean Tsai, έναν εμπειρογνώμονα αποθήκευσης δεδομένων και καλός φίλος του How-To Geek
Θέλατε ποτέ να εκτυπώσετε κάθε συνημμένο που λαμβάνετε στο πλαίσιο email του Outlook; Ας υποθέσουμε ότι έχετε εγγραφεί σε υπηρεσία δωρεάν φαξ στην υπηρεσία ηλεκτρονικού ταχυδρομείου PDF και θέλετε να εκτυπώνονται αυτόματα όπως ένα παλιό μηχάνημα φαξ.
Εδώ είναι ένας γρήγορος τρόπος για να επιτευχθεί αυτό, αν είστε άνετοι με ένα μικρό κομμάτι του VB (macro) προγραμματισμού.
Αυτό που δείχνουμε εδώ είναι να δημιουργήσετε έναν κανόνα στο Outlook και να μετακινήσετε τα εισερχόμενα μηνύματα φαξ σε έναν ξεχωριστό υποφάκελο. Χρησιμοποιώντας κώδικα VB δημιουργούμε μια μακροεντολή για να εκτελέσετε μια εργασία εκτύπωσης ενάντια σε κάθε e-mail στο εν λόγω υποφάκελο, ώστε να μην χρειάζεται να ανοίξει το ηλεκτρονικό ταχυδρομείο και να εκτυπώσετε τα συνημμένα μία προς μία.
Βήμα 1
Δημιουργήστε έναν υποφάκελο που ονομάζεται "Batch Prints" στο "Mailbox - YourName" στο Outlook.
Βήμα 2
Δημιουργήστε έναν κανόνα (από το μενού Εργαλεία / Κανόνες και Ειδοποιήσεις) στο Outlook που μοιάζει με αυτό:
Τοποθετήστε τη διεύθυνση ηλεκτρονικού ταχυδρομείου από τον προμηθευτή του φαξ σας στο πεδίο "[email protected]". Στη γραμμή θέματος, τοποθετήστε το επίμονο κείμενο που αποστέλλεται από τον πωλητή φαξ κάθε φορά (μην τοποθετείτε το κείμενο που θα αλλάζεται περιοδικά). Οι 3rd Το πεδίο "Batch Prints" είναι ο υποφάκελος που μόλις δημιουργήσατε στο πρώτο βήμα.
Βήμα 3
Δημιουργήστε μια μακροεντολή VB. Αρχικά ανασηκώστε τον επεξεργαστή VB μεταβαίνοντας στον Εργαλεία / Macro / Visual Basic Editor. Θα πρέπει να δείτε τον επεξεργαστή VB μοιάζει με αυτό:
Βήμα 4
Από την αριστερή πλευρά του παραθύρου έργου, κάντε δεξί κλικ στο στοιχείο Project1 και εισάγετε μια ενότητα που ονομάζεται Module1:
Βήμα 5
Αφού δημιουργηθεί η Ενότητα1, αντιγράψτε τον παρακάτω κώδικα στο παράθυρο που βρίσκεται στη δεξιά πλευρά, όπως φαίνεται στη σφαίρα # 3.
PrintAttachments Public Sub () Dim Εισερχόμενα Όπως MAPIFolder Δημ Είδους Όπως MailItem Δημ Atmt ως συνημμένο Δημ όνομα αρχείου String Dim i As Integer Set Εισερχόμενα = GetNamespace ( "MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ( "Εκτυπώσεις παρτίδα" ) Για κάθε στοιχείο Inbox.Items Για Κάθε Atmt σε Item.Attachments 'όλα τα συνημμένα πρώτα αποθηκεύονται στο φάκελο temp C: \ Temp. Βεβαιωθείτε ότι έχετε δημιουργήσει αυτόν τον φάκελο. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile Όνομα αρχείου "αλλάξτε το φάκελο του προγράμματος αναλόγως αν το Acrobat Reader δεν είναι εγκατεστημένο στη μονάδα δίσκου C: Shell """ C: \ Program Files \ Adobe \ Reader 8.0 \ Reader \ AcroRd32.exe «» / h / p «»»+ FileName +“”“”, vbHide Επόμενο Item.Delete«αφαιρέσει αυτή τη γραμμή, αν δεν θέλετε το e-mail που θέλετε να διαγράψετε αυτόματα Επόμενο Εισερχόμενα = Nothing End Sub
Σημειώστε ότι μπορεί να χρειαστεί να αλλάξετε τη γραμμή κώδικα που καλεί το Acrobat να ταιριάζει με τη διαδρομή του συστήματός σας.
Βήμα 6
Τώρα η ρύθμιση ολοκληρώθηκε. Όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου από τον προμηθευτή του φαξ σας θα μεταφερθεί στο «Εκτυπώσεις παρτίδα» σας όταν έρχονται σε. Παρακαλώ σημειώστε, στο παράδειγμα, περιμένουμε όλα τα εξαρτήματα είναι σε μορφή PDF, έτσι χρησιμοποιούμε Acrobat AcroRd32.exe για να εκτυπώσετε κάθε εξάρτημα.
Χρησιμοποιώντας τη μακροεντολή
Τώρα, όταν θέλετε να εκτυπώσετε όλα τα συνημμένα, απλά μεταβείτε στη μακροεντολή και εκτελέστε τη μακροεντολή PrintAttachments και όλα τα συνημμένα θα εκτυπωθούν διαδοχικά. Το μήνυμα ηλεκτρονικού ταχυδρομείου θα διαγραφεί και θα μεταφερθεί στον κάδο απορριμάτων μόλις εκτυπωθεί.
Σημείωση: οι εκτυπώσεις δρομολογούνται στον προεπιλεγμένο εκτυπωτή, οπότε πρέπει να βεβαιωθείτε ότι έχει οριστεί και επιλεγεί ένα έγκυρο πρόγραμμα οδήγησης εκτυπωτή.
Ελπίζω ότι αυτό είναι χρήσιμο!
