Outlook에서 첨부 파일 이름으로 이메일 제목을 자동으로 채우는 방법은 무엇입니까?
Outlook에서 전자 메일의 제목으로 첨부 파일 이름을 사용하는 데 익숙한 사용자의 경우 매번 제목 줄에 첨부 파일 이름을 수동으로 입력하는 것은 시간 소모적입니다. 아래 gif와 같이 첨부 파일을 삽입할 때 이메일 제목 줄에 첨부 파일 이름을 자동으로 채우고 싶다면 이 튜토리얼의 VBA 방법이 도움이 될 것입니다.
전자 메일 제목을 VBA 코드로 첨부 파일 이름으로 자동 채우기
Outlook에 삽입된 첨부 파일의 이름으로 이메일 제목을 자동으로 채우려면 다음 VBA 코드를 실행하십시오.
1. Outlook을 시작하고 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 프로젝트1(VbProject.OTM) > Microsoft Outlook 개체 > ThisOutlook세션 를 열려면 ThisOutlookSession (코드) 편집기.
3. 그런 다음 다음 VBA 코드를 복사하십시오. ThisOutlookSession (코드) 편집기.
VBA 코드: 첨부 파일 이름으로 이메일 제목 자동 채우기
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. 이제 코드를 저장하고 Outlook을 다시 시작해야 합니다.
5. 이제부터 아직 제목이 채워지지 않은 이메일에 첨부파일을 넣으면 Outlook 용 Kutools 첨부 파일 이름을 제목으로 사용할 것인지 묻는 대화 상자가 나타나면 가능 버튼을 클릭합니다.
그러면 제목 줄에 삽입된 첨부 파일의 이름이 자동으로 채워집니다.
노트:
최고의 사무 생산성 도구
Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능
🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...
📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능) / 이메일 보내기 예약 / 이메일 발송 시 규칙에 따른 자동 참조/숨은참조 / 자동 전달(고급 규칙) / 인사말 자동 추가 / 여러 수신자 이메일을 개별 메시지로 자동 분할 ...
📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다. / 제목 및 기타 사기 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 통합 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘 / 탭 보기로 Outlook 생산성 향상 / 문을 닫는 대신 전망을 최소화하세요 ...
???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신 / 피싱 방지 이메일 / 🕘발신자의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.