Excel에서 지정된 셀 범위로 이메일을 보내는 방법은 무엇입니까?

많은 경우 Excel 워크시트의 특정 범위가 이메일 소통에 유용할 수 있습니다. 이 문서에서는 Excel에서 직접 특정 범위를 이메일 본문에 포함하여 이메일을 보내는 방법을 소개합니다.

Excel에서 지정된 셀 범위로 이메일 보내기
놀라운 도구를 사용하여 지정된 셀 범위에서 이메일 보내기
Excel에서 메일 보내기에 대한 더 많은 튜토리얼...

Excel에서 지정된 셀 범위로 이메일 보내기

다음 VBA 코드는 범위를 복사하고 Excel에서 바로 Outlook 이메일 본문에 붙여넣는 데 도움이 됩니다. 아래 단계를 따르세요.

1. 복사해야 할 범위가 있는 워크시트에서 "Alt + F11" 키를 동시에 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

2. 열린 "Microsoft Visual Basic for Applications" 창에서 아래 스크린샷에 표시된 대로 "도구" > "참조"를 클릭하세요.

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

4. "삽입" > "모듈"을 클릭한 다음 아래 VBA 코드를 모듈 창에 복사하여 붙여넣으세요.

VBA 코드: Excel에서 지정된 범위로 이메일 보내기

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

참고:

• 1). 필요에 따라 이 스크립트 줄 xEmailBody = "안녕하세요" & vbLf & vbLf & "추가하려는 메시지 본문" & vbLf & vbLf & xEmailBody & vbNewLine의 이메일 본문을 변경하세요.
• 2). 코드 내 (.To = happy.xuebi@163.com 및 .Subject = "테스트") 줄에서 이메일 수신자와 제목을 지정하세요.

5. 코드를 실행하기 위해 F5 키를 누릅니다. 팝업되는 Kutools for Excel 대화 상자에서 이메일 본문에 붙여넣을 범위를 선택한 다음 확인 버튼을 클릭하세요. 스크린샷 참조:

6. 이제 지정된 수신자, 제목, 본문 및 선택한 Excel 범위로 이메일이 생성되었습니다. "보내기" 버튼을 클릭하여 이 이메일을 보내세요. 스크린샷 참조:

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

놀라운 도구를 사용하여 지정된 셀 범위에서 이메일 보내기

Outlook을 사용하지 않고 Excel에서 직접 지정된 범위 데이터를 포함하여 이메일을 보내고 싶다면, Kutools for Excel의 "이메일 보내기" 기능을 추천드립니다. 이 기능을 사용하면 이메일 주소의 발신 서버를 설정한 후 앞으로 이 이메일 주소를 통해 Excel에서 직접 이메일을 보낼 수 있습니다.

1. 먼저 필요한 필드가 포함된 메일링 목록을 준비해야 합니다.

• 팁: 메일링 목록에는 최소 2개의 행이 있어야 하며, 첫 번째 행은 헤더여야 합니다 (예: Excel에서 두 개의 이메일 주소로 이메일을 보내려면 아래 스크린샷과 같이 "이메일"이라는 헤더와 함께 두 개의 이메일 주소를 입력하세요).
• 
• 또는 메일링 목록 생성 기능을 사용하여 쉽게 메일링 목록을 만들 수 있습니다.

2. 이메일 본문에 추가할 범위를 선택하고 Ctrl + C 키를 눌러 복사하세요.

3. 전체 메일링 목록(헤더 포함)을 선택하고 "Kutools Plus" > "이메일 보내기"를 클릭하세요. 스크린샷 참조:

4. "이메일 보내기" 대화 상자가 팝업됩니다.

• 4.1) 선택된 메일링 목록 항목이 해당 필드에 채워집니다(필요에 따라 메일링 목록에 더 많은 필드를 추가할 수 있음);
• 4.2) 이메일 본문 상자를 클릭하고 Ctrl + V 키를 눌러 선택된 범위 데이터를 붙여넣습니다. 그 후 필요에 따라 다른 내용을 추가하세요;
• 4.3) "Outlook을 사용하여 이메일 보내기" 상자의 선택을 해제하세요;
• 4.4) "발신 서버 설정" 버튼을 클릭하세요. 스크린샷 참조:

  

5. "발신 서버(SMTP) 설정 – 새 스키마" 대화 상자가 팝업됩니다. 이메일 주소와 해당 서버 설정을 입력하고 "보낸 이메일 저장 위치" 상자를 선택한 후 모든 보낸 메일을 저장할 폴더를 지정한 다음 확인 버튼을 클릭하여 설정을 저장하세요.

6. "이메일 보내기" 대화 상자로 돌아오면 "보내기" 버튼을 클릭하여 이메일을 보내세요.

관련 기사: