Note: The other languages of the website are Google-translated. Back to English

Πώς να εκτυπώσετε αυτόματα συνημμένα όταν φτάνουν μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook;

Αυτό το σεμινάριο παρουσιάζει μια μέθοδο συνδυασμού μιας δέσμης ενεργειών VBA και ενός κανόνα του Outlook για να σας βοηθήσει να εκτυπώνετε αυτόματα συνημμένα ορισμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου όταν φτάνουν στο Outlook.


Αυτόματη εκτύπωση συνημμένων όταν φτάνουν ορισμένα email

Ας υποθέσουμε ότι θέλετε να εκτυπώσετε αυτόματα συνημμένα εισερχόμενων email από έναν συγκεκριμένο αποστολέα. Μπορείτε να κάνετε τα εξής για να το κάνετε.

Βήμα 1: Δημιουργήστε ένα σενάριο στο Outlook

Αρχικά, πρέπει να δημιουργήσετε μια δέσμη ενεργειών VBA στο Outlook.

1. Εκκινήστε το Outlook, πατήστε το άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Project1 > Αντικείμενα του Microsoft Outlook > Αυτό το OutlookSession για να ανοίξετε το ThisOutlookSession (Κωδικός) παράθυρο και, στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα σε αυτό το παράθυρο κώδικα.

Κωδικός VBA 1: Αυτόματη εκτύπωση συνημμένων (όλων των τύπων συνημμένων) όταν φτάνουν τα email


Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

Σημείωση: Αυτός ο κωδικός υποστηρίζει την εκτύπωση όλων των τύπων συνημμένων που λαμβάνονται σε email. Εάν θέλετε να εκτυπώσετε μόνο τον καθορισμένο τύπο συνημμένου, όπως αρχεία pdf, εφαρμόστε τον ακόλουθο κώδικα VBA.

Κωδικός VBA 2: Εκτυπώστε αυτόματα τον καθορισμένο τύπο συνημμένων όταν φτάνουν τα μηνύματα ηλεκτρονικού ταχυδρομείου

Sub AttachementAutoPrint(Item As Outlook.MailItem)
'Updated by Extendoffice 20220413
  Dim xFS As FileSystemObject
  Dim xTempFolder As String
  Dim xAtt As Attachment
  On Error Resume Next
  Set xFS = New FileSystemObject
  xTempFolder = xFS.GetSpecialFolder(TemporaryFolder)
  xTempFolder = xTempFolder & "\ATMP" & Format(Now, "yyyymmddhhmmss")
  MkDir (xTempFolder)
  
  'Set Item = Application.ActiveExplorer.Selection.Item(1)
  Set xShell = CreateObject("Shell.Application")
  Set xFolder = xShell.NameSpace(0)
  For Each xAtt In Item.Attachments
    xFileName = xAtt.FileName
    xFileType = LCase$(Right$(xFileName, 4))
    xFileName = xTempFolder & "\" & xFileName
    xAtt.SaveAsFile (xFileName)
    Select Case xFileType
    Case "pdf" ‘change “pdf” to the file extension you want to print
      Set xFolderItem = xFolder.ParseName(xFileName)
      xFolderItem.InvokeVerbEx ("print")
     End Select
  Next xAtt
'xFS.DeleteFolder (xTempFolder)
Set xFS = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
Set xShell = Nothing
xError:
  If Err <> 0 Then
    MsgBox Err.Number & " - " & Err.Description, , "Kutools for Outlook"
    Err.Clear
  End If
Exit Sub
End Sub

Σημείωση: Στη γραμμή Υπόθεση "pdf", Παρακαλώ αλλάξτε “pdf” στην επέκταση αρχείου που θέλετε να εκτυπώσετε.

3. Προχωρήστε και κάντε κλικ Εργαλεία > Βιβλιογραφικές αναφορές. Στο αναδυόμενο Αναφορές – Έργο1 πλαίσιο ελέγχου, ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft πλαίσιο και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

4. Αποθηκεύστε τον κωδικό και πατήστε το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Σημείωση: Βεβαιωθείτε ότι το Ενεργοποιήστε όλες τις μακροεντολές Η επιλογή είναι ενεργοποιημένη στο Outlook σας. Μπορείτε να ελέγξετε αυτήν την επιλογή ακολουθώντας τα βήματα που φαίνονται παρακάτω.

Βήμα 2: Δημιουργήστε έναν κανόνα για να χρησιμοποιήσετε το σενάριο

Αφού προσθέσετε τη δέσμη ενεργειών VBA στο Outlook, πρέπει να δημιουργήσετε έναν κανόνα για να χρησιμοποιήσετε τη δέσμη ενεργειών βάσει συγκεκριμένων συνθηκών.

1. Μεταβείτε στην καρτέλα Αρχική σελίδα, κάντε κλικ Κανόνες που > Διαχείριση κανόνων και ειδοποιήσεων.

2. Στο Κανόνες και ειδοποιήσεις , κάντε κλικ στο Νέος κανόνας κουμπί για να δημιουργήσετε έναν κανόνα.

Συμβουλές: Εάν έχετε προσθέσει πολλούς λογαριασμούς email στο Outlook σας, καθορίστε έναν λογαριασμό στο Εφαρμόστε αλλαγές σε αυτόν τον φάκελο αναπτυσσόμενη λίστα όπου θέλετε να εφαρμόσετε τον κανόνα. Διαφορετικά, θα εφαρμοστεί στα εισερχόμενα του τρέχοντος επιλεγμένου λογαριασμού email.

3. Στην πρώτη Οδηγός κανόνων , επιλέξτε Εφαρμόστε τον κανόνα στα μηνύματα που λαμβάνω στο 1 βήμα πλαίσιο και, στη συνέχεια, κάντε κλικ στο Επόμενο.

4. Στο δεύτερο Οδηγός κανόνων πλαίσιο διαλόγου, πρέπει:

4.1) Καθορίστε μία ή περισσότερες συνθήκες στο 1 βήμα κουτί σύμφωνα με τις ανάγκες σας.
Σε αυτήν την περίπτωση, θέλω να εκτυπώσω μόνο τα συνημμένα στα εισερχόμενα email από έναν καθορισμένο αποστολέα. Εδώ, ελέγχω το από άτομα ή δημόσιες ομάδες κουτί.
4.2) Κάντε κλικ στην υπογραμμισμένη τιμή στο 2 βήμα πλαίσιο για να επεξεργαστείτε τη συνθήκη.
4.3) Κάντε κλικ στο κουμπί Επόμενο. Δείτε screenshot:

5. Στο τρίτο Οδηγός κανόνων πλαίσιο διαλόγου, πρέπει να διαμορφώσετε ως εξής.

5.1) Στο Βήμα 1: Επιλέξτε ενότητα ενεργειών, έλεγξε το εκτελέστε ένα σενάριο κουτί;
5.2) Στο 2 βήμα ενότητα, κάντε κλικ στο υπογραμμισμένο κείμενο "ένα σενάριο".
5.3) Στο άνοιγμα Επιλέξτε Σενάριο στο παράθυρο διαλόγου, κάντε κλικ στο όνομα του κώδικα VBA που προσθέσατε παραπάνω και, στη συνέχεια, κάντε κλικ ΕΝΤΑΞΕΙ;
5.4) Κάντε κλικ στο επόμενος κουμπί. Δείτε το στιγμιότυπο οθόνης:

Συμβουλές: Αν το "εκτελέστε ένα σενάριο” η επιλογή λείπει στο δικό σας Οδηγός κανόνων, μπορείτε να το εμφανίσετε ακολουθώντας τη μέθοδο που αναφέρεται σε αυτό το άρθρο: επαναφορά της λείπουσας ενότητας Εκτέλεση δέσμης ενεργειών στον κανόνα του Outlook.

6. Τότε άλλο Οδηγός κανόνων εμφανίζεται ζητώντας εξαιρέσεις. Μπορείτε να επιλέξετε τις εξαιρέσεις εάν είναι απαραίτητο, διαφορετικά κάντε κλικ στο επόμενος κουμπί χωρίς καμία επιλογή.

