이메일을 보낼 때 제목 줄에서 일부 특수 문자를 자동으로 제거하는 방법은 무엇입니까?
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 옵션에서 사용 가능한 참조 목록 상자, 스크린 샷 참조 :
4. 그런 다음 OK 대화 상자를 닫으려면 제목 줄에 특수 문자가있는 메시지를 보내면 보낸 후 자동으로 제거됩니다. 스크린 샷보기 :
최고의 사무 생산성 도구
Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능
🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...
📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능) / 이메일 보내기 예약 / 이메일 발송 시 규칙에 따른 자동 참조/숨은참조 / 자동 전달(고급 규칙) / 인사말 자동 추가 / 여러 수신자 이메일을 개별 메시지로 자동 분할 ...
📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다. / 제목 및 기타 사기 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 통합 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘 / 탭 보기로 Outlook 생산성 향상 / 문을 닫는 대신 전망을 최소화하세요 ...
???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신 / 피싱 방지 이메일 / 🕘발신자의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.