Τρόπος αυτόματης λήψης της πρώτης γραμμής σώματος ως θέματος πριν από την αποστολή μηνύματος ηλεκτρονικού ταχυδρομείου Outlook χωρίς θέμα

Ορισμένοι χρήστες επιθυμούν το Outlook να λάβει αυτόματα την πρώτη γραμμή του σώματος του email ως θέμα όταν στέλνει ένα email που δεν έχει θέμα. Τώρα, σε αυτό το άρθρο, θα παρουσιάσουμε μια μέθοδο για την πραγματοποίησή της μέσω κώδικα VBA.

Πολλοί χρήστες συχνά ξεχνούν να εισάγουν θέμα κατά τη σύνθεση και την αποστολή email. Έτσι, συνήθως, ελπίζουν ότι το Outlook μπορεί να γεμίσει αυτόματα το θέμα από την πρώτη γραμμή του σώματος email, εάν το εξερχόμενο email δεν έχει θέμα. Στη συνέχεια, θα μοιραστούμε μαζί σας μια εύκολη και εύχρηστη μέθοδο.

Αυτόματη λήψη της πρώτης γραμμής του σώματος ως θέματος προτού στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου χωρίς θέμα

1. Στην αρχή, ξεκινήστε την εφαρμογή Outlook.
2. Στη συνέχεια, ακολουθώντας τα βήματα στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook", Μπορείτε να μπείτε στο πρόγραμμα επεξεργασίας VBA.
3. Στη συνέχεια, στο πρόγραμμα επεξεργασίας VBA, προσθέστε την αναφορά στο "MS Word Object Library "σύμφωνα με το"Πώς να προσθέσετε ένα αντικείμενο Library Αναφορά στο VBA".
4. Αργότερα, αντιγράψτε τον παρακάτω κώδικα στο έργο "ThisOutlookSession".

Private WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail And Inspector.CurrentItem.Subject = "" Then
       Inspector.CurrentItem.Subject = " "
    End If
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objMailSelection As Word.Selection
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       If Len(Trim(objMail.Subject)) = 0 Then
          If MsgBox("No subject! Whether to take first line as subject?", vbQuestion + vbYesNo) = vbYes Then
             Set objMailDocument = objMail.GetInspector.WordEditor
             Set objMailSelection = objMailDocument.Application.Selection
 
             objMailDocument.Range(0, 0).Select
             objMailSelection.MoveEnd wdLine
 
             'Take first line of body as subject
             objMail.Subject = objMailSelection.Text
          End If
       End If
     End If
End Sub

5. Μετά από αυτό, τοποθετήστε τον κέρσορα στο "Application_Starυπορουτίνα tup και πατήστε "F5".
6. Τέλος, μπορείτε να δοκιμάσετε.

• Αρχικά, δημιουργήστε και συνθέστε ένα email με κενό μόνο το θέμα.
• Στη συνέχεια, κάντε κλικ στο κουμπί "Αποστολή".
• Αργότερα, θα λάβετε ένα μήνυμα που θα σας ρωτάει αν θέλετε να λάβετε την πρώτη γραμμή του σώματος ως θέμα.
• Εφόσον επιλέξετε το κουμπί "Ναι", η πρώτη γραμμή του σώματος email θα εξαχθεί και θα χρησιμοποιηθεί ως θέμα και το email θα σταλεί.

Διατηρήστε τα δεδομένα του Outlook ασφαλή

Απολύτως, υπάρχουν πολλά σημαντικά μηνύματα ηλεκτρονικού ταχυδρομείου και άλλα στοιχεία στο Outlook. Επομένως, πρέπει να είστε απρόθυμοι να συναντήσετε απώλεια δεδομένων του Outlook. Στη συνέχεια, πρέπει να κάνετε κάποιες ενέργειες, όπως να κάνετε τακτικά αντίγραφα ασφαλείας δεδομένων του Outlook, να μάθετε να χρησιμοποιείτε το ενσωματωμένο εργαλείο επιδιόρθωσης για επιδιορθώστε το Outlook σφάλματα και προετοιμασία ενός ισχυρού βοηθητικού προγράμματος εξωτερικής ανάκτησης. DataNumen Outlook Repair είναι μια καλή επιλογή λόγω του υψηλού ποσοστού ανάκτησης PST.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com