7. Στο τελευταίο Οδηγός κανόνων, πρέπει να καθορίσετε ένα όνομα για τον κανόνα και, στη συνέχεια, κάντε κλικ στο φινίρισμα κουμπί.

8. Στη συνέχεια επιστρέφει στο Κανόνες και ειδοποιήσεις στο παράθυρο διαλόγου, μπορείτε να δείτε τον κανόνα που δημιουργήσατε να παρατίθεται μέσα, κάντε κλικ στο OK για να ολοκληρώσετε όλες τις ρυθμίσεις.

Από εδώ και στο εξής, όταν λαμβάνεται ένα email από το συγκεκριμένο άτομο, τα συνημμένα αρχεία θα εκτυπώνονται αυτόματα.


Σχετικά Άρθρα

Εκτυπώστε μόνο συνημμένα από ένα email ή επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook
Στο Outlook, μπορείτε να εκτυπώσετε τα email, αλλά έχετε εκτυπώσει τα συνημμένα μόνο από ένα email ή επιλεγμένα email στο Outlook; Αυτό το άρθρο παρουσιάζει τα κόλπα για την επίλυση αυτής της εργασίας.

Εκτυπώστε μόνο την κεφαλίδα ενός μηνύματος ηλεκτρονικού ταχυδρομείου στο Outlook
Κατά την εκτύπωση ενός email στο Outlook, θα εκτυπωθεί τόσο η κεφαλίδα του μηνύματος όσο και το σώμα του μηνύματος στο email. Ωστόσο, σε ορισμένες ειδικές περιπτώσεις, ίσως χρειαστεί απλώς να εκτυπώσετε την κεφαλίδα του μηνύματος με το θέμα, τον αποστολέα, τους παραλήπτες κ.λπ. Αυτό το άρθρο θα παρουσιάσει δύο λύσεις για να το κάνετε.

Εκτυπώστε ένα ημερολόγιο σε ένα καθορισμένο/προσαρμοσμένο εύρος ημερομηνιών στο Outlook
Κανονικά, κατά την εκτύπωση ενός ημερολογίου σε προβολή μήνα στο Outlook, θα επιλέξει αυτόματα τον μήνα που περιέχει την τρέχουσα επιλεγμένη ημερομηνία. Ωστόσο, ίσως χρειαστεί να εκτυπώσετε το ημερολόγιο μέσα σε ένα προσαρμοσμένο εύρος ημερομηνιών, όπως 3 μήνες, εξάμηνο κ.λπ. Αυτό το άρθρο θα παρουσιάσει τη λύση για εσάς.

Εκτύπωση επαφής με εικόνα στο Outlook
Κανονικά, η εικόνα μιας επαφής δεν θα εκτυπωθεί κατά την εκτύπωση της επαφής στο Outlook. Αλλά μερικές φορές, θα είναι πιο εντυπωσιακό να εκτυπώνετε μια επαφή με την εικόνα της. Αυτό το άρθρο θα παρουσιάσει μερικές λύσεις για να το ολοκληρώσει.

Εκτυπώστε μια επιλογή από ένα email στο Outlook
Εάν λάβατε ένα μήνυμα email και διαπιστώσατε ότι υπάρχει μια επιλογή του περιεχομένου email, πρέπει να εκτυπωθεί αντί να εκτυπώσετε ολόκληρο το μήνυμα, τι θα κάνατε; Στην πραγματικότητα, το Outlook μπορεί να σας βοηθήσει να επιτύχετε αυτήν τη λειτουργία με τη βοήθεια προγραμμάτων περιήγησης Διαδικτύου, όπως ο Firefox και ο Internet Explorer. Εδώ θα πάρω για παράδειγμα τα προγράμματα περιήγησης Διαδικτύου. Δείτε τα ακόλουθα σεμινάρια.

Περισσότερα άρθρα σχετικά με την "εκτύπωση στο Outlook"...


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0  Χαρακτήρες
Προτεινόμενες τοποθεσίες