Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

Wie kann man beim Senden von E-Mails einige spezielle Zeichen automatisch aus der Betreffzeile entfernen?

Author Xiaoyang Last modified

Möglicherweise fügen Sie versehentlich einige Sonderzeichen ein, wenn Sie den Betreff in der Betreffzeile eingeben, während Sie eine E-Mail in Outlook senden. Daher müssen Sie diese Sonderzeichen einzeln entfernen. In diesem Artikel werde ich darüber sprechen, wie Sie alle diese Sonderzeichen automatisch aus dem Betreff entfernen können, wenn Sie E-Mails senden.

Entfernen Sie alle Sonderzeichen automatisch aus der Betreffzeile beim Senden von E-Mails mit VBA-Code.


Entfernen Sie alle Sonderzeichen automatisch aus der Betreffzeile beim Senden von E-Mails mit VBA-Code.

Um die Sonderzeichen automatisch aus der Betreffzeile zu entfernen, wenn Sie E-Mails senden, kann Ihnen der folgende VBA-Code helfen. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications doppelt auf ThisOutlookSession im Bereich Project1(VbaProject.OTM), um den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.

VBA-Code: Automatisches Entfernen von Sonderzeichen aus der Betreffzeile

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As Outlook.MailItem
    Dim xRegExp As RegExp
    Dim xSubject As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSubject = xMailItem.Subject
    Set xRegExp = CreateObject("VBScript.RegExp")
    With xRegExp
        .Global = True
        .IgnoreCase = True
        .Pattern = "[^a-zA-Z0-9\u4e00-\u9fa5]"
    End With
    If xRegExp.test(xSubject) = False Then Exit Sub
    xSubject = xRegExp.Replace(xSubject, "-")
    xMailItem.Subject = GetTargetStr(xSubject)
    Set RegExp = Nothing
End Sub
Function GetTargetStr(Str As String)
    Dim xS, xStr As String
    Dim i As Integer
    Dim xIsFirst As Boolean
    xIsFirst = True
    xStr = ""
    For i = 1 To Len(Str)
        xS = Mid(Str, i, 1)
        If xS = "-" Then
            If xIsFirst Then
                xS = " "
                xIsFirst = False
            Else
                xS = ""
            End If
        Else
            xIsFirst = True
        End If
        xStr = xStr + xS
    Next i
    GetTargetStr = xStr
End Function
doc remove special char 1

3. Klicken Sie dann immer noch im Fenster Microsoft Visual Basic for Applications auf Extras > Verweise, um zum Dialogfeld Verweise-Project1 zu gelangen, und aktivieren Sie die Option Microsoft VBAScript Regular Expressions 1.0 aus der Liste der verfügbaren Verweise. Siehe Screenshot:

doc remove special char 2

4. Klicken Sie dann auf OK, um das Dialogfeld zu schließen. Nun werden beim Senden einer Nachricht mit einigen Sonderzeichen in der Betreffzeile diese nach dem Senden automatisch entfernt. Siehe Screenshot:

doc remove special char 3

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

kutools for outlook features1 kutools for outlook features2

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

  • Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
  • 🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
  • 🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint