Slik tar du den første linjen i brødteksten automatisk som emne før du sender en Outlook-e-post uten emne

Outlook-løsninger September 29, 2025

Noen brukere ønsker at Outlook automatisk tar den første linjen i e-postteksten som emne når de sender en e-post som ikke har noe emne. Nå, i denne artikkelen, vil vi introdusere en metode for å realisere den via VBA-kode.

Flere brukere glemmer ofte å skrive inn emne når de skriver og sender en e-post. Derfor håper de vanligvis at Outlook automatisk kan fylle emnet ved den første linjen i e-postteksten hvis den utgående e-posten ikke har noe emne. Deretter vil vi dele en enkel og hendig metode med deg.

Ta automatisk den første linjen i kroppen som emne før du sender en e-post uten emne

  1. Start Outlook-applikasjonen helt i begynnelsen.
  2. Deretter, ved å følge trinnene i "Hvordan kjøre VBA-kode i Outlook", kan du komme inn i VBA editor.
  3. Deretter, i VBA-editoren, legg til referansen til "MS Word Object Library" i henhold til "Hvordan legge til et objekt Library Referanse i VBA".
  4. Senere kopierer du koden nedenfor til "ThisOutlookSession" -prosjektet.
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 - Auto Ta første linje av kroppen som emne før du sender en e-post uten emne

  1. Etter det, sett markøren inn i "Application_Startup"-underrutinen og trykk "F5".
  2. Endelig kan du prøve.
  • Opprett og skriv først en e-post med bare emnet tomt.
  • Klikk deretter på "Send"-knappen.
  • Senere vil du få en melding som spør om du skal ta første linje i kroppen som emne.Melding som spør om du skal ta første linje i kroppen som emne
  • Så lenge du velger "Ja"-knappen, vil den første linjen i e-postteksten trekkes ut og brukes som emne og e-posten sendes ut.Første linje av kroppen brukes som emne

Hold Outlook-dataene dine trygge

Absolutt, det er flere viktige e-poster og andre elementer i Outlook. Dermed må du være uvillig til å komme over Outlook-datatap. Deretter må du ta noen handlinger, for eksempel å ta regelmessige sikkerhetskopier av Outlook, lære å bruke det innebygde reparasjonsverktøyet for å fikse Outlook feil og forberede et robust eksternt gjenopprettingsverktøy. DataNumen Outlook Repair er et godt valg på grunn av sin høye PST-utvinningsgrad.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.