Excel에서 통합 문서를 저장할 때 Outlook을 통해 이메일을 보내는 방법은 무엇입니까?

이 가이드는 특정 통합 문서가 Excel에 저장될 때마다 Outlook을 통해 자동으로 이메일을 보내는 방법을 보여줍니다. 간단한 VBA 코드를 사용하여 통합 문서의 업데이트 내용을 원활하게 공유할 수 있습니다.

VBA 코드를 사용하여 통합 문서를 저장할 때 Outlook을 통해 이메일 보내기

VBA 코드를 사용하여 통합 문서를 저장할 때 Outlook을 통해 이메일 보내기

Excel에서 통합 문서를 저장할 때 Outlook을 통해 이메일을 보내려면 다음 단계를 따르세요.

1. 먼저 통합 문서를 Excel 매크로 사용 통합 문서로 저장합니다. 파일 > 다른 이름으로 저장을 클릭하세요. 다른 이름으로 저장 대화 상자에서 통합 문서를 저장할 폴더를 선택하고, 파일 이름 상자에 이름을 입력하고, 저장 형식 지정 드롭다운 목록에서 Excel 매크로 사용 통합 문서를 선택한 후 저장 버튼을 클릭합니다. 스크린샷 보기:

2. 방금 저장한 Excel 매크로 사용 통합 문서를 열고 Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 왼쪽 바에 있는 ThisWorkbook을 두 번 클릭한 다음 아래 VBA 코드를 ThisWorkbook 코드 창에 복사하여 붙여넣습니다. 스크린샷 보기:

VBA 코드: 통합 문서 저장 시 이메일 보내기

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

참고: .To = "Email Address" 줄에서 'Email Address'를 수신자의 이메일 주소로 변경하세요. 필요에 따라 VBA 코드의 Cc, 제목 및 본문 필드를 수정하세요.

3. Alt + Q 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 닫습니다.

이제부터 통합 문서를 업데이트하고 저장할 때마다 업데이트된 통합 문서가 첨부된 이메일이 자동으로 생성됩니다. 보내기 버튼을 클릭하여 이메일을 보내세요. 스크린샷 보기:

참고: 이 VBA 코드는 Outlook을 이메일 프로그램으로 사용하는 경우에만 작동합니다.

관련 기사:

• Excel에서 셀 값에 따라 자동으로 이메일을 보내는 방법은 무엇입니까?
• Excel에서 특정 셀이 수정되었을 때 이메일을 보내는 방법은 무엇입니까?
• Excel에서 버튼을 클릭했을 때 이메일을 보내는 방법은 무엇입니까?
• Excel에서 마감일이 도래했을 때 이메일을 보내는 방법은 무엇입니까?
• Excel에서 통합 문서가 업데이트되었을 때 이메일 알림 또는 알림을 보내는 방법은 무엇입니까?