현재 Word 파일을 첨부하여 이메일을 보내는 버튼을 적용하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-05-21

Outlook을 사용하여 Word 문서에서 이메일을 보내고 현재 Word 파일을 첨부해야 하는 경우, 한 번의 클릭으로 이메일을 보내는 명령 버튼을 삽입할 수 있습니다. Outlook을 수동으로 열 필요가 없습니다. 이 가이드에서는 이를 빠르고 쉽게 설정하는 방법을 보여줍니다.

현재 Word 파일을 첨부하여 이메일을 보내는 버튼 적용하기

다음 단계를 따라 Word 문서에서 작업을 완료하세요:

먼저 명령 버튼을 삽입합니다. "개발 도구" → "레거시 도구" → "명령 버튼 (ActiveX 컨트롤)"로 이동합니다.
참고: 리본 메뉴에서 개발 도구 탭이 보이지 않는 경우 다음을 참조하세요: Word 리본에 개발 도구 탭을 표시하는 방법.
버튼을 선택한 다음 "개발 도구" 탭 아래의 "속성"을 클릭합니다. 속성 창에서 "캡션" 필드에 버튼에 표시할 텍스트를 입력합니다.
속성 창을 닫습니다. 그런 다음 버튼을 마우스 오른쪽 버튼으로 클릭하고 "코드 보기"를 선택합니다.

"Microsoft Visual Basic for Applications" 창에서 기존 서브루틴 태그 사이에 다음 코드를 붙여넣습니다:

Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
    .Subject = "Fax-data"
    .Body = "This is a test email."
    .To = "yy@addin99.com"
    .Importance = olImportanceNormal
    .Attachments.Add xDoc.FullName
    .Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True

참고: 코드에서 제목, 본문 내용 및 수신자 이메일 주소를 실제 메시지 세부 정보에 맞게 변경할 수 있습니다.

VBA 편집기를 저장하고 닫습니다. 개발 도구 탭에서 "디자인 모드"를 클릭하여 해제합니다. 이제 명령 버튼을 클릭하면 현재 Word 문서가 첨부된 이메일이 Outlook에서 자동으로 생성됩니다.
마지막으로 Outlook에서 "보내기" 버튼을 클릭하여 메시지를 보냅니다.