メール送信時に件名から特定の特殊文字を自動的に削除する方法は？

Outlook でメールを送信する際、件名欄に入力中に誤って特殊文字が混入してしまうことがあります。その場合、これらの特殊文字を一つひとつ手作業で削除しなければなりません。本記事では、メール送信時に件名に含まれる特殊文字をすべて自動的に削除する方法をご紹介します。

VBA コードを使用して、メール送信時に件名からすべての特殊文字を自動的に削除する

---

VBA コードを使用して、メール送信時に件名からすべての特殊文字を自動的に削除する

メール送信時に件名から特殊文字を自動的に削除するには、以下の VBA コードが役立ちます。次の手順に従って操作してください。

1．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2．Microsoft Visual Basic for Applicationsウィンドウで、ThisOutlookSessionを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 Regular Expressions 1.0オプションを利用可能な参照設定リストボックス内でチェックしてください（下図参照）。

4．次にOKをクリックしてダイアログを閉じます。これで、件名に特殊文字を含むメッセージを送信すると、送信後に自動的にそれらの文字が削除されます（下図参照）。