Kuinka ottaa ensimmäinen rivi runkoaiheeksi ennen Outlook-sähköpostin lähettämistä ilman aihetta

Jotkut käyttäjät haluavat Outlookin ottavan automaattisesti sähköpostirungon ensimmäisen rivin aiheeksi, kun he lähettävät sähköpostia, jolla ei ole aihetta. Tässä artikkelissa esitellään menetelmä sen toteuttamiseksi VBA-koodin kautta.

Useat käyttäjät unohtavat usein kirjoittaa aiheen kirjoittaessaan ja lähettää sähköpostia. Siksi he yleensä toivovat, että Outlook voi automaattisesti täyttää aiheen sähköpostirungon ensimmäisellä rivillä, jos lähtevällä sähköpostilla ei ole aihetta. Seuraavassa kerromme sinulle helpon ja kätevän menetelmän.

Auto Ota ensimmäinen rivi runkoon aiheena ennen sähköpostin lähettämistä ilman aihetta

1. Käynnistä Outlook-sovellus heti alusta.
2. Noudata sittenKuinka suorittaa VBA-koodi Outlookissa“, Pääset VBA-editoriin.
3. Lisää seuraavaksi VBA-editorissa viite "MS Word Object Library "mukaisesti"Objektin lisääminen Library Viite VBA: ssa".
4. Kopioi myöhemmin alla oleva koodi ThisOutlookSession-projektiin.

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. Tämän jälkeen siirrä kohdistin kohtaan ”Application_Startup ”-alirutiini ja paina“ F5 ”.
6. Lopuksi voit kokeilla.

• Aluksi luo ja kirjoita sähköposti, jossa vain aihe on tyhjä.
• Napsauta sitten Lähetä-painiketta.
• Myöhemmin saat viestin, jossa kysytään, otetaanko ensimmäisen rungon aihe.
• Niin kauan kuin valitset “Kyllä” -painikkeen, sähköpostirungon ensimmäinen rivi puretaan ja sitä käytetään aiheena ja sähköposti lähetetään.

Pidä Outlook-tietosi turvassa

Ehdottomasti Outlookissa on useita merkittäviä sähköposteja ja muita kohteita. Siksi sinun on oltava haluttomia törmäämään Outlookin tietojen menetykseen. Sitten sinun on suoritettava joitain toimintoja, kuten tehtävä säännöllisiä varmuuskopioita Outlookista, oppia käyttämään sisäänrakennettua korjaustyökalua korjaa Outlook virheet ja vankan ulkoisen palautusapuohjelman valmistelu. DataNumen Outlook Repair on hyvä valinta korkean PST-palautumisasteensa vuoksi.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com