Kako automatski uzeti prvi red teksta kao temu prije slanja Outlook e-pošte bez predmeta

Neki korisnici žele da Outlook automatski uzima prvi red tijela e-pošte kao predmet kada šalju e-poštu koja nema temu. Sada ćemo u ovom članku predstaviti metodu za realizaciju putem VBA koda.

Više korisnika često zaboravlja da unese temu kada sastavljaju i šalju e-poštu. Stoga se obično nadaju da Outlook može automatski popuniti temu u prvom redu tijela e-pošte ako odlazna e-pošta nema temu. Nakon toga ćemo s vama podijeliti laku i praktičnu metodu.

Automatski uzmite prvi red teksta kao temu prije slanja e-pošte bez subjekta

1. Na samom početku pokrenite Outlook aplikaciju.
2. Zatim, slijedeći korake u “Kako pokrenuti VBA kod u vašem Outlooku“, možete ući u VBA editor.
3. Zatim u VBA editoru dodajte referencu na „MS Word Object Library” u skladu sa “Kako dodati Object Library Referenca u VBA".
4. Kasnije kopirajte donji kod u projekat “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. Nakon toga, stavite kursor na “Application_Startup” i pritisnite “F5”.
6. Konačno, možete probati.

• Prvo kreirajte i sastavite e-poruku sa samo praznom temom.
• Zatim kliknite na dugme „Pošalji“.
• Kasnije ćete dobiti poruku u kojoj se traži da uzmete prvu liniju tijela kao temu.
• Sve dok odaberete dugme “Da”, prvi red tijela e-pošte će se izdvojiti i koristiti kao predmet i poruka će biti poslana.

Čuvajte svoje Outlook podatke bezbednim

Apsolutno, postoji više značajnih e-poruka i drugih stavki u vašem Outlooku. Stoga, sigurno niste voljni naići na gubitak podataka iz Outlooka. Zatim morate poduzeti neke radnje, kao što je pravljenje redovnih sigurnosnih kopija podataka vašeg Outlooka, učenje korištenja ugrađenog alata za popravak za popravi Outlook greške i priprema robusnog eksternog uslužnog programa za oporavak. DataNumen Outlook Repair je dobar izbor zbog visoke stope oporavka PST-a.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com