Note: The other languages of the website are Google-translated. Back to English

Πώς να συμπληρώσετε αυτόματα το θέμα του 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:

1) Εάν έχετε ήδη συμπληρώσει το θέμα, η εισαγωγή συνημμένου δεν θα εμφανιστεί το παράθυρο διαλόγου.
2) Εάν αφαιρέσετε ένα υπάρχον θέμα από το τρέχον email αλλά ο δρομέας εξακολουθεί να εμφανίζεται στη γραμμή θέματος, η εισαγωγή συνημμένου δεν θα εμφανίσει ούτε το παράθυρο διαλόγου. Αφού αφαιρέσετε το θέμα, πρέπει να κάνετε κλικ μακριά από τη γραμμή θέματος για να ανανεώσετε το πλαίσιο μηνύματος για να λειτουργήσει ο κώδικας.
3) Εάν εισάγετε πολλά συνημμένα ταυτόχρονα, μόνο το όνομα του πρώτου συνημμένου μπορεί να χρησιμοποιηθεί ως θέμα του μηνύματος ηλεκτρονικού ταχυδρομείου.

Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (7)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Добрый день. Подскажите пожалуйста е можно ли да се направи что бы θέματα μορφέςровалась из 2 и более файлов со разделение И? Μπορώ να γράψετε τον κωδικό σας; Заранее спасибо
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Αλεξανδρε,

Εννοείτε να προσθέσετε πολλά συνημμένα ενώ προσθέτετε αυτά τα ονόματα συνημμένων ταυτόχρονα στο θέμα και στη συνέχεια να τα συνδέσετε με AND;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ναι. Π.χ. Именно два αρχείο, больше не е.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ναι, εννοείται. ТЕ при добавлении или перетягивании двух αρχείου θέμα письма автоматом писалась через И
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Добрый день. ДА при добавлении 2 файлов во тему писалось через И.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Αλεξανδρε,

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να λύσετε το πρόβλημά σας. Δοκιμάστε το.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL