Excel 에서 Outlook 을 통해 목록에 있는 여러 수신자에게 이메일을 보내는 방법은 무엇인가요?
업무 환경에서는 Excel 워크시트 열에 저장된 이메일 주소 목록을 활용해 뉴스레터 배포, 송장 발송 또는 행사 참가자 알림 등의 작업을 수행해야 하는 경우가 많습니다. 각 주소를 수동으로 입력하거나 Outlook 을 열어 이메일을 작성하는 대신, Excel 을 사용하면 모든 수신자에게 직접 메시지를 보내는 과정을 간소화할 수 있습니다. 이 가이드에서는 Outlook 과 통합하여 Excel 에서 여러 수신자에게 한 번에 이메일을 보내는 자세한 해결책을 제공합니다。
VBA 코드를 사용하여 Excel 에서 여러 수신자에게 이메일 보내기
VBA 코드를 사용하여 현재 워크북를 첨부파일로 여러 수신자에게 이메일 보내기
대안 솔루션: Excel 수식을 사용하여 세미콜론으로 구분된 이메일 주소 보내기
VBA 코드를 사용하여 Excel 에서 여러 수신자에게 이메일 보내기
한 번에 동일한 이메일을 여러 사람에게 보내야 하고 워크시트 열에 해당 주소록이 저장되어 있다면 VBA 코드를 사용해 이 작업을 자동화할 수 있습니다. 이 방법은 Outlook 에서 개별적으로 수신자를 추가하지 않고도 일괄 알림이나 그룹 업데이트를 수행할 때 특히 유용합니다。 다음 단계를 따르세요:
1.ALT + F11키를 동시에 눌러Microsoft Visual Basic for Applications창을 엽니다。 개발자 탭을 활성화하지 않은 경우 Excel 설정에서 안내를 확인할 수 있습니다。
2.VBA 창에서삽입>모듈을 클릭합니다。 그러면 코드를 입력할 수 있는 빈 모듈 창이 열립니다。 다음 코드를 붙여넣으세요:
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.메시지 작성이 완료되면보내기버튼을 클릭하여 목록에 있는 모든 수신자에게 동시에 이메일을 보냅니다。 이 방식은 주소를 빠뜨리지 않으면서 그룹 커뮤니케이션 속도를 높여줍니다。
팁: 이 방법이 정상적으로 작동하려면 Outlook 이 설치되어 있고 기본 이메일 클라이언트로 설정되어 있어야 합니다. 프롬프트가 나타나지 않는 등의 문제가 발생하면 Excel 의 매크로 보안 설정을 다시 확인하세요。
적용 시나리오: 이 방법은 팀 공지, 행사 알림 또는 동일한 정보를 여러 사람에게 전송할 때 사용합니다。 장점은 최소한의 수동 입력으로 빠르고 정확하게 처리할 수 있다는 점이며, 단점은 개별 수신자별 메시지 개인화가 불가능하다는 점입니다。
문제 해결: Outlook 메시지 창이 열리지 않으면 Outlook 이 정상적으로 실행 중인지, 기본 메일 처리기로 설정되어 있는지 확인하세요。 또한 선택한 모든 셀에 유효한 이메일 주소가 포함되어 있는지 확인하세요。 오류 처리 기능이 포함되어 있지만, 최상의 결과를 위해 공백이거나 형식이 잘못된 셀은 피하는 것이 좋습니다。
다양한 첨부파일과 함께 여러 수신자에게 개인화된 이메일 보내기: 고유한 첨부파일 전송, 맞춤형 콘텐츠 작성 또는 CC/Bcc 를 자동으로 추가하는 등 보다 고급 요구사항의 경우Kutools for Excel이메일 보내기기능을 사용하면 Excel 에서 Outlook 을 통해 개인화된 이메일을 빠르고 쉽게 전달할 수 있습니다。 이 기능을 통해 각 수신자에 맞춰 이메일을 조정하고 별도의 첨부파일을 추가하며, 필요에 따라 참조 수신자 포함/Bcc 수신자를 지정하여 더욱 유연한 대량 메일 발송이 가능합니다。Kutools for Excel 다운로드하기를 클릭하세요!
|
VBA 코드를 사용하여 현재 워크북을 첨부파일로 여러 수신자에게 이메일 보내기
현재 Excel 통합 문서를 여러 수신자에게 첨부파일로 보내야 한다면 다음 VBA 솔루션이 이 과정을 자동화하는 데 도움이 됩니다。 이 방법은 보고서, 재무 요약 또는 공동 작업 문서를 여러 이해관계자와 공유할 때 이상적입니다。
1.Excel 을 열고ALT + F11키를 눌러Microsoft Visual Basic for Applications환경을 실행합니다。
2.VBA 편집기에서삽입>모듈로 이동한 후 아래 코드를 모듈 창에 복사하여 붙여넣으세요:
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.보내기버튼을 클릭하여 워크북이 첨부된 이메일을 모든 수신자 선택에게 한 번에 보냅니다。
주의 사항: 워크북에 민감한 정보가 포함되어 있다면 보내기 전에 수신자 목록을 신중히 확인하세요. 파일 첨부 중 오류가 발생하면 워크북이 저장되었는지, 다른 프로그램에서 열려 있지 않은지 확인하고, Outlook 이 자동화를 통해 이메일을 보내도록 올바르게 설정되어 있는지 확인하세요。
사용 사례: 이 솔루션은 정기 보고서 배포, 공동 작업 워크북 제출 또는 팀이나 고객과 참조 파일 공유에 널리 활용됩니다。 대량 문서 전달에 효율적이지만, 수신자별 별도 첨부파일은 지원하지 않습니다。
일반적인 문제: 프롬프트 창이 열리지 않거나 이메일이 전송되지 않으면 매크로 권한을 부여했는지, 코드 실행 전 워크북을 저장했는지 확인하세요。 또한 선택 항목에 빈 셀이 포함되어 있는지 다시 확인하세요。 코드는 표준 이메일 형식과 일치하지 않는 콘텐츠는 건너뜁니다。
대안 솔루션: Excel 수식을 사용하여 세미콜론으로 구분된 이메일 주소 보내기
Outlook 의받는 사람,참조또는숨은 참조필드에 쉽게 복사할 수 있도록 이메일 주소 목록을 하나의 셀에 세미콜론으로 구분해 빠르게 컴파일하려면 Excel 수식이 간단하고 빠른 해결책을 제공합니다。 특히 매크로를 사용하고 싶지 않을 때 유용합니다。
1.예를 들어, 이메일 주소이 A 열의 1 행부터 7 행까지 나열되어 있다고 가정합니다。 빈 셀(예: B1)에 다음 수식을 입력하세요:
=TEXTJOIN(";",TRUE,A1:A7) 2.Enter키를 누릅니다. 그러면 범위 선택에서 모든 이메일 주소가 세미콜론으로 구분된 하나의 텍스트 문자열로 표시됩니다. 이 셀을 복사하여 Outlook 의 수신자 필드에 직접 붙여넣을 수 있습니다。
수식 매개변수:
- TEXTJOIN: 지정된 구분 기호(이 경우 세미콜론)를 사용하여 셀 범위를 연결합니다。
- TRUE: 범위 내 공백 셀을 제외합니다。 모든 유효한 이메일 주소가 간격 없이 연결됩니다。
- A1:A10: 이 범위를 이메일 주소 목록에 맞게 조정하세요。
장점: 이 방법은 매크로를 활성화할 필요가 없어 VBA 가 제한된 환경에도 적합합니다. Outlook 뿐 아니라 어떤 이메일 플랫폼에도 컴파일된 목록을 빠르게 복사하는 데 유용합니다。
제한 사항: VBA 와 달리 이메일을 자동으로 생성하거나 전송 프로세스를 자동화하지는 않지만, 수신자 목록을 처리할 때 효율성을 높여줍니다。
팁: 목록이 변경되면 수식 범위를 그에 따라 업데이트하세요。 세미콜론 구분자가 아닌 다른 형식을 사용하는 경우";"을 원하는 문자로 바꾸세요。
관련 문서:
Excel 에서 Outlook 을 통해 목록에 맞춤형 대량 이메일을 보내는 방법은 무엇인가요?
최고의 Office 생산성 도구
| 🤖 | KUTOOLS AI 도우미: 다음을 기반으로 데이터 분석 혁신하기:지능형 실행 | 코드 생성| 사용자 지정 수식 생성 | 데이터 분석 및 차트 생성| 향상된 함수 호출… |
| 인기 기능:찾기, 강조 표시 또는 중복 표시 | 빈 행 삭제 | 데이터 손실 없이 열 결합 또는 셀 제거 | 공식을 사용하지 않는 반올림... | |
| 슈퍼 LOOKUP:다중 조건 VLookup | 다중 값 VLookup | 여러 시트에서 VLookup | 퍼지 매치.... | |
| 고급 드롭다운 목록:드롭다운 목록 빠르게 생성 | 종속형 드롭다운 목록 | 다중 선택 드롭다운 목록.... | |
| 열 관리자:특정 수의 열 추가|열 이동|숨겨진 열의 표시 상태 전환|범위 및 열 비교... | |
| 주요 기능:그리드 포커스 | 디자인 보기 |향상된 수식 표시줄 | 워크북 및 시트 관리자 | 자원 라이브러리(자동 텍스트)| 날짜 선택기 | 워크시트 병합 | 암호화/셀 해독 | 목록으로 이메일 보내기 | 슈퍼 필터 | 특수 필터(굵은 글꼴이 있는 셀 필터링/기울임꼴/취소선。。。) 。。。 | |
| 상위 15 도구 모음:12 텍스트도구(텍스트 추가,특정 문자 삭제, ...)| 50+차트유형(간트 차트, ...)| 40+ 실용적인수식(생일을 기준으로 나이 계산, ...)| 19 삽입도구(QR 코드 삽입,경로에서 그림 삽입, ...)| 12 변환도구(단어로 변환하기,환율 변환, ...)| 7 병합 및 분할도구(고급 행 병합,셀 분할, ...)|그 외 더 많은 기능 |
Kutools for Excel 로 Excel 역량을 한 단계 업그레이드하고 전례 없는 효율성을 경험하세요。Kutools for Excel 는 생산성과 저장 시간을 향상시키는 300 개 이상의 고급 기능을 제공합니다。가장 필요한 기능을 지금 바로 확인하세요。。。
Office Tab 가 Office 에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만들어 줍니다
- Word, Excel, PowerPoint 에서 탭 기반 편집 및 읽기 기능을 활성화합니다, Publisher, Access, Visio 및 Project 에서도 사용 가능합니다。
- 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 생성할 수 있습니다。
- 50% 만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄여줍니다!
모든 Kutools 애드인。 하나의 설치 프로그램
Kutools for Office스위트 번들은 Excel, Word, Outlook 및 PowerPoint 용 애드인과 Office Tab Pro 를 포함하며, 다양한 Office 앱을 사용하는 팀에 이상적입니다。
- 올인원 스위트— Excel, Word, Outlook 및 PowerPoint 애드인 + Office Tab Pro
- 하나의 설치 프로그램, 하나의 라이선스— 몇 분 안에 설정 완료(MSI 지원)
- 함께 사용할수록 더 효과적입니다— Office 앱 전반에서 생산성 향상
- 30 일간 모든 기능 무료 체험— 등록이나 신용카드 필요 없음
- 최고의 가성비— 개별 애드인 구매 대비 절약
