Πώς να συμπληρώσετε αυτόματα το θέμα του 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 σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.