Excel에서 Outlook을 통해 목록에 있는 여러 수신자에게 이메일을 보내는 방법은 무엇입니까?

워크시트의 열에 여러 이메일 주소가 있고, Outlook을 열지 않고 Excel에서 바로 이 목록의 수신자들에게 이메일을 보내고 싶다면, 이번 글에서는 Excel에서 여러 수신자에게 동시에 이메일을 보내는 방법에 대해 설명하겠습니다.

VBA 코드를 사용하여 Excel에서 여러 수신자에게 이메일 보내기

VBA 코드를 사용하여 현재 워크북을 첨부 파일로 여러 수신자에게 이메일 보내기

VBA 코드를 사용하여 Excel에서 여러 수신자에게 이메일 보내기

여러 수신자에게 한 번에 메시지를 보내기 위해 VBA 코드를 사용할 수 있습니다. 아래 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Insert > Module을 클릭하고, 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 여러 수신자에게 이메일 보내기

Sub sendmultiple()
'updateby Extendoffice
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Display
    End With
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면, 주소 목록을 선택하라는 프롬프트 상자가 나타납니다. 스크린샷을 참조하세요:

4. 확인을 클릭하면 Outlook 메시지 창이 표시되며, 선택한 모든 이메일 주소가 받는 사람 필드에 추가된 것을 볼 수 있습니다. 이제 제목을 입력하고 메시지를 작성할 수 있습니다. 스크린샷을 참조하세요:

5. 메시지 작성을 완료한 후 보내기 버튼을 클릭하면, 이 메시지는 워크시트 목록에 있는 수신자들에게 전송됩니다.

VBA 코드를 사용하여 현재 워크북을 첨부 파일로 여러 수신자에게 이메일 보내기

현재 워크북을 첨부 파일로 여러 수신자에게 메시지를 보내야 하는 경우, 다음 VBA 코드를 적용할 수 있습니다.

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Insert > Module을 클릭하고, 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 현재 워크북을 첨부 파일로 여러 수신자에게 이메일 보내기

Sub EmailAttachmentRecipients()
'updateby Extendoffice
    Dim xOutlook As Object
    Dim xMailItem As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutlook = CreateObject("Outlook.Application")
    Set xMailItem = xOutlook.CreateItem(0)
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    With xMailItem
        .To = xEmailAddr
        .CC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set xOutlook = Nothing
    Set xMailItem = Nothing
End Sub

3. 코드를 붙여넣은 후, F5 키를 눌러 이 코드를 실행하면, 보낼 메시지의 주소를 선택하라는 프롬프트 상자가 나타납니다. 스크린샷을 참조하세요:

4. 확인 버튼을 클릭하면 Outlook 메시지 창이 표시되고, 모든 이메일 주소가 받는 사람 필드에 추가되었으며, 현재 워크북도 첨부 파일로 삽입된 것을 볼 수 있습니다. 이제 제목을 입력하고 메시지를 작성할 수 있습니다. 스크린샷을 참조하세요:

5. 그런 다음 보내기 버튼을 클릭하여 현재 워크북을 첨부 파일로 하여 수신자 목록에 이 메시지를 보냅니다.

관련 기사:

Excel에서 Outlook을 통해 목록에 있는 여러 수신자에게 맞춤형 대량 이메일을 보내는 방법은 무엇입니까?