Ορισμένοι χρήστες έχουν ρυθμίσει περισσότερους από έναν λογαριασμούς email στο Outlook και ορίζουν έναν ως τον προεπιλεγμένο λογαριασμό. Ωστόσο, επιθυμούν επίσης το Outlook να προωθήσει αυτόματα συγκεκριμένα εισερχόμενα email μέσω άλλου λογαριασμού. Το Outlook δεν διαθέτει τέτοια λειτουργία, επομένως μπορεί να πραγματοποιηθεί μόνο με τον κοινόχρηστο κώδικα VBA σε αυτό το άρθρο.
Για παράδειγμα, έχετε ρυθμίσει δύο λογαριασμούς email POP3 στο Outlook και ορίστε τον λογαριασμό 1 ως τον προεπιλεγμένο λογαριασμό. Με αυτόν τον τρόπο, όλα τα εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου θα αποθηκεύονταν στο αρχείο Outlook του λογαριασμού 1. Και δημιουργείτε έναν κανόνα του Outlook για να προωθήσετε αυτόματα τα συγκεκριμένα εισερχόμενα email σε κάποιον άλλο. Τώρα, αυτό που ελπίζετε είναι ότι όλη η προώθηση αλληλογραφίας εκτελείται μέσω άλλου λογαριασμού email, δηλαδή του λογαριασμού 2. Ωστόσο, ο κανόνας του Outlook δεν παρέχει τέτοια ενέργεια. Επομένως, πρέπει να χρησιμοποιήσετε άλλες μεθόδους, όπως τον ακόλουθο τρόπο.
Αυτόματη προώθηση συγκεκριμένων εισερχόμενων email μέσω διαφορετικού λογαριασμού
- Αρχικά, στο Outlook, αποκτήστε πρόσβαση στο πρόγραμμα επεξεργασίας VBA μέσω του "Alt + F11".
- Στη συνέχεια, στο πρόγραμμα επεξεργασίας VBA, τοποθετήστε τον ακόλουθο κώδικα VBA σε μια μονάδα αδράνειας.
Sub AutoForwardMailsThroughAnotherAccount(objMail As Outlook.MailItem)
Dim objForwardMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Dim objMailAccounts As Outlook.Accounts
Dim objMailAccount As Outlook.Account
Set objForwardMail = objMail.Forward
'Change the recipients of forwarding email
Set objRecipient = objForwardMail.Recipients.Add("shelly@datanumen.com")
objRecipient.Type = olTo
objForwardMail.Recipients.ResolveAll
Set objMailAccounts = Outlook.Application.Session.Accounts
For Each objMailAccount In objMailAccounts
'Replace "John Smith" with the display name of your email account
If objMailAccount.DisplayName = "John Smith" Then
objForwardMail.SendUsingAccount = objMailAccount
objForwardMail.Send
End If
Next
End Sub
- Στη συνέχεια, βγείτε από τον επεξεργαστή VBA.
- Στη συνέχεια, κάντε κλικ στην επιλογή "Κανόνες"> "Διαχείριση κανόνων και ειδοποιήσεων" στην καρτέλα "Αρχική σελίδα".
- Στη συνέχεια, στο νέο παράθυρο διαλόγου, πατήστε "Νέος κανόνας".
- Μετά από αυτό, θα εμφανιστεί ένα άλλο παράθυρο διαλόγου, στο οποίο πρέπει να επιλέξετε "Εφαρμογή κανόνα στα μηνύματα που λαμβάνω" και κάντε κλικ στο "Επόμενο".
- Στη συνέχεια, στη νέα οθόνη, πρέπει να ορίσετε την κατάσταση του κανόνα, όπως "με συγκεκριμένες λέξεις στο θέμα" και πατήστε "Επόμενο".
- Στην επόμενη οθόνη, πρέπει να επιλέξετε "εκτέλεση σεναρίου" και να επιλέξετε τη νέα μακροεντολή που προσθέσατε μόλις τώρα.
- Μετά από αυτό, μπορείτε να ολοκληρώσετε τη ρύθμιση κανόνων σύμφωνα με τους οδηγούς στην οθόνη.
- Από τώρα και στο εξής, κάθε φορά που ένα συγκεκριμένο email εισέρχεται στο συγκεκριμένο γραμματοκιβώτιο, το Outlook το προωθεί αυτόματα μέσω άλλου συγκεκριμένου λογαριασμού email.
Διάσωση δεδομένων του Outlook μετά από ζημιά
Παρόλο που το Outlook παρέχει ποσότητες λειτουργιών, εξακολουθεί να μην είναι απαλλαγμένο από σφάλματα και καταστροφή. Εάν το Outlook διακοπεί ξαφνικά, υπάρχει πιθανότητα το αρχείο δεδομένων του Outlook να καταστραφεί. Εκείνη την εποχή, ακόμη και το ενσωματωμένο Επισκευή του Outlook εργαλείο, το Scanpst, δεν μπορεί να σας βοηθήσει. Δεν έχετε άλλη εναλλακτική λύση παρά να βοηθήσετε ένα τρομερό εξωτερικό εργαλείο, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com