Kā automātiski uzņemt pirmo ķermeņa rindiņu kā tēmu pirms Outlook e-pasta sūtīšanas bez tēmas

Daži lietotāji vēlas, lai programma Outlook automātiski sūtītu e-pasta pamatteksta rindiņu, sūtot e-pastu, kuram nav temata. Tagad šajā rakstā mēs ieviesīsim metodi, kā to realizēt, izmantojot VBA kodu.

Rakstot un sūtot e-pastu, vairāki lietotāji bieži aizmirst ievadīt tēmu. Tādējādi viņi parasti cer, ka programma Outlook var automātiski aizpildīt tēmu līdz e-pasta pamatteksta pirmajai rindai, ja izejošajam e-pastam nav temata. Turpmāk mēs dalīsimies ar jums par ērtu un ērtu metodi.

Automātiski uzņemiet pirmo ķermeņa rindiņu kā tēmu, pirms sūtāt e-pastu bez tēmas

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam, veicot darbības sadaļā “Kā palaist VBA kodu programmā Outlook“, Jūs varat iekļūt VBA redaktorā.
3. Pēc tam VBA redaktorā pievienojiet atsauci uz “MS Word Object Library ”saskaņā ar“Kā pievienot objektu Library Atsauce VBA".
4. Vēlāk nokopējiet zemāk esošo kodu “ThisOutlookSession” projektā.

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. Pēc tam ievietojiet kursoru sadaļā “Application_Startup ”apakšprogrammu un nospiediet“ F5 ”.
6. Visbeidzot, jūs varat izmēģināt.

• Sākumā izveidojiet un izveidojiet e-pastu ar tikai tēmu tukšu.
• Pēc tam noklikšķiniet uz pogas Sūtīt.
• Vēlāk jūs saņemsit ziņojumu ar jautājumu, vai par priekšmetu ņemt pirmo ķermeņa rindiņu.
• Kamēr jūs izvēlaties pogu “Jā”, e-pasta pamatteksta pirmā rinda tiks iegūta un izmantota kā tēma, un e-pasts tiks izsūtīts.

Nodrošiniet savu Outlook datu drošību

Jūsu programmā Outlook ir vairāki nozīmīgi e-pasta ziņojumi un citi vienumi. Tādējādi jums ir jābūt nevēlamam saskarties ar Outlook datu zudumu. Pēc tam jums jāveic dažas darbības, piemēram, regulāri jāveic datu dublēšana programmā Outlook, jāiemācās izmantot iebūvēto remonta rīku labot Outlook kļūdas un sagatavojot stabilu ārējās atkopšanas utilītu. DataNumen Outlook Repair ir laba izvēle augsta PST atkopšanas līmeņa dēļ.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar