3Jul
Το άρθρο αυτό γράφτηκε από τον Sean Tsai, ένα ειδικό αποθήκευση δεδομένων και καλός φίλος του How-To Geek
Θελήσατε ποτέ να εκτυπώσετε κάθε συνημμένο που λαμβάνετε στο κιβώτιο ηλεκτρονικού ταχυδρομείου Outlook σας;Ας υποθέσουμε ότι έχετε εγγραφεί σε υπηρεσία δωρεάν φαξ στην υπηρεσία ηλεκτρονικού ταχυδρομείου PDF και θέλετε να εκτυπώνονται αυτόματα ακριβώς όπως ένα παλιό μηχάνημα φαξ.
Εδώ είναι ένας γρήγορος τρόπος για να επιτευχθεί αυτό αν είστε άνετοι με ένα μικρό κομμάτι του VB( macro) προγραμματισμού.
Αυτό που εμφανίζουμε εδώ είναι να δημιουργήσετε έναν κανόνα στο Outlook και να μετακινήσετε τα εισερχόμενα μηνύματα φαξ σε έναν ξεχωριστό υποφάκελο.Χρησιμοποιώντας τον κώδικα VB δημιουργούμε μια μακροεντολή για να εκτελέσετε μια εργασία εκτύπωσης σε κάθε μήνυμα ηλεκτρονικού ταχυδρομείου στον υποφάκελο, ώστε να μην χρειαστεί να ανοίξετε το μήνυμα ηλεκτρονικού ταχυδρομείου και να εκτυπώσετε τα συνημμένα ένα προς ένα.
Βήμα 1
Δημιουργήστε έναν υποφάκελο που ονομάζεται "παρτίδες εκτυπώσεις" στο "Γραμματοκιβώτιο - YourName" στο Outlook.
Βήμα 2
Δημιουργήστε έναν κανόνα( από το μενού Εργαλεία / Κανόνες και ειδοποιήσεις) στο Outlook που μοιάζει με αυτό:
Τοποθετήστε την διεύθυνση e-mail από τον προμηθευτή του φαξ σας στο πεδίο «[email protected]».Στη γραμμή θέματος, τοποθετήστε το επίμονο κείμενο που αποστέλλεται από τον προμηθευτή φαξ κάθε φορά( μην τοποθετείτε το κείμενο που θα αλλάζεται περιοδικά).Το τρίτο πεδίο "Batch Prints" είναι ο υποφάκελος που μόλις δημιουργήσατε στο πρώτο βήμα.
Βήμα 3
Δημιουργήστε μια μακροεντολή VB.Αρχικά ανασηκώστε τον επεξεργαστή VB μεταβαίνοντας στον Εργαλεία /Macro/ Visual Basic Editor.Θα πρέπει να δείτε το πρόγραμμα επεξεργασίας VB μοιάζει με αυτό:
Βήμα 4
Από την αριστερή πλευρά παράθυρο έργου, κάντε δεξί κλικ στο στοιχείο Project1 και τοποθετήστε μια μονάδα που ονομάζεται Module1:
Βήμα 5
Μόλις το Module1 δημιουργείται, αντιγράψτε τον παρακάτω κώδικα σε τοπαράθυρο στη δεξιά πλευρά, όπως φαίνεται στη σφαίρα # 3.PrintAttachments
Public Sub() Dim Εισερχόμενα Όπως MAPIFolder Δημ Είδους Όπως MailItem Δημ Atmt ως συνημμένο Δημ όνομα αρχείου String Dim i As Integer Set Εισερχόμενα = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( «Εκτυπώσεις Batch") Για κάθε στοιχείο στο φάκελο Inbox. Items για κάθε ατμόσφαιρα στο στοιχείο. Τα πρόσθετα όλων των συνημμένων αποθηκεύονται αρχικά στο φάκελο temp C: \ Temp.Βεβαιωθείτε ότι έχετε δημιουργήσει αυτόν τον φάκελο.Όνομα_αρχείου = "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 και όλα τα συνημμένα θα τυπωθούν διαδοχικά.Το μήνυμα ηλεκτρονικού ταχυδρομείου θα διαγραφεί και θα μεταφερθεί στον κάδο απορριμάτων μόλις εκτυπωθεί.
Σημείωση: οι εκτυπώσεις δρομολογούνται στον προεπιλεγμένο εκτυπωτή σας, επομένως πρέπει να βεβαιωθείτε ότι είναι εγκατεστημένο και επιλεγμένο ένα έγκυρο πρόγραμμα οδήγησης εκτυπωτή.
Ελπίζω αυτό να είναι χρήσιμο!