기존 이메일에 첨부 파일 추가

Question

아래 코드는 첨부 파일을 추가하지만 새 이메일을 만듭니다.

Sub BA7() 
    Dim myItem As Outlook.MailItem 
    Dim myAttachments As Outlook.Attachments 
    Set myItem = Application.CreateItem(olMailItem) 
    Set myAttachments = myItem.Attachments 
    myAttachments.Add "J:\BUILDING\Email attachments\BA7word.docx", _ 
    olByValue, 1, "BA7" 
End Sub 

현재 열려있는 이메일에 첨부 파일을 추가하는 방법이 있습니까?

Answer 1

항목가 관리자 나이 탐색기 메시지 목록에서 선택되어있는 경우 다음과 같이 열려있는 경우

Set myItem = Application.ActiveInspector.CurrentItem 

으로 라인

Set myItem = Application.CreateItem(olMailItem) 

교체 :

Set myItem = Application.ActiveExplorer.Selection(1)