Jak automaticky přidat výchozí text do řádku předmětu v aplikaci Outlook?

Autor: Xiaoyang Naposledy změněno: 2020-07-24

Existuje způsob, jak automaticky přidat výchozí text do předmětu, když vytvoříte nový e-mail v aplikaci Outlook? V tomto článku budu hovořit o některých užitečných způsobech řešení této úlohy v aplikaci Outlook.

Automatické přidání výchozího textu do předmětu pomocí kódu VBA

Automatické přidání výchozího textu do předmětu pomocí programu Kutools pro aplikaci Outlook

Automatické přidání výchozího textu do předmětu pomocí kódu VBA

Chcete-li automaticky přidat výchozí text do řádku předmětu, použijte následující kód VBA.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Automatické přidání výchozího textu do řádku předmětu:

Public xFlag As Boolean
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xText As String
On Error Resume Next
If xFlag = False Then
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
L1:     xText = InputBox("Input Suject", "Kutools for Outlook", xText)
        If xText = "" Then
            xFlag = False
            Cancel = True
            Exit Sub
        End If
        Item.Subject = xText & " " & Item.Subject
        xFlag = True
        Cancel = True
    End If
Else
    xFlag = False
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
      GoTo L1
    End If
End If
End Sub

Poznámka: V tomto kódu je text „Skyyang-” je text, který chcete přidat do předmětu jako výchozí, změňte jej prosím na svůj vlastní.

doc automaticky přidat text k předmětu 1

3. Poté uložte a zavřete okno s kódem, nyní vytvořte nový e-mail a do pole zadejte příjemce Na a zadejte text předmětu do pole Předmětt řádek, pak klepněte Poslat tlačítko, objeví se okno s výzvou, které vám připomene přidání tohoto výchozího textu do předmětu, viz snímek obrazovky:

doc automaticky přidat text k předmětu 2

4. A pak klikněte na tlačítko OK a zadaný text byl přidán před obsah předmětu, viz snímek obrazovky:

doc automaticky přidat text k předmětu 3

Automatické přidání výchozího textu do předmětu pomocí programu Kutools pro aplikaci Outlook

Zde je snadná metoda, která vám také může pomoci přidat výchozí text do předmětu. S Kutools pro aplikaci Outlook nástroj, můžete tento úkol rychle dokončit.

Kutools pro aplikaci Outlook : s více než 100 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 60 dnů.

Přejít na Stáhnout
Zkušební verze zdarma 60 dní Nákup
PayPal / MyCommerce

Po instalaci Kutools pro aplikaci Outlook, udělejte prosím toto:

1. Spusťte aplikaci Outlook a poté klikněte na Kutools > možnosti, viz screenshot:

2. V možnosti , klepněte na tlačítko OK Nový kartu, pak zkontrolujte Při vytváření nového e-mailu přidejte datum do předmětu a poté zadejte výchozí text, který chcete automaticky zobrazit v předmětu, viz snímek obrazovky:

3. Pak klikněte na tlačítko OK Nyní, když vytvoříte nový e-mail, váš zadaný výchozí text se automaticky vloží do předmětu, jak je znázorněno na následujícím obrázku:

doc automaticky přidat text k předmětu 6