Come rimuovere automaticamente alcuni caratteri speciali dalla riga dell'oggetto durante l'invio di e-mail?

Autore: Xiaoyang Ultima modifica: 2018-08-20

È possibile inserire accidentalmente alcuni caratteri speciali quando si digita l'oggetto nella riga dell'oggetto durante l'invio di e-mail in Outlook, quindi è necessario rimuovere questi caratteri speciali uno per uno. In questo articolo, parlerò di come rimuovere automaticamente tutti questi caratteri speciali dall'oggetto durante l'invio di e-mail.

Rimuovi automaticamente tutti i caratteri speciali dalla riga dell'oggetto quando invii e-mail con codice VBA

Rimuovi automaticamente tutti i caratteri speciali dalla riga dell'oggetto quando invii e-mail con codice VBA

Rimuovi automaticamente i caratteri speciali dalla riga dell'oggetto quando invii e-mail, il seguente codice VBA può farti un favore. Per favore, fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: rimuove automaticamente i caratteri speciali dalla riga dell'oggetto

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 rimuove il carattere speciale 1

3. E poi, sempre in Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Riferimenti per andare al Riferimenti-Progetto1 finestra di dialogo e selezionare Espressioni regolari Microsoft VBAScript 1.0 opzione dal Riferimenti disponibili casella di riepilogo, vedi screenshot:

doc rimuove il carattere speciale 2

4. Quindi fare clic OK per chiudere la finestra di dialogo, ora, quando invii un messaggio con alcuni caratteri speciali nella riga dell'oggetto, verrà rimosso automaticamente dopo averlo inviato. Vedi screenshot:

doc rimuove il carattere speciale 3