Kako automatski uzeti prvi redak tijela kao predmet prije slanja Outlook e-pošte bez predmeta

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

Više korisnika često zaboravi unijeti predmet prilikom sastavljanja i slanja e-pošte. Stoga se obično nadaju da Outlook može automatski ispuniti predmet u prvom redu tijela e-pošte ako odlazna e-pošta nema predmet. Nakon toga ćemo s vama podijeliti jednostavnu i praktičnu metodu.

Automatski uzmi prvi redak tijela kao predmet prije slanja e-pošte bez predmeta

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 uređivač.
3. Zatim u uređivaču VBA dodajte referencu na “MS Word Object Library" u skladu s "Kako dodati biblioteku objekatarary Referenca u VBA".
4. Kasnije kopirajte donji kod u projekt “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 postavite kursor na “Application_Startup” potprogram i pritisnite “F5”.
6. Konačno, možete pokušati.

• Najprije stvorite i sastavite e-poruku samo s praznim predmetom.
• Zatim kliknite gumb "Pošalji".
• Kasnije ćete dobiti poruku s pitanjem želite li uzeti prvi redak tijela kao temu.
• Sve dok odaberete gumb "Da", prvi redak tijela e-pošte bit će izdvojen i korišten kao predmet, a e-poruka će biti poslana.

Čuvajte svoje Outlook podatke na sigurnom

Apsolutno, postoji više značajnih e-poruka i drugih stavki u vašem Outlooku. Dakle, sigurno ne želite naići na gubitak podataka programa Outlook. Zatim morate poduzeti neke radnje, kao što je izrada redovitih sigurnosnih kopija podataka vašeg Outlooka, učenje korištenja ugrađenog alata za popravak popraviti Outlook pogreške i pripremanje robusnog eksternog uslužnog programa za oporavak. DataNumen Outlook Repair je dobar izbor zbog visoke stope oporavka PST-a.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com