Wie fügt man in Outlook automatisch Standardtext zur Betreffzeile hinzu?

Gibt es eine Möglichkeit, beim Erstellen einer neuen E-Mail in Outlook automatisch einen Standardtext in den Betreff einzufügen? In diesem Artikel stellen wir Ihnen einige nützliche Methoden vor, mit denen Sie diese Aufgabe in Outlook einfach umsetzen können.

Automatisches Hinzufügen von Standardtext zur Betreffzeile mithilfe von VBA-Code

Automatisches Hinzufügen von Standardtext zur Betreffzeile mit Kutools für Outlook

---

Automatisches Hinzufügen von Standardtext zur Betreffzeile mithilfe von VBA-Code

Um automatisch Standardtext in die Betreffzeile einzufügen, verwenden Sie bitte den folgenden VBA-Code.

1. Drücken Sie gleichzeitig die Tasten „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Doppelklicken Sie im Fenster „Microsoft Visual Basic for Applications“ unter „Projekt1 (VbaProject.OTM)“ auf „ThisOutlookSession“, um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.

VBA-Code: Automatisches Hinzufügen von Standardtext zur Betreffzeile

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 Subject", "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

Hinweis: Im vorliegenden Code ist „Skyyang-“ der Standardtext, der dem Betreff hinzugefügt wird. Passen Sie ihn bitte entsprechend Ihren Anforderungen an.

3. Drücken Sie „Alt“ + „Q“, um das Fenster „Microsoft Visual Basic for Applications“ zu schließen.

Erstellen Sie nun eine neue E-Mail, um das Ergebnis zu testen.

4. Erstellen Sie eine neue E-Mail, geben Sie den Empfänger in das Feld „An“ ein und tragen Sie den Betreff in die Zeile „Betreff“ ein. Klicken Sie anschließend auf die Schaltfläche „Senden“. Daraufhin erscheint ein Dialogfeld, das Sie fragt, ob der Standardtext dem Betreff hinzugefügt werden soll.

5. Klicken Sie auf „OK“, und der Standardtext wird automatisch vor den eigentlichen Betreff eingefügt.

---

Automatisches Hinzufügen von Standardtext zur Betreffzeile mit Kutools für Outlook

Im Folgenden finden Sie eine einfache Methode, um automatisch Standardtext zur Betreffzeile hinzuzufügen – mit dem praktischen Dienstprogramm „Kutools für Outlook“ erledigen Sie diese Aufgabe im Handumdrehen.

1. Starten Sie Outlook und klicken Sie auf „Kutools“ > „Optionen“.

2. Klicken Sie im Dialogfeld „Optionen“ auf die Registerkarte „Neu“, aktivieren Sie die Option „Datum beim Erstellen einer neuen E-Mail in den Betreff einfügen“ und geben Sie den gewünschten Standardtext ein, der automatisch in die Betreffzeile eingefügt werden soll.

3. Klicken Sie auf „OK“. Beim Erstellen einer neuen E-Mail wird der festgelegte Standardtext nun automatisch – wie unten gezeigt – in die Betreffzeile eingefügt: