Wie lassen sich beim Versenden von E-Mails automatisch bestimmte Sonderzeichen aus der Betreffzeile entfernen?

Möglicherweise fügen Sie beim Eingeben des Betreffs in Outlook versehentlich Sonderzeichen ein. In diesem Fall müssten Sie diese normalerweise einzeln entfernen – doch es geht auch besser! In diesem Artikel zeige ich Ihnen, wie Sie alle diese Sonderzeichen beim Versenden von E-Mails automatisch aus dem Betreff entfernen können.

Automatisches Entfernen aller Sonderzeichen aus der Betreffzeile beim Versenden von E-Mails mithilfe von VBA-Code

---

Automatisches Entfernen aller Sonderzeichen aus der Betreffzeile beim Versenden von E-Mails mithilfe von VBA-Code

Der folgende VBA-Code hilft Ihnen dabei, Sonderzeichen aus der Betreffzeile automatisch zu entfernen, sobald Sie eine E-Mail versenden. Gehen Sie dazu wie folgt vor:

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

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

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

3. Klicken Sie danach im Fenster Microsoft Visual Basic for Applications auf Extras > Verweise, um das Dialogfeld Verweise – Project1 zu öffnen, und aktivieren Sie in der Liste unter Verfügbare Verweise den Eintrag Microsoft VBAScript Regular Expressions 1,0. Siehe Screenshot:

4. Klicken Sie anschließend auf OK, um das Dialogfeld zu schließen. Ab sofort werden Sonderzeichen im Betreff einer Nachricht beim Versenden automatisch entfernt. Siehe Screenshot: