傳送電子郵件時，如何自動移除主旨欄位中的特定特殊字元？

當您在 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 視窗中，點選工具＞ 參考項目，開啟 參考項目 - Project 1 對話方塊，並在可用參考項目清單中勾選 Microsoft VBAScript Regular Expressions 1.0 選項，如下圖所示：

4. 接著點選確定關閉對話方塊。日後當您傳送主旨含有特殊字元的郵件時，這些字元將在郵件送出後自動移除，如下圖所示：