Excel VBA를 사용하여 Outlook에서 대량 이메일을 보내는 방법

클라이언트, 고객, 친구 또는 기타 연락처에 개인화된 대량 이메일을 전달해야 합니까? 한 번의 클릭으로 그렇게 하시겠습니까? 가능합니다! Microsoft Excel 에는 이러한 모든 작업을 수행하는 마법 같은 도구가 있습니다 . Visual Basic for Applications 일명 Excel VBA입니다.

Excel VBA를 사용하여 Outlook에서 대량 이메일을 보내는 방법을 알아 보려면 계속 읽으십시오 . 더있다! 아래 자습서에 언급된 가장 간단한 단계를 따라 연습할 수 있습니다. 파헤쳐 보자!

현재 자습서에서는 Excel에서 대량 전자 메일을 자동화하는 데 필요한 VBA 코드를 제공합니다. 하나의 Excel 파일에 데이터를 수집하고 몇 가지 빠른 서식을 수행하기만 하면 됩니다.

실행할 VBA 프로그램은 Microsoft Outlook을 이메일 전송 앱으로 사용합니다. 따라서 컴퓨터에 Outlook을 설치하고 구성해야 합니다. VBA 코드는 웹 브라우저 기반 Outlook 프로그램을 사용할 수 없습니다.

Excel 파일 및 Outlook 앱을 사용할 준비가 되면 다음 단계를 수행합니다.

대량 이메일 워크시트를 6열로 구성합니다.
행 A1에 열 머리글을 입력합니다. 이메일 수신(A); 이메일 참조(B); 이메일 제목(C); 이메일 본문(D), 첨부파일(E), 상태(F).
열 A 머리글 아래에 모든 "받는 사람 주소"를 추가합니다 . 원하는 경우 수천 개의 이메일을 추가할 수 있습니다.
마찬가지로 B 열 제목 아래에 "CC 주소"를 입력합니다.
이메일 제목을 개인화할 때입니다. 열 C 제목 아래에 각 연락처에 대한 사용자 정의 이메일 제목을 추가할 수 있습니다.
이메일 본문 내용도 마찬가지입니다. 열 D 제목 아래의 행에 이메일 콘텐츠를 복사하여 붙여넣습니다 .
열 E 제목 아래에 파일 첨부 위치를 복사하여 붙여넣습니다.
첨부 파일 위치를 얻으려면 Shift 키를 누르고 컴퓨터에서 대상 파일을 선택하십시오.
이제 마우스 오른쪽 버튼을 클릭 하고 경로로 복사를 선택하여 PC 클립보드에 파일 주소를 복사합니다.
이제 주소를 E 열의 행에 직접 붙여넣을 수 있습니다.
VBA 코드가 상태를 자동으로 채우므로 F 열을 비워 둡니다 .

Excel VBA를 사용하여 Outlook에서 대량 이메일을 보내는 방법

Excel 시트를 매크로 지원 파일로 저장합니다.
이제 Alt+F11을 눌러 VBA 코드 편집기를 불러옵니다.
상단 메뉴에서 도구를 클릭 한 다음 참조를 선택합니다 .
다음 목록에서 Microsoft Office 16.0 개체 라이브러리를 찾아 확인란을 선택합니다 .
확인을 클릭하여 Outlook을 VBA용 개체로 저장합니다.

Excel VBA를 사용하여 Outlook에서 대량 이메일을 보내는 방법

이제 삽입을 클릭한 다음 모듈을 선택하여 코드 편집기를 엽니다.
Module 에 아래 언급된 코드를 복사하여 붙여넣으십시오 .

Sub Send_Bulk_Mails() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Worksheet_Name") Dim i As Integer Dim OA As Object Dim msg As Object Set OA = CreateObject("outlook.application") Dim last_row As Integer last_row = 응용 프로그램. CountA(sh.Range("A:A")) For i = 2 to last_row Set msg = OA.createitem(0) msg.to = sh.Range("A" & i).Value msg.cc = sh. Range("B" & i).Value msg.Subject = sh.Range("C" & i).Value msg.body = sh.Range("D" & i).Value If sh.Range("E" & i).Value <> "" Then msg.attachments.Add sh.Range("E" & i).Value End If msg.send sh.Range("F" & i).Value = "Sent" 다음 i MsgBox "모든 이메일이 전송되었습니다" End Sub