Kaip automatiškai pasirinkti pirmąją teksto eilutę kaip temą prieš siunčiant „Outlook“ el. laišką be temos

Kai kurie vartotojai nori, kad „Outlook“ automatiškai paimtų pirmąją el. laiško teksto eilutę kaip temą, kai siunčia el. laišką be temos. Dabar šiame straipsnyje pristatysime metodą, kaip jį realizuoti naudojant VBA kodą.

Keli vartotojai, kurdami ir siųsdami el. laišką, dažnai pamiršta įvesti temą. Taigi, paprastai jie tikisi, kad „Outlook“ gali automatiškai užpildyti temą pirmoje el. laiško eilutėje, jei siunčiamame el. laiške temos nėra. Vėliau pasidalinsime su jumis paprastu ir patogiu metodu.

Prieš siųsdami el. laišką be temos, automatiškai paimkite pirmąją teksto eilutę kaip temą

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada atlikdami veiksmus, nurodytus „Kaip paleisti VBA kodą „Outlook“.“, galite patekti į VBA redaktorių.
3. Tada VBA redaktoriuje pridėkite nuorodą į „MS Word Object Library“ pagal „Kaip pridėti objekto library Nuoroda VBA".
4. Vėliau nukopijuokite žemiau esantį kodą į 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. Po to perkelkite žymeklį į „Application_Startup“ paprogramę ir paspauskite „F5“.
6. Pagaliau galite pabandyti.

• Iš pradžių sukurkite ir sukurkite el. laišką, kuriame tuščia tik tema.
• Tada spustelėkite mygtuką „Siųsti“.
• Vėliau gausite pranešimą, kuriame bus klausiama, ar pirmąją teksto eilutę pasirinkti kaip temą.
• Kol pasirinksite mygtuką „Taip“, pirmoji el. laiško teksto eilutė bus ištraukta ir naudojama kaip tema, o el. laiškas bus išsiųstas.

Saugokite savo „Outlook“ duomenis

Be abejo, jūsų „Outlook“ yra daug svarbių el. laiškų ir kitų elementų. Taigi jūs turite nenorėti susidurti su „Outlook“ duomenų praradimu. Tada turite atlikti tam tikrus veiksmus, pvz., reguliariai kurti „Outlook“ duomenų atsargines kopijas, išmokti naudoti integruotą taisymo įrankį pataisyti Outlook klaidų ir parengti patikimą išorinę atkūrimo priemonę. DataNumen Outlook Repair yra geras pasirinkimas dėl didelio PST atkūrimo greičio.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com