Cum să luați automat prima linie a corpului ca subiect înainte de a trimite un e-mail Outlook fără subiect

Unii utilizatori doresc ca Outlook să ia automat prima linie a corpului e-mailului ca subiect atunci când trimit un e-mail care nu are subiect. Acum, în acest articol, vom introduce o metodă de realizare prin cod VBA.

Mai mulți utilizatori uită frecvent să introducă subiectul atunci când compun și trimit un e-mail. Astfel, de obicei, ei speră că Outlook poate completa automat subiectul după prima linie a corpului e-mailului dacă e-mailul trimis nu are subiect. Ulterior, vă vom împărtăși o metodă ușoară și la îndemână.

Preluați automat prima linie a corpului ca subiect înainte de a trimite un e-mail fără subiect

1. De la bun început, lansați aplicația Outlook.
2. Apoi, urmând pașii din „Cum să rulați codul VBA în Outlook„, poți intra în editorul VBA.
3. Apoi, în editorul VBA, adăugați referința la „MS Word Object Library” în conformitate cu „Cum să adăugați un obiect Library Referință în VBA".
4. Mai târziu, copiați codul de mai jos în proiectul „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. După aceea, puneți cursorul în „Application_Startup” și apăsați „F5”.
6. În sfârșit, puteți încerca.

• La început, creați și compuneți un e-mail cu subiectul gol.
• Apoi, faceți clic pe butonul „Trimite”.
• Mai târziu, veți primi un mesaj care vă întreabă dacă să luați prima linie a corpului ca subiect.
• Atâta timp cât selectați butonul „Da”, prima linie a corpului e-mailului va fi extrasă și folosită ca subiect, iar e-mailul va fi trimis.

Păstrați-vă datele Outlook în siguranță

Absolut, există mai multe e-mailuri semnificative și alte elemente în Outlook. Astfel, trebuie să nu fiți dispus să întâlniți pierderea datelor Outlook. Apoi, trebuie să faceți câteva acțiuni, cum ar fi să faceți copii de rezervă regulate ale datelor Outlook, să învățați să utilizați instrumentul de reparare încorporat pentru a remediați Outlook erori și pregătirea unui utilitar extern robust de recuperare. DataNumen Outlook Repair este o alegere bună datorită ratei ridicate de recuperare a PST.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com