Για να αλλάξετε το σώμα ενός ληφθέντος ή απεσταλμένου email στο Outlook, πρέπει να το ανοίξετε και στη συνέχεια να το θέσετε σε λειτουργία "Επεξεργασία". Εάν χρειάζεται συχνά να κάνετε τροποποιήσεις σε τέτοια email, θα πρέπει να τα ανοίγετε αυτόματα σε λειτουργία "Επεξεργασία". Αυτή η ανάρτηση θα σας βοηθήσει να το κάνετε.
Κατά καιρούς, ίσως χρειαστεί να τροποποιήσετε το περιεχόμενο ενός ληφθέντος ή απεσταλμένου email στο Outlook. Σε αυτό το σενάριο, όπως παρουσιάστηκε στην προηγούμενη ανάρτηση – "Τρόπος τροποποίησης του θέματος και του σώματος των ληφθέντων email στο Outlook", πρέπει να ανοίξετε το email και να κάνετε κλικ στο κουμπί "Ενέργειες" και να επιλέξετε "Επεξεργασία μηνύματος" για να μετατρέψετε το email σε λειτουργία "Επεξεργασία". Ωστόσο, μπορεί να πιστεύετε ότι εξακολουθεί να είναι λίγο ενοχλητικό. Επομένως, θέλετε το Outlook να ανοίγει πάντα τα ληφθέντα/απεσταλμένα μηνύματα ηλεκτρονικού ταχυδρομείου στη λειτουργία "Επεξεργασία". Στη συνέχεια, θα εισαγάγουμε τον τρόπο χρήσης του κώδικα VBA για την επίτευξη αυτής της λειτουργίας. Τώρα διαβάστε για να λάβετε λεπτομερή βήματα.
Ανοίξτε αυτόματα τα ληφθέντα/απεσταλμένα μηνύματα ηλεκτρονικού ταχυδρομείου στη λειτουργία "Επεξεργασία".
- Στην αρχή, με αναφορά στο «Τρόπος εκτέλεσης κώδικα VBA στο Outlook", αποκτήστε πρόσβαση στο πρόγραμμα επεξεργασίας Outlook VBA.
- Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο έργο "ThisOutlookSession".
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is MailItem Then
Set objMailInspector = Inspector
End If
End Sub
Private Sub objMailInspector_Activate()
Dim objMail As Outlook.MailItem
Set objMail = objMailInspector.CurrentItem
'If it is a recieved/sent mail instead of a new email
If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
'open in "Edit" mode
objMailInspector.CommandBars.ExecuteMso ("EditMessage")
End If
End Sub
- Στη συνέχεια, κάντε κλικ στη μακροεντολή "Application_Startup" και πατήστε το πλήκτρο "F5".
- Προς το παρόν, κλείστε το πρόγραμμα επεξεργασίας VBA.
- Τέλος, μπορείτε να δοκιμάσετε. Απλώς κάντε διπλό κλικ σε ένα ληφθέν ή σταλμένο μήνυμα για να το ανοίξετε. Σίγουρα θα βρίσκεται στη λειτουργία "Επεξεργασία".
Ανοσία από απώλεια δεδομένων του Outlook
Έχει γίνει ποτέ απρόσιτο το αρχείο PST; Στην πραγματικότητα, το αρχείο PST του Outlook μπορεί να καταστραφεί εύκολα. Για παράδειγμα, οι ιοί που μεταδίδονται μέσω email μπορούν εύκολα να οδηγήσουν σε συντριβή του Outlook και ως εκ τούτου να οδηγήσουν σε καταστροφή των δεδομένων του Outlook. Σε τέτοιες περιπτώσεις, η πρώτη λύση που συμβαίνει στο μυαλό σας μπορεί να είναι εργαλείο επισκευής εισερχομένων. Ωστόσο, σε γενικές γραμμές, είναι ανίκανο να αντιμετωπίσει τόσο σοβαρές καταστάσεις. Ως εκ τούτου, προτείνεται πάντα να δημιουργείτε αντίγραφα ασφαλείας των αρχείων PST σε τακτά χρονικά διαστήματα, έτσι ώστε να μπορείτε να επαναφέρετε δεδομένα PST από αντίγραφα ασφαλείας όπως ο φελλός. Διαφορετικά, θα πρέπει να επιστρέψετε σε ένα εξειδικευμένο εξωτερικό εργαλείο, όπως π.χ DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com