이메일을 보낼 때 제목 줄에서 일부 특수 문자를 자동으로 제거하는 방법은 무엇입니까?

저자: 샤오양 최종 수정 날짜: 2024-08-21

Outlook에서 전자 메일을 보내는 동안 제목 줄에 제목을 입력 할 때 실수로 일부 특수 문자를 삽입 할 수 있으므로 이러한 특수 문자를 하나씩 제거해야합니다. 이 기사에서는 이메일을 보낼 때 제목에서 이러한 모든 특수 문자를 자동으로 제거하는 방법에 대해 설명합니다.

VBA 코드로 이메일을 보낼 때 제목 줄에서 모든 특수 문자를 자동으로 제거

VBA 코드로 이메일을 보낼 때 제목 줄에서 모든 특수 문자를 자동으로 제거

이메일을 보낼 때 제목 줄에서 특수 문자를 자동으로 제거하면 다음 VBA 코드가 도움이 될 수 있습니다. 다음과 같이하십시오 :

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 인사말 프로젝트 1 (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 창을 클릭합니다 도구 > 참고자료 로 이동합니다 참조 -Project1 대화 상자 및 확인 Microsoft VBAScript 정규식 1.0 옵션에서 사용 가능한 참조 목록 상자, 스크린 샷 참조 :