Για να προωθήσετε αυτόματα συγκεκριμένα εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου, θα σκεφτείτε πρώτα να χρησιμοποιήσετε κανόνες στο Outlook. Ωστόσο, ο κανόνας δεν σας υποστηρίζει να προσαρμόσετε το θέμα και το σώμα του email κατά την προώθηση. Εάν θέλετε να προωθήσετε αυτόματα συγκεκριμένα μηνύματα ηλεκτρονικού ταχυδρομείου με προσαρμοσμένο θέμα και σώμα, μπορείτε να χρησιμοποιήσετε τη μέθοδο που παρουσιάζεται σε αυτό το άρθρο.
Όπως όλοι γνωρίζουμε, οι κανόνες του Outlook μπορούν να υποστηρίξουν τους χρήστες να προωθήσουν αυτόματα συγκεκριμένα εισερχόμενα email. Με αυτόν τον τρόπο, το email θα προωθηθεί αυτόματα στα συγκεκριμένα άτομα με το θέμα στο μοτίβο "FW: αρχικό θέμα αλληλογραφίας" και το αρχικό σώμα της αλληλογραφίας. Ωστόσο, πολλοί χρήστες ελπίζουν να προωθήσουν αυτόματα μηνύματα ηλεκτρονικού ταχυδρομείου με προσαρμοσμένο θέμα και σώμα. Προφανώς, οι κανόνες δεν μπορούν να το συνειδητοποιήσουν. Επομένως, εδώ θα εισαγάγουμε μια προσέγγιση για να το αποκτήσετε εύκολα.
Αυτόματη προώθηση Εισερχόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου με προσαρμοσμένο θέμα και σώμα
- Στην αρχή, starστο πρόγραμμά σας Outlook.
- Στη συνέχεια, αποκτήστε πρόσβαση στον επεξεργαστή VBA με αναφορά στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
- Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο έργο "ThisOutlookSession".
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInbox.Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objForward As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
'If it is a specific new email
If (objMail.SenderEmailAddress = "bob_black@datanumen.com") And (objMail.Importance = olImportanceHigh) And (objMail.Attachments.Count > 0) Then
Set objForward = objMail.Forward
'Customize the forward subject, body and recipients
With objForward
.Subject = "Custom Subject"
.HTMLBody = "<HTML><BODY>Type body here. </BODY></HTML>" & objForward.HTMLBody
.Recipients.Add ("boss@datanumen.com")
.Recipients.Add ("john@datanumen.com")
.Recipients.ResolveAll
.Importance = olImportanceHigh
.Send
End With
End If
End If
End Sub
- Μετά από αυτό, αλλάξτε τα κριτήρια των καθορισμένων εισερχόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου. Και τροποποιήστε το συγκεκριμένο σώμα, θέμα και παραλήπτες στον κωδικό σύμφωνα με τις ανάγκες σας.
- Τελικά, κάντε κλικ στο "Application_Startup” υπορουτίνα και πατήστε το πλήκτρο “F5”.
- Από τότε, κάθε φορά που φθάνει ένα συγκεκριμένο εισερχόμενο στον προεπιλεγμένο φάκελο Εισερχόμενα, το Outlook θα το προωθήσει αυτόματα με προσαρμοσμένο θέμα και σώμα στους προκαθορισμένους παραλήπτες.
Αντιμετωπίστε τα ζητήματα του Outlook με ευελιξία
Παρόλο που το Outlook είναι πλούσιο σε χαρακτηριστικά, δεν μπορεί να είναι προστατευμένο από σφάλματα και άλλα προβλήματα. Για παράδειγμα, το αρχείο PST του Outlook μπορεί να καταστραφεί εύκολα λόγω πολλών παραγόντων. Αυτά περιλαμβάνουν ανθρώπινα λάθη, ιούς, μεγάλου μεγέθους αρχείο PST και κατεστραμμένα προφίλ του Outlook και ούτω καθεξής. Ως εκ τούτου, πρέπει να λάβετε ορισμένες προφυλάξεις, όπως να είστε προσεκτικοί με το μέγεθος αρχείου του Outlook PST, να κρατήσετε μακριά όλους τους ιούς καθώς και να διατηρήσετε ισχυρό έλεγχο Ανάκτηση του Outlook εργαλείο, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων SQL Server ανάκτηση και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com