Як автоматично видалити деякі спеціальні символи з рядка теми під час надсилання електронних листів?

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

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

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

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

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2, в Microsoft Visual Basic для додатків вікно, двічі клацніть ThisOutlookSession від Проект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

doc видалити спеціальний символ 1

3. А потім, все ще в Microsoft Visual Basic для додатків вікна, натисніть Tools > посилання йти до Список літератури-Проект1 і перевірте Регулярні вирази Microsoft VBAScript 1.0 опція від Доступні посилання вікно списку, див. знімок екрана:

doc видалити спеціальний символ 2

4. Потім натисніть OK щоб закрити діалогове вікно, тепер, коли ви надсилаєте повідомлення з деякими спеціальними символами в темі, воно буде автоматично видалено після його надсилання. Дивіться знімок екрана:

doc видалити спеціальний символ 3