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

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

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

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

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

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

2. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook из Проект1 (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

документ удалить специальный символ 1

3. А потом еще в Microsoft Visual Basic для приложений окна, нажмите Инструменты > Рекомендации , чтобы перейти к Ссылки-Project1 диалоговое окно и установите флажок Регулярные выражения Microsoft VBAScript 1.0 из файла Доступные ссылки список, см. снимок экрана:

документ удалить специальный символ 2

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

документ удалить специальный символ 3