Wie füge ich der Betreffzeile in Outlook automatisch Standardtext hinzu?

Gibt es eine Möglichkeit, einem Betreff beim Erstellen einer neuen E-Mail in Outlook automatisch Standardtext hinzuzufügen? In diesem Artikel werde ich einige nützliche Möglichkeiten erläutern, wie Sie diesen Job in Outlook lösen können.

Fügen Sie der Betreffzeile automatisch Standardtext mit VBA-Code hinzu

Fügen Sie mit Kutools for Outlook automatisch Standardtext zur Betreffzeile hinzu

Fügen Sie der Betreffzeile automatisch Standardtext mit VBA-Code hinzu

Wenden Sie den folgenden VBA-Code an, um der Betreffzeile automatisch Standardtext hinzuzufügen.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: Standardtext automatisch zur Betreffzeile hinzufügen:

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

Note: In diesem Code ist der Text „Skyyang-„ ist der Text, den Sie standardmäßig in den Betreff einfügen möchten. Bitte ändern Sie ihn in Ihren eigenen.

Dokument fügt automatisch Text zu Betreff 1 hinzu

3. Speichern Sie dann das Codefenster und schließen Sie es. Erstellen Sie nun eine neue E-Mail und geben Sie den Empfänger ein Zu Feld und geben Sie den Betrefftext in das Feld ein Betrefft-Zeile, dann klicken Sie Absenden Wenn Sie auf die Schaltfläche klicken, erscheint ein Eingabeaufforderungsfeld, das Sie daran erinnert, diesen Standardtext in die Betreffzeile einzufügen, siehe Screenshot:

Dokument fügt automatisch Text zu Betreff 2 hinzu

4. Und dann klick OK Schaltfläche, und der angegebene Text wurde vor dem Betreffinhalt hinzugefügt, siehe Screenshot:

Dokument fügt automatisch Text zu Betreff 3 hinzu

Fügen Sie mit Kutools for Outlook automatisch Standardtext zur Betreffzeile hinzu

Hier ist eine einfache Methode, die Ihnen auch dabei helfen kann, der Betreffzeile Standardtext hinzuzufügen. Mit Kutools for Outlook Mit dem Dienstprogramm können Sie diese Aufgabe schnell erledigen.

Kutools for Outlook : Mit mehr als 100 praktischen Excel-Add-Ins können Sie diese innerhalb von 60 Tagen ohne Einschränkung testen.

Gehe zu Download
Kostenlose Testversion 60 Tage Bezug von MarvelClient
PayPal / MyCommerce

Nach der Installation Kutools for OutlookBitte machen Sie Folgendes:

1. Starten Sie Outlook und klicken Sie dann auf Kutoolen > Optionen, siehe Screenshot:

2. In dem Optionen Dialogfeld, klicken Sie auf Neu Registerkarte, dann überprüfen Fügen Sie dem Betreff beim Erstellen einer neuen E-Mail ein Datum hinzu Option und geben Sie dann den Standardtext ein, der automatisch in der Betreffzeile angezeigt werden soll, siehe Screenshot:

3. Dann klick OK Wenn Sie nun eine neue E-Mail erstellen, wird Ihr angegebener Standardtext automatisch in die Betreffzeile eingefügt, wie im folgenden Screenshot gezeigt:

Dokument fügt automatisch Text zu Betreff 6 hinzu