Kako samodejno vzeti prvo vrstico telesa kot zadevo, preden pošljete Outlookovo e-pošto brez zadeve

Nekateri uporabniki želijo, da Outlook samodejno vzame prvo vrstico telesa e-pošte kot zadevo, ko pošlje e-pošto brez zadeve. Zdaj bomo v tem članku predstavili metodo za njegovo realizacijo prek kode VBA.

Več uporabnikov pri sestavljanju in pošiljanju e-pošte pogosto pozabi vnesti zadevo. Tako običajno upajo, da lahko Outlook samodejno izpolni zadevo v prvi vrstici telesa e-pošte, če odhodna e-pošta nima zadeve. Nato bomo z vami delili enostavno in priročno metodo.

Samodejno vzemi prvo vrstico telesa kot zadevo pred pošiljanjem e-pošte brez zadeve

1. Na začetku zaženite aplikacijo Outlook.
2. Nato sledite korakom v "Kako zagnati kodo VBA v Outlooku«, lahko vstopite v urejevalnik VBA.
3. Nato v urejevalnik VBA dodajte sklic na »MS Word Object Library "v skladu zKako dodati Lib predmetarary Referenca v VBA".
4. Pozneje kopirajte spodnjo kodo v 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 tem postavite kazalec na »Application_Starpodprogram "in pritisnite" F5 ".
6. Končno lahko poskusite.

• Najprej ustvarite in sestavite e-poštno sporočilo s prazno samo zadevo.
• Nato kliknite gumb »Pošlji«.
• Kasneje boste prejeli sporočilo z vprašanjem, ali želite za zadevo vzeti prvo vrstico telesa.
• Dokler izberete gumb »Da«, bo prva vrstica telesa e-pošte ekstrahirana in uporabljena kot zadeva, e-poštno sporočilo pa bo poslano.

Poskrbite za varnost svojih Outlookovih podatkov

Vsekakor je v vašem Outlooku več pomembnih e-poštnih sporočil in drugih elementov. Tako verjetno niste pripravljeni naleteti na izgubo podatkov Outlook. Nato morate izvesti nekaj dejanj, kot je izdelava rednih varnostnih kopij podatkov Outlooka, učenje uporabe vgrajenega orodja za popravilo popraviti Outlook napake in pripravo robustnega zunanjega pripomočka za obnovitev. DataNumen Outlook Repair je dobra izbira zaradi visoke stopnje obnovitve PST.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnovitev sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com