發送電子郵件時如何自動從主題行中刪除某些特殊字符？

作者：小陽最後修改時間：2024-08-21

在Outlook中發送電子郵件時在主題行中鍵入主題時，您可能會意外插入一些特殊字符，因此您需要一個一個地刪除這些特殊字符。在本文中，我將討論在發送電子郵件時如何自動從主題中刪除所有這些特殊字符。

使用VBA代碼發送電子郵件時，會自動刪除主題行中的所有特殊字符

發送電子郵件時，自動從主題行中刪除特殊字符，以下VBA代碼可以幫您一個忙。請這樣做：

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。在 Microsoft Visual Basic for Applications 窗口，雙擊 本次展望會議 來自 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 for Applications 窗口中，單擊工具 > 參考去 參考-Project1 對話框，然後檢查 Microsoft VBAScript正則表達式1.0 選項從 可用參考 列錶框，請參見屏幕截圖：