Excel에서 여러 첨부 파일을 포함한 이메일을 보내는 방법은 무엇입니까?

이 문서에서는 Excel에 첨부된 여러 파일을 포함하여 Outlook을 통해 이메일을 보내는 방법에 대해 설명합니다.

VBA 코드를 사용하여 Excel에서 여러 첨부 파일을 포함한 이메일 보내기

VBA 코드를 사용하여 Excel에서 여러 첨부 파일을 포함한 이메일 보내기

Excel에서 여러 첨부 파일을 포함한 이메일을 보내려면 다음과 같이 하세요.

1. 개발 도구 > 삽입 > 명령 단추 (ActiveX 컨트롤)을 클릭하여 명령 단추를 삽입하세요. 스크린샷 보기:

2. 명령 단추를 삽입한 후, 마우스 오른쪽 버튼으로 클릭하고 상황에 맞는 메뉴에서 코드 보기 를 선택하세요.

3. 열리는 Microsoft Visual Basic for Applications 창에서 도구 > 참조 를 아래 스크린샷과 같이 클릭하세요.

4. 참조 - VBAProject 대화 상자에서 Microsoft Outlook Object Library 옵션을 찾아 선택한 다음 확인 버튼을 클릭하세요.

5. 그런 다음 코드 창의 원래 코드를 아래 VBA 코드로 바꿉니다.

VBA 코드: Excel에서 여러 첨부 파일을 포함한 이메일 보내기

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

참고: .To = happy.xuebi@163.com, .Subject = "test" 및 .HTMLBody = "test" 줄의 변수를 변경하여 이메일 수신자, 제목 및 본문을 지정하십시오.

6. Alt + Q 키를 함께 눌러 Microsoft Visual Basic for Applications 창을 종료합니다.

7. 개발 도구 > 디자인 모드를 클릭하여 디자인 모드를 끕니다. 스크린샷 보기:

8. 명령 단추를 클릭하여 코드를 실행합니다. 나타나는 찾아보기 창에서 이메일에 첨부할 파일을 선택한 다음 확인 버튼을 클릭합니다. 스크린샷 보기:

9. 그런 다음 지정된 필드와 첨부 파일이 나열된 이메일이 생성됩니다. 보내기 버튼을 클릭하여 이메일을 보냅니다. 스크린샷 보기:

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

관련 문서:

• Excel에서 셀에 지정된 이메일 주소로 이메일을 보내는 방법은 무엇입니까?
• Excel에서 지정된 범위를 복사하여 붙여넣어 이메일 본문에 넣어 이메일을 보내는 방법은 무엇입니까?
• Excel에서 VBA를 사용하여 이메일을 보낼 때 Outlook 이메일에 서명을 삽입하는 방법은 무엇입니까?
• Excel에서 마감일이 만료되었을 때 이메일을 보내는 방법은 무엇입니까?
• Excel에서 셀 값에 따라 자동으로 이메일을 보내는 방법은 무엇입니까?