Cum să eliminați automat câteva caractere speciale din linia subiectului atunci când trimiteți e-mailuri?

Puteți insera accidental câteva caractere speciale când introduceți subiectul în linia subiectului în timp ce trimiteți e-mail în Outlook, deci trebuie să eliminați aceste caractere speciale unul câte unul. În acest articol, voi vorbi despre cum să eliminați automat aceste caractere speciale din subiect atunci când trimiteți e-mailuri.

Eliminați automat toate caracterele speciale din linia subiectului atunci când trimiteți e-mailuri cu cod VBA

Eliminați automat toate caracterele speciale din linia subiectului atunci când trimiteți e-mailuri cu cod VBA

Eliminați automat caracterele speciale din linia subiectului atunci când trimiteți e-mailuri, următorul cod VBA vă poate face o favoare. Vă rugăm să faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.

Cod VBA: elimină automat caracterele speciale din linia subiectului

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 eliminați caracterul special 1

3. Și apoi, încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Instrumente > Referinte a merge la Referințe-Proiect1 casetă de dialog și bifați Expresii regulate Microsoft VBAScript 1.0 opțiune de la Referințe disponibile casetă listă, vezi captura de ecran:

doc eliminați caracterul special 2

4. Apoi apasa OK pentru a închide dialogul, acum, când trimiteți un mesaj cu câteva caractere speciale în linia subiectului, acesta va fi eliminat automat după trimiterea acestuia. Vedeți captura de ecran:

doc eliminați caracterul special 3