Από προεπιλογή, το Outlook δεν σας υποστηρίζει να βρίσκετε και να αντικαθιστάτε κείμενο σε πολλά email ταυτόχρονα. Επομένως, εάν θέλετε να το κάνετε, μπορείτε να ανατρέξετε σε αυτό το άρθρο. Εδώ θα σας διδάξουμε πώς να το πραγματοποιήσετε μέσω του κώδικα VBA.
Για παράδειγμα, έχετε ολοκληρώσει πολλά μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook. Πριν τα στείλετε, ανακαλύπτετε κάποια λάθη και θέλετε να τροποποιήσετε ορισμένα κείμενα σε αυτά τα μηνύματα ηλεκτρονικού ταχυδρομείου. Σε γενικές γραμμές, πρέπει να εκτελέσετε «Εύρεση και αντικατάσταση» σε κάθε email ένα προς ένα. Ωστόσο, είναι πολύ δυσκίνητο. Εδώ θα σας δείξουμε έναν πιο αποτελεσματικό τρόπο, ο οποίος θα σας επιτρέψει να το επιτύχετε μαζικά.
Μαζική εύρεση και αντικατάσταση κειμένου σε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου
- Για να ξεκινήσετε, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, αποκτήστε πρόσβαση στον επεξεργαστή VBA μέσω των πλήκτρων "Alt + F11".
- Στο νέο παράθυρο, τοποθετήστε τον κωδικό VBA παρακάτω σε μια ενότητα ή έργο.
Sub FindReplaceInMultipleEmails()
Dim strFind, strReplace As String
Dim objInspectors As Outlook.Inspectors
Dim objInspector As Outlook.Inspector
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
'Enter the specific text
strFind = InputBox("Enter the text for find: (Case Sensitive)")
strReplace = InputBox("Enter the text for replacement: (Case Sensitive)")
If Trim(strFind) <> "" Then
Set objInspectors = Outlook.Application.Inspectors
For Each objInspector In objInspectors
If objInspector.CurrentItem.Class = olMail Then
If objInspector.EditorType = olEditorWord Then
Set objMail = objInspector.CurrentItem
Set objMailDocument = objMail.GetInspector.WordEditor
'Find & replace specific text
With objMailDocument.Content.Find
.ClearFormatting
.Text = strFind
.Replacement.ClearFormatting
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.Execute Replace:=wdReplaceAll
End With
objMail.Save
End If
End If
Next
MsgBox "Completed!", vbInformation + vbOKOnly
End If
End Sub
- Μετά από αυτό, προσθέστε αυτήν τη μακροεντολή στη Γραμμή εργαλείων γρήγορης πρόσβασης σύμφωνα με το "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
- Στη συνέχεια, μπορείτε να δοκιμάσετε αυτήν τη μακροεντολή τώρα.
- Ανοίξτε τα μηνύματα προέλευσης.
- Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Στη συνέχεια, πρέπει να εισαγάγετε τα συγκεκριμένα κείμενα για εύρεση και αντικατάσταση.
- Όταν λάβετε το μήνυμα "Ολοκληρώθηκε", μπορείτε να ελέγξετε τα μηνύματα προέλευσης.
Επαναφορά του Outlook από μη αναμενόμενα σφάλματα
Το Outlook μπορεί να διακοπεί τώρα και έπειτα εάν χειριστείτε το Outlook εσφαλμένα. Επιπλέον, συνήθως, σε περίπτωση σοβαρού σφάλματος του Outlook, το αρχείο Outlook τείνει να είναι κατεστραμμένο. Εκείνη τη στιγμή, πρέπει να επιχειρήσετε την ανάκτηση δεδομένων του Outlook. Φυσικά, θα είναι πολύ απλό εάν έχετε ένα ενημερωμένο αντίγραφο ασφαλείας δεδομένων. Αλλά αν όχι, θα πρέπει να εφαρμόσετε ένα συνεκτικό και αξιόπιστο εξωτερικό εργαλείο, όπως DataNumen Outlook Repair. Μπορεί να επιδιορθώστε το PST αρχείο χωρίς να ιδρώνεις.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Επισκευή MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com