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

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

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

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

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

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

2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτός ο διαλογισμός σταOutlookΣυνεδρία από το Έργο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 ""    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

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

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

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

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