Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

Πώς να προωθήσετε αυτόματα συνημμένα με βάση συγκεκριμένα κριτήρια στο Outlook;

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

Προώθηση μόνο συνημμένων βάσει συγκεκριμένων κριτηρίων σε ένα άτομο αυτόματα με κωδικό VBA


Προώθηση μόνο συνημμένων βάσει συγκεκριμένων κριτηρίων σε ένα άτομο αυτόματα με κωδικό VBA

Για παράδειγμα, κατά τη λήψη ενός μηνύματος ηλεκτρονικού ταχυδρομείου το οποίο περιέχει το κείμενο "λειτουργία kto", όλα τα συνημμένα αυτού του μηνύματος θα προωθούνται αυτόματα στο συγκεκριμένο άτομο χωρίς σώμα μηνύματος. Τα παρακάτω βήματα μπορούν να σας βοηθήσουν, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ ThisOutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή μονάδα.

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

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
    Dim xForwardMail As Outlook.MailItem
    Dim xEmail As MailItem
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xEmail = Item
    If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub  'change subject text to your need
    If xEmail.Attachments.Count = 0 Then Exit Sub
    Set xForwardMail = xEmail.Forward
    With xForwardMail
        .HTMLBody = ""
        With .Recipients
            .Add "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Note: Στον παραπάνω κώδικα, θα πρέπει να αλλάξετε το κείμενο του θέματος και τη διεύθυνση παραλήπτη στο δικό σας.

doc αυτόματη προώθηση συνημμένων μόνο 1

3. Στη συνέχεια, αποθηκεύστε τον κώδικα και επανεκκινήστε το Outlook για να λάβετε το εφέ κώδικα.

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

Note: Αυτός ο κωδικός είναι διαθέσιμος μόνο στον προεπιλεγμένο λογαριασμό.


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

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

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 1 years ago
    This is great, but if someone replies to the chain of the email with an attachment it will auto-forward that attachment as well. Is there a way to avoid this? Thanks