Jak automaticky převzít první řádek těla jako předmět před odesláním e-mailu aplikace Outlook bez předmětu

Někteří uživatelé si přejí, aby Outlook při odesílání e-mailu, který nemá předmět, automaticky vzal první řádek těla e-mailu jako předmět. Nyní v tomto článku představíme metodu, jak to realizovat pomocí kódu VBA.

Několik uživatelů často zapomíná při psaní a odesílání e-mailu zadat předmět. Obvykle tedy doufají, že Outlook dokáže automaticky vyplnit předmět prvním řádkem těla e-mailu, pokud odchozí e-mail nemá předmět. Dále se s vámi podělíme o snadný a praktický způsob.

Auto Vezměte první řádek těla jako předmět před odesláním e-mailu bez předmětu

1. Hned na začátku spusťte aplikaci Outlook.
2. Poté postupujte podle kroků v části „Jak spustit kód VBA ve vašem Outlooku“, můžete se dostat do editoru VBA.
3. Dále v editoru VBA přidejte odkaz na „MS Word Object Library “v souladu s„Jak přidat objekt Library Reference ve VBA".
4. Později zkopírujte níže uvedený kód do projektu „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. Poté umístěte kurzor na „Application_Startup “a stiskněte„ F5 “.
6. Nakonec to můžete vyzkoušet.

• Nejprve vytvořte a vytvořte e-mail s prázdným předmětem.
• Poté klikněte na tlačítko „Odeslat“.
• Později dostanete zprávu s dotazem, zda chcete použít první řádek těla jako předmět.
• Pokud vyberete tlačítko „Ano“, první řádek těla e-mailu bude extrahován a použit jako předmět a e-mail bude odeslán.

Udržujte svá data aplikace Outlook v bezpečí

Ve vašem Outlooku je samozřejmě několik významných e-mailů a dalších položek. Proto musíte být ochotni narazit na ztrátu dat aplikace Outlook. Poté musíte provést některé akce, jako je pravidelné zálohování dat aplikace Outlook, naučit se používat vestavěný nástroj pro opravu opravit Outlook chyby a připravuje robustní externí nástroj pro obnovu. DataNumen Outlook Repair je dobrou volbou díky vysoké míře obnovy PST.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com