如何在发送邮件时自动删除主题行中的特殊字符？

在 Outlook 中发送邮件时填写主题时，常常会不小心插入一些特殊字符，需逐一手动删除。本文将为您介绍如何在发送邮件时，自动移除主题中的所有特殊字符。

使用 VBA 代码在发送邮件时自动移除主题行中的所有特殊字符

---

使用 VBA 代码在发送邮件时自动移除主题行中的所有特殊字符

若想在发送邮件时自动移除主题行中的特殊字符，可参考以下 VBA 代码，并按照下述步骤操作：

1. 按住 ALT + F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1(VbaProject.OTM) 窗格下的 ThisOutlookSession，打开模块后，将以下代码复制并粘贴到空白模块中。

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 for Applications 窗口中，点击工具 > 引用，进入 References-Project 1 对话框，在可用引用列表框中勾选 Microsoft VBAScript Regular Expressions 1.0 选项，详见截图：

4. 然后点击确定关闭对话框。现在，当您发送主题包含特殊字符的邮件时，发送后这些字符将被自动删除。详见截图：