Note: The other languages of the website are Google-translated. Back to English

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 첨부 파일 이름을 제목으로 사용할 것인지 묻는 대화 상자가 나타나면 가능 버튼을 클릭합니다.

그러면 제목 줄에 삽입된 첨부 파일의 이름이 자동으로 채워집니다.

노트:

1) 이미 제목을 입력하셨다면 첨부파일을 넣어도 대화상자가 뜨지 않습니다.
2) 현재 이메일에서 기존 제목을 제거했지만 커서가 여전히 제목 줄에 표시되어 있는 경우 첨부 파일을 삽입해도 대화 상자가 나타나지 않습니다. 제목을 제거한 후 코드가 작동하도록 하려면 제목 줄에서 멀리 클릭하여 메시지 상자를 새로 고쳐야 합니다.
3) 여러 개의 첨부파일을 동시에 삽입할 경우 첫 번째 첨부파일의 이름만 이메일 제목으로 사용할 수 있습니다.

Outlook 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (7)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
물론입니다. Подскажите пожалуйста можно ли сделать что бы тема formировалась из 2 и более файлов с разделение И? Может в данном коде дописать или вообще другой существует? Заранее спасибо
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하십니까?

제목에 첨부파일 이름을 동시에 추가한 다음 AND로 연결하면서 여러 첨부파일을 추가한다는 의미인가요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
예. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그래, 이미. ТЕ при добавлении или перетягивании двух файлов тема письma автоматом писалась через И
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
물론입니다. ДА при добавлении 2 파일로브 в тему писалось через И.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하십니까?

다음 VBA 코드는 문제를 해결하는 데 도움이 될 수 있습니다. 시도해 보십시오.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
아직 코멘트가 없습니다

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호