Sådan tager du automatisk den første linje af kroppen som emne inden du sender en Outlook-e-mail uden emne

Outlook-løsninger September 29, 2025

Nogle brugere ønsker, at Outlook automatisk tager den første linje i e-mail-kroppen som emne, når de sender en e-mail, der ikke har noget emne. Nu, i denne artikel, introducerer vi en metode til at realisere det via VBA-kode.

Flere brugere glemmer ofte at indtaste emne, når de skriver og sender en e-mail. Således håber de normalt, at Outlook automatisk kan udfylde emnet ved første linje i e-mail-kroppen, hvis den udgående e-mail ikke har noget emne. Derefter deler vi en nem og praktisk metode med dig.

Auto Tag den første linje af kroppen som emne inden du sender en e-mail uden emne

  1. Start Outlook-applikationen lige fra starten.
  2. Derefter ved at følge trinene i “Sådan køres VBA-kode i din Outlook“, Du kan komme ind i VBA-editor.
  3. Derefter skal du i VBA-editoren tilføje henvisningen til “MS Word Object Library ”i overensstemmelse med“Sådan tilføjes et objekt Library Reference i VBA".
  4. Senere skal du kopiere koden nedenfor i “ThisOutlookSession” -projektet.
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

VBA-kode - Tag automatisk den første linje i kroppen som emne, inden du sender en e-mail uden emne

  1. Derefter skal du placere markøren i “Application_Startup ”subrutine, og tryk på“ F5 ”.
  2. Endelig kan du prøve.
  • Først skal du oprette og komponere en e-mail med kun emnet tomt.
  • Klik derefter på knappen "Send".
  • Senere får du en besked, der spørger, om du skal tage første linje af kroppen som emne.Besked, der spørger, om man skal tage første linje af kroppen som emne
  • Så længe du vælger “Ja” -knappen, udpakkes den første linje i e-mail-kroppen og bruges som emne, og e-mailen sendes ud.Første linje af krop bruges som emne

Hold dine Outlook-data sikre

Absolut, der er flere vigtige e-mails og andre emner i din Outlook. Således skal du være uvillig til at støde på datatab i Outlook. Derefter skal du tage nogle handlinger, såsom at foretage regelmæssige sikkerhedskopier af din Outlook, lære at bruge det indbyggede reparationsværktøj til at rette Outlook fejl og forberede et robust eksternt gendannelsesværktøj. DataNumen Outlook Repair er et godt valg på grund af sin høje PST-genopretningshastighed.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.