メールを送信するときに件名からいくつかの特殊文字を自動的に削除するにはどうすればよいですか？

Outlookで電子メールを送信しているときに件名に件名を入力すると、誤って特殊文字を挿入する可能性があるため、これらの特殊文字をXNUMXつずつ削除する必要があります。この記事では、メールを送信するときに、これらすべての特殊文字を件名から自動的に削除する方法について説明します。

VBAコードを含む電子メールを送信するときに、件名からすべての特殊文字を自動的に削除します

VBAコードを含む電子メールを送信するときに、件名からすべての特殊文字を自動的に削除します

電子メールを送信するときに件名から特殊文字を自動的に削除します。次のVBAコードを使用すると便利です。このようにしてください：

1。を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession 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

docは特別な文字を削除します1

3。そして、まだ アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック ツール > 参考文献 参考資料-Project1 ダイアログボックスをクリックし、チェックします MicrosoftVBAScript正規表現1.0 オプションから 利用可能な参考文献 リストボックス、スクリーンショットを参照：

docは特別な文字を削除します2