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-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

• 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
• BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
• 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
• 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
• 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.

자세히보기 ... 지금 다운로드 ...