Kuidas automaatselt võtta teema esimene rida enne Outlooki meili ilma teemata saatmist

Outlooki lahendused September 29, 2025

Mõned kasutajad soovivad, et Outlook võtaks teemata meilisõnumi saatmisel teemaks automaatselt kirja keha esimese rea. Nüüd tutvustame selles artiklis meetodit selle realiseerimiseks VBA-koodi kaudu.

Paljud kasutajad unustavad meili koostamisel ja saatmisel sageli teema sisestada. Seetõttu loodavad nad tavaliselt, et Outlook suudab automaatselt täita teema meili keha esimese rea võrra, kui väljamineval meilil pole teemat. Edaspidi jagame teiega lihtsat ja käepärast meetodit.

Enne ilma teemata meili saatmist võtke automaatne sisu esimene rida teemaks

  1. Käivitage kohe alguses Outlooki rakendus.
  2. Seejärel järgige jaotises "Kuidas Outlookis VBA-koodi käivitada“, pääsete VBA redaktorisse.
  3. Järgmisena lisage VBA redaktoris viide "MS Word Object Library" vastavalt "Kuidas lisada objektiliigrary Viide VBA-s".
  4. Hiljem kopeerige allolev kood projekti "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

VBA kood – enne ilma teemata meili saatmist valige automaatne sisu esimene rida

  1. Pärast seda viige kursor jaotisesse "Application_Startup” alamprogrammi ja vajuta “F5”.
  2. Lõpuks võite proovida.
  • Esmalt looge ja koostage meil, mille ainult teema on tühi.
  • Seejärel klõpsake nuppu "Saada".
  • Hiljem saate sõnumi, mis küsib, kas võtta teemaks esimene keharida.Sõnum, milles küsitakse, kas võtta teemaks esimene keharida
  • Kuni valite nupu "Jah", ekstraheeritakse meili sisu esimene rida ja seda kasutatakse teemana ning e-kiri saadetakse välja.Esimest keharida kasutatakse subjektina

Hoidke oma Outlooki andmed turvaliselt

Kindlasti on teie Outlookis mitu olulist e-kirja ja muud üksust. Seetõttu ei pea te olema valmis Outlooki andmete kadumisega kokku puutuma. Seejärel peate tegema mõned toimingud, näiteks tegema regulaarselt Outlooki andmete varukoopiaid, õppima sisseehitatud parandustööriista kasutama parandada Outlook vead ja tugeva välise taasteutiliidi ettevalmistamine. DataNumen Outlook Repair on hea valik oma kõrge PST taastamise määra tõttu.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.