Как автоматически удалить некоторые специальные символы из строки темы при отправке электронных писем?

Author Xiaoyang Last modified 2025-08-26

Вы можете случайно вставить некоторые специальные символы, когда вводите тему в строке темы при отправке электронной почты в Outlook, поэтому вам нужно удалять эти специальные символы по одному. В этой статье я расскажу о том, как автоматически удалять все эти специальные символы из темы при отправке электронных писем.

Автоматическое удаление всех специальных символов из строки темы при отправке электронных писем с помощью кода VBA

Автоматическое удаление всех специальных символов из строки темы при отправке электронных писем с помощью кода VBA

Чтобы автоматически удалить специальные символы из строки темы при отправке электронных писем, следующий код VBA может помочь. Пожалуйста, сделайте следующее:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений дважды щелкните ThisOutlookSession в области Project1(VbaProject.OTM), чтобы открыть модуль, затем скопируйте и вставьте следующий код в пустой модуль.

Код VBA: Автоматическое удаление специальных символов из строки темы

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. Затем, всё ещё находясь в окне Microsoft Visual Basic для приложений, нажмите Tools > References, чтобы перейти к диалоговому окну References-Project1, и установите флажок Microsoft VBAScript Regular Expressions 1.0 в списке доступных ссылок, см. скриншот:

4. Затем нажмите OK, чтобы закрыть диалоговое окно. Теперь, когда вы отправляете сообщение с некоторыми специальными символами в строке темы, они будут автоматически удалены после отправки. См. скриншот: