우리는 Excel 에 다양한 종류의 정보를 저장합니다. 워크시트. 예를 들어 이메일 중요한 사람이나 다른 회사의 주소. 그리고 필요할 때 해당 주소로 이메일을 보내야 할 수도 있습니다. 그러나 각각의 주소를 반복해서 복사하는 것은 상당히 피곤하고 시간이 많이 걸립니다. 이 기사에서는 여러 이메일을 보내는 쉽고 효과적인 방법을 보여 드리겠습니다. Excel 스프레드시트에서 .
다음 워크북을 다운로드하여 스스로 연습하세요.
Excel 스프레드시트에서 여러 이메일을 보내는 2가지 쉬운 방법
설명을 위해 샘플 데이터 세트를 예로 사용하겠습니다. 예를 들어 다음 데이터 세트는 영업 사원 을 나타냅니다. 및 이메일 구애. 여기에서 이 Excel 스프레드시트의 주소를 사용하여 모든 사람에게 이메일을 보냅니다. .
1. Word에서 편지 병합을 사용하여 Excel 스프레드시트에서 여러 이메일 보내기
첫 번째 방법에서는 MS Word를 사용합니다. 및 편지 병합 기능 워드 에서 여러 이메일 보내기 Excel 스프레드시트에서 . 따라서 다음 단계에 따라 작업을 수행하십시오.
단계:
- 먼저 빈 Word를 엽니다. 파일.
- 그런 다음 원하는 메시지를 입력하세요.
- 그런 다음 메일링 으로 이동합니다. ➤ 수신자 선택 ➤ 기존 목록 사용 .
- 결과적으로 데이터 소스 선택 대화 상자가 나타납니다.
- 그런 다음 Excel 을 선택합니다. 이메일 주소가 저장됩니다.
- 열기 누르기 .
- 결과적으로 테이블 선택 대화 상자가 나타납니다.
- 여기서 원하는 시트를 선택하고 확인을 누릅니다. .
- 이제 각 메일에 대해 대체해야 하는 단어를 선택합니다. 이 예에서는 Wilham을 선택합니다. .
- 다음으로 메일링 탭에서 영업 사원 을 선택하십시오. 병합 필드 삽입 에서 드롭다운.
- 따라서 아래와 같이 메시지를 반환합니다.
- 또한 받는 사람의 관점에서 메일 미리보기를 보려면 미리보기 결과를 클릭하세요. .
- 마침 및 병합 아래 드롭다운에서 이메일 메시지 보내기를 선택합니다. .
- 따라서 이메일로 병합 대화 상자가 나타납니다.
- 헤더를 선택하십시오. 이메일 받는 사람 입력란에 제목 을 입력하십시오. (인사 ) 필요에 따라
- 마지막으로 확인 을 누릅니다. 그러면 모든 수신자에게 메일이 발송됩니다.
자세히 알아보기: 편집 가능한 Excel 스프레드시트를 이메일로 보내는 방법(3가지 빠른 방법)
유사한 수치
- 날짜를 기준으로 Excel에서 자동으로 이메일을 보내는 방법
- 매크로를 사용하여 본문과 함께 Excel에서 이메일 보내기(간단한 단계 포함)
- Excel 파일을 이메일로 자동 전송하는 방법(적절한 3가지 방법)
- Excel에서 조건이 충족되면 이메일을 보내는 방법(3가지 쉬운 방법)
- 셀 내용을 기반으로 Excel에서 자동으로 이메일 보내기(2가지 방법)
2. 스프레드시트에서 여러 이메일을 보내기 위한 Excel VBA 적용
그러나 VBA 를 사용하면 번거로움을 피할 수 있습니다. 작업을 수행하는 코드. 이 방법에서는 3 여러 이메일 보내기 의 다양한 예 스프레드시트 에서 Excel VBA를 통해 .
2.1 목록에 대량 이메일 보내기
이 예에서는 모든 사람에게 공통 메시지를 메일로 보내는 방법을 볼 수 있습니다. 따라서 다음 단계를 배우십시오.
단계:
- 먼저 개발자 를 선택합니다. ➤ 비주얼 베이직 .
- 결과적으로 VBA 창이 나타납니다.
- 이제 삽입 을 클릭하십시오. ➤ 모듈 .
- 다음으로 다음 코드를 복사하여 모듈 에 붙여넣습니다. 창.
Sub massEmails()
Dim appOutlook As Object
Dim Email As Object
Dim mailbody, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
mailto = mailto & Cells(i, 2) & ";"
Next i
ThisWorkbook.Save
Email.To = mailto
Email.Subject = "Important Notice"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Company Rules." & vbNewLine & "Regards."
Email.Display
End Sub
- 파일을 저장하고 F5 키를 누릅니다. 코드를 실행합니다.
- 결과적으로 전망 창이 나타나고 받는 사람 필드.
- 드디어 보내기를 누릅니다. .
2.2 여러 첨부 파일이 있는 이메일
또한 첨부할 파일이 두 개 이상이고 여러 이메일 주소로 보내야 하는 경우 아래 절차를 따르세요.
단계:
- 개발자 처음에는 탭하세요.
- 그런 다음 Visual Basic을 선택합니다. .
- 그 후 VBA 창에서 모듈 을 선택하십시오. 삽입 아래 .
- 모듈 창에서 아래 코드를 복사하여 붙여넣습니다.
Sub attachments()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
source = "D:\SOFTEKO\how to send multiple emails from excel spreadsheet\" & Cells(j, 3)
Email.attachments.Add source
Next
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub
- 저장하고 F5 키를 눌러 코드를 실행합니다. .
- 결과적으로 Outlook 창이 나타나고 원하는 첨부 파일이 표시됩니다.
2.3 셀 값 기반 이메일
Excel 특정 셀 값이 요구 사항과 다를 때 파일은 자동으로 여러 주소로 이메일을 보냅니다. 다음 데이터세트에는 50 이 있습니다. 셀 B5 . 100 미만이면 코드에서 이메일을 보냅니다. . 이제 작업을 수행하기 위해 다음 프로세스를 배우십시오.
단계:
- 먼저 시트를 선택하고 마우스 오른쪽 버튼을 클릭합니다.
- 그런 다음 코드 보기를 선택합니다. .
- 팝아웃 대화 상자에서 아래 코드를 복사하여 붙여넣습니다.
Dim rn As Range
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set rn = Intersect(Range("B5"), Target)
If rn Is Not hing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value < 100 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub MailCellvalues()
Dim appOutlook As Object
Dim Email As Object
Dim mailbody, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
mailto = mailto & Cells(i, 3) & ";"
Next i
ThisWorkbook.Save
Email.To = mailto
Email.Subject = "Important Notice"
Email.Body = "Greetings Everyone," & vbNewLine & "Please raise B5 above 100." & vbNewLine & "Regards."
Email.Display
End Sub
- 그런 다음 파일을 저장하고 F5 키를 누릅니다. 실행합니다.
- 결과적으로 Outlook 에 결과가 표시됩니다. 창.
자세히 보기:Excel 목록에서 이메일을 보내는 방법(2가지 효과적인 방법)
결론
이제부터는 여러 이메일 보내기 를 할 수 있습니다. Excel 스프레드시트에서 위에서 설명한 방법을 따릅니다. 계속 사용하고 작업을 수행할 더 많은 방법이 있으면 알려주십시오. ExcelDemy 팔로우 이와 같은 더 많은 기사를 보려면 웹사이트를 방문하세요. 아래 의견 섹션에 의견, 제안 또는 쿼리가 있는 경우 삭제하는 것을 잊지 마십시오.
관련 기사
- VBA를 사용하여 Excel 워크시트에서 자동으로 미리 알림 이메일 보내기
- Excel에서 조건이 충족되면 자동으로 이메일을 보내는 방법
- [해결됨]:Excel에 표시되지 않는 공유 통합 문서(간단한 단계 사용)
- Excel에서 이메일을 보내는 매크로(적합한 5가지 예)
- 본문과 함께 Excel에서 이메일을 보내는 매크로(3가지 유용한 사례)
- Excel 매크로:셀의 주소로 이메일 보내기(2가지 쉬운 방법)