많은 사람들에게 대량 이메일을 보내야 하는 경우 반복적인 작업을 빠르게 처리할 수 있는 자동화된 프로세스가 필요합니다. Excel 만들기 이메일 목록이 있는 파일은 대량 이메일을 보내는 가장 일반적인 방법입니다. 따라서 이 자습서에서는 Excel 에서 이메일을 보내는 방법을 보여 드리겠습니다. 많은 사람들에게 자동으로 나열됩니다.
Excel 목록에서 이메일을 보내는 2가지 편리한 방법
아래 이미지에 일부 사람들의 이름과 이메일, 등록 번호가 포함된 데이터 세트가 포함되어 있습니다. Excel 에서 목록에서 각 개인에게 이메일을 보내야 합니다. 이를 위해 Microsoft Word의 편지 병합을 사용합니다. 기능 , 뒤에 VBA 기존 목록에서 선호하는 개인에게 이메일을 보내는 코드입니다.
1. 메일 병합 기능을 적용하여 Excel 목록에서 여러 이메일 보내기
⇒ 1단계:새 Word 파일 열기
- 빈 Word 열기 문서.
- 메일링 을 클릭합니다. 탭.
- 수신자 선택에서 옵션에서 기존 목록 사용 을 선택합니다. 옵션.
⇒ 2단계:Excel 목록을 Word 파일에 연결
- Excel 목록을 생성한 파일에서 열기 를 클릭하십시오. 파일을 엽니다.
- 목록을 작성한 시트 번호를 선택합니다.
- 그런 다음 확인을 클릭합니다. .
⇒ 3단계:필드 삽입
- 메일링 옵션에서 병합 필드 삽입을 클릭합니다. 삽입하려는 필드를 입력하는 옵션입니다.
- 먼저 이름 필드를 클릭하고 일반 메일의 원하는 위치에 입력하세요.
- 아래 이미지와 같이 이름 을 추가한 후 필드에서 모든 사람의 이름의 변수로 표시됩니다.
- 마찬가지로 Reg 문자 메시지의 원하는 위치에 입력하세요.
- 따라서 아래 그림과 같이 나타납니다.
⇒ 4단계:미리보기 결과 확인
- 미리보기 결과 를 클릭하십시오. 이메일을 보내기 전에 최종 미리보기를 확인하세요.
- 아래 스크린샷은 샘플 이메일의 모양을 보여줍니다.
⇒ 5단계:이메일 병합
- 이메일을 병합하려면 마침 및 병합 옵션.
- 이메일로 병합 열기 상자에서 이메일 메시지 보내기를 선택합니다. 옵션.
- 받는 사람 상자에서 이메일 을 선택합니다. 옵션.
- 제목 에 원하는 제목을 입력합니다. 상자.
- 메일 형식은 HTML 입니다. 기본적으로 변경하지 않아도 됩니다.
- 기록 보내기 옵션에서 전체를 클릭합니다. .
- 마지막으로 확인 을 클릭합니다. 동시에 여러 수신자에게 이메일을 보낼 수 있습니다.
- 결과적으로 모든 이메일은 연결된 Outlook 을 통해 전송됩니다. Outlook 확인 이메일이 전송되었는지 확인하는 전송 옵션.
- 보낸 이메일을 열면 각 필드가 특정 사람의 정보로 채워져 있음을 알 수 있습니다.
참고. 마이크로소프트 아웃룩 기본 메일링 응용 프로그램이어야 합니다. 다른 메일링 애플리케이션을 사용하는 경우 이 절차로 이메일을 보낼 수 없습니다.
자세히 알아보기: Excel에서 조건이 충족되면 자동으로 이메일을 보내는 방법
유사한 수치
- 수정 가능한 Excel 스프레드시트를 이메일로 보내는 방법(3가지 빠른 방법)
- [해결됨]:Excel에 표시되지 않는 공유 통합 문서(간단한 단계 사용)
- VBA를 사용하여 Excel 워크시트에서 자동으로 미리 알림 이메일 보내기
- 공유 Excel 파일에 누가 있는지 확인하는 방법(빠른 단계 사용)
- Excel에서 통합 문서 공유를 활성화하는 방법
2. VBA 코드를 실행하여 범위 선택에서 이메일 보내기
VBA의 축복으로 , Excel 에서 이메일을 보내는 프로그램을 만들 수 있습니다. 범위를 선호하는 목록. 작업을 수행하려면 아래에 설명된 단계를 따르십시오.
⇒ 1단계:모듈 만들기
- VBA 매크로를 열려면 , Alt 키를 누릅니다. + F11 .
- 삽입을 클릭합니다. 탭.
- 모듈 선택 모듈 생성 옵션 .
⇒ 2단계:VBA 코드 붙여넣기
- 새 모듈에서 , 다음 VBA 코드를 붙여넣습니다. .
#If VBA7 And Win64 Then
'Ptr is used to change for operating 32 bit to 64 bit
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal wnd As LongPtr, ByVal lpDirect As String, _
ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _
ByVal nCmd As Long) As LongPtr
#Else
#End If
Sub SendExcelListEMail()
'Declare the variables
Dim xMailAdd As String
Dim xRegCode As String
Dim xBody As String
Dim xURLink As String
Dim xRngCell As Range
Dim xIntRg As Range
Dim xSelectTxt As String
Dim k As Integer
Dim p As Double
On Error Resume Next
'Select range select adddress
xSelectTxt = ActiveWindow.RangeSelection.Address
'Create a Input box for the range selection
Set xIntRg = Application.InputBox("Please Input Excel data range:", "ExcelDemy", xSelectTxt, , , , , 8)
'Apply If condition to specify column numbers for the operation
If xIntRg Is Nothing Then Exit Sub
If xIntRg.Columns.Count <> 3 Then
'Show the result in a msg box for not meeting the condition
MsgBox "Error with Region Selection, please confirm", , "ExcelDemy"
Exit Sub
End If
'Apply For loop to run operation in each row individually
For k = 1 To xIntRg.Rows.Count
' Collect the email address and set to the variable
xMailAdd = xIntRg.Cells(k, 2)
' Give a subject for the Email
xRegCode = "ExcelDemy Registration No."
' Type the body of the email
xBody = ""
' Insert Names with the variable xIntRg
xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf
xBody = xBody & " Here is your ExcelDemy Registration No. "
' Insert Registration No. with the variable xIntRg
xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf
xBody = xBody & "We are really glad to have you visit in our site, keep supporting us." & vbCrLf
xBody = xBody & "ExcelDemy Team"
' Define spaces with (hex)
xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20")
xBody = Application.WorksheetFunction.Substitute(xBody, " ", "%20")
' Specify to replace carriage returns with(hex)
xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A")
' Generate the URL Link
xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody
' Use the Link to start emailing
ShellExecute 0&, vbNullString, xURLink, vbNullString, vbNullString, vbNormalFocus
' three seconds interval for sending keystrokes
Application.Wait (Now + TimeValue("0:00:03"))
Application.SendKeys "%s"
Next
End Sub
⇒ 3단계:프로그램 실행
- F5 키를 누릅니다. 프로그램을 실행합니다.
- 선택 입력 상자의 범위.
- 확인 을 클릭합니다. 이메일을 보낼 수 있습니다.
- 결과적으로 아래 이미지와 같이 이메일 전송 미리보기가 나타납니다.
- 마지막으로 확인을 위해 보낸 이메일을 확인할 수 있습니다.
자세히 알아보기: Excel에서 조건이 충족되면 이메일을 보내는 방법(3가지 쉬운 방법)
결론
이 기사가 Excel 에서 대량 이메일을 보내는 방법에 대한 자습서를 제공했기를 바랍니다. 목록. 이러한 모든 절차를 학습하고 데이터 세트에 적용해야 합니다. 연습 워크북을 보고 이러한 기술을 테스트해 보십시오. 여러분의 소중한 지원 덕분에 계속해서 이와 같은 튜토리얼을 만들게 된 것입니다.
질문이 있으시면 저희에게 연락해 주십시오. 또한 아래 섹션에 자유롭게 의견을 남겨주세요.
우리는 Exceldemy 팀, 귀하의 질문에 항상 응답합니다.
우리와 함께하고 계속 배우십시오.
관련 기사
- Excel에서 Outlook으로 자동 이메일을 보내는 방법(4가지 방법)
- 매크로를 사용하여 본문과 함께 Excel에서 이메일을 보내는 방법(간단한 단계 포함)
- Excel 매크로:셀의 주소로 이메일 보내기(2가지 쉬운 방법)
- 날짜를 기준으로 Excel에서 자동으로 이메일을 보내는 방법
- Excel 스프레드시트에서 여러 이메일을 보내는 방법(2가지 쉬운 방법)
- 본문과 함께 Excel에서 이메일을 보내는 매크로(3가지 유용한 사례)