Πώς να συμπληρώσετε αυτόματα το θέμα του email με το όνομα του συνημμένου στο Outlook;
Για όσους έχουν συνηθίσει να χρησιμοποιούν το όνομα του συνημμένου ως θέμα ενός μηνύματος ηλεκτρονικού ταχυδρομείου στο Outlook, η μη αυτόματη πληκτρολόγηση του ονόματος του συνημμένου στη γραμμή θέματος κάθε φορά θα είναι χρονοβόρα. Όπως φαίνεται στο παρακάτω gif, εάν θέλετε να συμπληρώσετε τη γραμμή θέματος του email με το όνομα του συνημμένου αυτόματα όταν εισάγετε ένα συνημμένο, η μέθοδος VBA σε αυτό το σεμινάριο θα σας βοηθήσει.
Συμπληρώστε αυτόματα το θέμα του email με το όνομα του συνημμένου με κωδικό VBA
Εκτελέστε τον ακόλουθο κώδικα VBA για να συμπληρώσετε αυτόματα το θέμα του email με το όνομα του συνημμένου που έχει εισαχθεί στο Outlook.
1. Εκκινήστε το Outlook, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Project1 (VbProject.OTM) > Αντικείμενα του Microsoft Outlook > Αυτό το OutlookSession για να ανοίξετε το ThisOutlookSession (Κωδικός) συντάκτης.
3. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA στο ThisOutlookSession (Κωδικός) συντάκτης.
Κωδικός VBA: Συμπληρώστε αυτόματα το θέμα του email με το όνομα του συνημμένου
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. Τώρα πρέπει να αποθηκεύσετε τον κώδικα και να επανεκκινήσετε το Outlook.
5. Από εδώ και στο εξής, όταν εισάγετε ένα συνημμένο σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου που δεν έχει ακόμη συμπληρωμένο θέμα, Kutools για το Outlook Θα εμφανιστεί το παράθυρο διαλόγου που θα σας ρωτήσει εάν θέλετε να χρησιμοποιήσετε το όνομα του συνημμένου ως θέμα, κάντε κλικ στο Ναι κουμπί.
Στη συνέχεια, η γραμμή θέματος θα συμπληρωθεί αυτόματα με το όνομα του συνημμένου που εισήχθη.
Notes:
Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!
- Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
- Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
- Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
- Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
- Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
