Όταν προσπαθείτε να απαντήσετε ή να προωθήσετε μηνύματα ηλεκτρονικού ταχυδρομείου πατώντας το κουμπί "Απάντηση", "Απάντηση σε όλους" ή "Προώθηση", πρέπει να προστεθεί το πρόθεμα "RE" ή "FW" στο μπροστινό μέρος του θέματος του email. Αυτό το άρθρο θα σας πει πώς να επιτρέψετε στο Outlook να τα καταργήσει αυτόματα με το VBA.
Στο διαπερατό μας άρθρο - "2 Μέθοδοι προώθησης μηνυμάτων Outlook χωρίς πρόθεμα "FW" στο Θέμα", Μπορείτε να λάβετε δύο λύσεις για την προώθηση μηνυμάτων ηλεκτρονικού ταχυδρομείου χωρίς" FW ". Στέλνουν ξανά τα email και δημιουργούν ένα γρήγορο βήμα "Προώθηση" αντίστοιχα. Είναι προφανές ότι και οι δύο δεν μπορούν να σας επιτρέψουν να αφαιρέσετε αυτόματα το "FW" εάν χρησιμοποιείτε το κανονικό κουμπί "Προώθηση" στην ομάδα "Απάντηση".
Επομένως, από προεπιλογή, εάν θέλετε να καταργήσετε το πρόθεμα "RE" ή "FW" στο θέμα όταν κάνετε κλικ στο κουμπί "Απάντηση", "Απάντηση σε όλους" ή "Προώθηση", πρέπει να τα διαγράφετε χειροκίνητα κάθε φορά. Θα είναι αρκετά ενοχλητικό. Ευτυχώς, μπορείτε να χρησιμοποιήσετε το Outlook VBA για να καταργήσετε αυτόματα τις συγκεκριμένες λέξεις στο θέμα αλληλογραφίας. Διαβάστε παρακάτω για να επιτύχετε τους λεπτομερείς κωδικούς και τα βήματα.
Αυτόματη κατάργηση του προθέματος "FW" ή "RE" κατά την προώθηση ή την απάντηση μηνυμάτων ηλεκτρονικού ταχυδρομείου
- Για να ξεκινήσετε, ξεκινήστε το Outlook και μεταβείτε στην καρτέλα "Προγραμματιστής".
- Στη συνέχεια, μπορείτε να βρείτε και να κάνετε κλικ στο κουμπί "Visual Basic".
- Στη συνέχεια στο νέο παράθυρο, θα πρέπει να κάνετε διπλό κλικ στο έργο "ThisOutlookSession".
- Στη συνέχεια, πρέπει να αντιγράψετε και να επικολλήσετε τους ακόλουθους κωδικούς VBA σε αυτό.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
If InStr(Item.Subject, "RE") > 0 Then
'If you don't want the prompt,
'You can remove the MsgBox line and its correspoding "Else … End If" lines.
If MsgBox("Do you want to remove the prefix 'RE'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
If InStr(Item.Subject, "FW") > 0 Then
If MsgBox("Do you want to remove the prefix 'FW'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
Item.Subject = Trim(strSubject)
Item.Save
End Sub
- Μετά από αυτό, θα πρέπει να υπογράψετε ένα ψηφιακό πιστοποιητικό σε αυτήν τη μακροεντολή.
- Αργότερα μπορείτε να βγείτε από το παράθυρο "Visual Basic" και να ρυθμίσετε το Outlook για να ενεργοποιήσετε μόνο τις ψηφιακά υπογεγραμμένες μακροεντολές.
- Τέλος, μπορείτε να δοκιμάσετε.
- Αρχικά, επιλέξτε ένα email και πατήστε το κουμπί "Απάντηση", "Απάντηση σε όλους" ή "Προώθηση"
- Στη συνέχεια θα ανοίξει το μήνυμα απάντησης ή προώθησης. Μπορείτε να συνθέσετε την αλληλογραφία ως συνήθως.
- Όταν κάνετε κλικ στο κουμπί "Αποστολή", θα λάβετε ένα πλαίσιο μηνύματος, όπως το ακόλουθο στιγμιότυπο οθόνης:
- Εάν επιλέξετε "Ναι", το πρόθεμα "RE" ή "FW" θα καταργηθεί αυτόματα. Εάν επιλέξετε "Όχι", το πρόθεμα δεν θα καταργηθεί.
Τι δεν πρέπει να κάνετε κατά την αντιμετώπιση των μηνυμάτων ηλεκτρονικού ταχυδρομείου του Outlook
Το Outlook είναι ευάλωτο, επομένως θα πρέπει να είστε προσεκτικοί όταν χειρίζεστε μηνύματα Outlook. Για παράδειγμα, εάν λάβετε μηνύματα ηλεκτρονικού ταχυδρομείου από άγνωστες πηγές, προτιμάτε να μην το ανοίξετε, για να μην αναφέρουμε κλικ στους ενσωματωμένους συνδέσμους ή να κατεβάσετε τα συνημμένα αρχεία. Αυτό το είδος μηνυμάτων ηλεκτρονικού ταχυδρομείου ενδέχεται να περιέχει κακόβουλες μακροεντολές, ιούς ή κακόβουλα προγράμματα, τα οποία μπορούν να καταστρέψουν τα δεδομένα σας στο Outlook σε ένα φλας. Αυτό σημαίνει ότι θα υποφέρετε Βλάβη αρχείων του Outlook. Σε αυτό το σημείο, το μοναδικό σας θέρετρο είναι να χρησιμοποιήσετε ένα ισχυρό και αξιόπιστο εργαλείο επισκευής, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση κατεστραμμένου mdf db και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com