이메일을 보낼 때 제목 줄에서 일부 특수 문자를 자동으로 제거하려면 어떻게 하나요？

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。 그런 다음확인을 클릭하여 대화 상자를 닫습니다。 이제 제목 줄에 특수 문자가 포함된 메시지를 보내면 발송 후 자동으로 해당 문자가 제거됩니다。 스크린샷 참조：