VBA 스크립트를 사용하여 Excel 스프레드 시트에서 이메일을 보내는 지침

Excel에서 VBA 스크립트를 사용하면 프로그래밍 지식이 필요하지 않습니다. VBA를 사용하면 모든 PC 정보가 포함 된 스프레드 시트 보고서 작성, 스프레드 시트에서 직접 이메일 전송 등의 고급 작업을 수행 할 수 있습니다.

Microsoft Excel 에서 이메일을 보내려면 몇 가지 간단한 스크립트 만 있으면됩니다. Excel office 소프트웨어를 최대한 활용하려면 스프레드 시트에이 기능을 추가하는 것을 두려워하지 마십시오 .

엑셀 이메일

Microsoft Excel에서 바로 이메일을 보내려는 이유는 여러 가지가 있습니다. 예를 들어 직원은 매주 문서와 스프레드 시트를 업데이트하고 해당 작업이 완료 될 때 전자 메일 알림을 받거나 때로는 동일한 통합 문서의 모든 연락처에 전자 메일을 보내려고합니다. ...에서

복잡한 Excel 전자 메일 스크립트를 사용해야했지만 실제로는 매우 간단합니다. 이 기사에서는 Excel VBA에서 오랫동안 사용 가능한 CDO (Collaboration Data Objects) 기능을 활용하도록 안내합니다 .

VBA 스크립트를 사용하여 Excel 스프레드 시트에서 이메일을 보내는 지침

CDO는 초기 버전부터 Windows에서 사용되는 메시징 구성 요소입니다. CDONTS라고 불렀습니다. Windows 2000 및 XP가 탄생 한 후 "CDO for Windows 2000"이이를 대체했습니다. 이 구성 요소는 Microsoft Word 또는 Excel 의 VBA 설치에 포함되어 있으며 언제든지 사용할 수 있습니다.

이 구성 요소를 사용하여 VBA가 포함 된 Windows 제품에서 이메일을 보내는 것은 매우 쉽습니다. 예를 들어,이 기사는 Excel에서 CDO를 사용하여 하나의 셀에 결과가 포함 된 이메일을 보냅니다.

1 단계 : VBA 매크로 생성

첫째, 주요 엑셀 개발자 >를 클릭 삽입 테이블 컨트롤 , 다음 명령 버튼을 선택합니다.

VBA 스크립트를 사용하여 Excel 스프레드 시트에서 이메일을 보내는 지침

이 스프레드 시트로 드래그 한 다음 클릭하여 새 매크로를 만들 매크로 개발자 리본.

VBA 스크립트를 사용하여 Excel 스프레드 시트에서 이메일을 보내는 지침

만들기 버튼을 클릭 하면 VBA 편집기가 열립니다.

편집기에서 도구> 참조 로 이동하여 CDO 라이브러리에 대한 참조를 추가하십시오 .

VBA 스크립트를 사용하여 Excel 스프레드 시트에서 이메일을 보내는 지침

Windows 2000 Library 용 Microsoft CDO 가 표시 될 때까지 목록을 아래로 스크롤하십시오 . 확인란을 선택하고 확인을 클릭하십시오 .

VBA 스크립트를 사용하여 Excel 스프레드 시트에서 이메일을 보내는 지침

확인 을 클릭 하면 나중에 필요하므로 스크립트를 붙여 넣은 함수의 이름을 적어 둡니다.

2 단계 : CDO 필드 "보낸 사람"및 "받는 사람"설정

이렇게하려면 먼저 전자 메일 관련 개체를 만들고 필요한 모든 전자 메일 배달 필드를 설정해야합니다.

많은 필드가있을 수도 있고 아닐 수도 있지만 From 및 To가 필요하다는 것을 기억하십시오.

개체로
Dim CDO_Mail 개체로
Dim CDO_Config 변형 Dim으로 SMTP_Config 변형 Dim strSubject로
문자열
Dim strFrom 문자열로
Dim strTo 문자열로
Dim strCc로 문자열
Dim strBcc로 문자열
Dim strBody로 문자열

strSubject = " Excel 스프레드 시트의 결과" strFrom = "rdube02@gmail.com"
strTo = "rdube02@gmail.com"
strCc = ""
strBcc = ""
strBody = "이 분기의 총 결과는 다음과 같습니다."& Str (Sheet1 . 셀 (2, 1))

흥미로운 것은 원하는 이메일 문자열을 만들어 전체 이메일 메시지를 사용자 정의하고 strBody 변수에 할당 할 수 있다는 것입니다.

문자열을 사용하여 전자 메일 메시지의 내용을 결합하고 & 를 사용하여 전자 메일에 Microsoft Excel 스프레드 시트의 데이터를 바로 삽입 할 수 있습니다 (위 참조).

3 단계 : 외부 SMTP를 사용하도록 CDO 구성

다음 코드는 외부 SMTP 서버를 사용하여 전자 메일을 보내도록 CDO를 구성하는 위치입니다.

이 예는 Gmail을 통해 SSL을 설정하지 않으며 CDO는 SSL을 대체 할 수 있지만이 기사의 범위를 벗어납니다. SSL을 사용해야하는 경우 Github의 고급 코드가 도움이 될 수 있습니다.

오류 GoTo Error_Handling에서 CDO_Mail = CreateObject ( "CDO.Message") 설정

CDO_Config = CreateObject ( "CDO.Configuration")
CDO_Config.Load -1로 설정하십시오.

SMTP_Config = CDO_Config.Fields 설정

SMTP_Config
.Item 사용 ( "http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ( "http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp. gmail.com "
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername ") =" email@website.com "
.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword ") ="암호 "
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = True.
업데이트
끝

CDO_Mail
설정시 .Configuration = CDO_Config
끝으로

4 단계 : CDO 설정 완료

이제 이메일을 보내도록 SMTP 서버를 구성했습니다. CDO_Mail 오브젝트 의 해당 필드를 채우고 보내기 명령을 실행 하기 만하면 됩니다.

방법은 다음과 같습니다.

CDO_Mail.Subject =
strSubject CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send

Error_Handling :
Err.Description <> ""인 경우 MsgBox Err.Description

Outlook 전자 메일 개체를 사용할 때 일반적으로 표시되는 팝업 또는 보안 경고가 나타나지 않습니다.

CDO는 전자 메일 구성 요소를 나란히 놓고 서버 연결 정보를 사용하여 정보를 보낼 수 있도록합니다. 이메일을 Microsoft Word 또는 Excel VBA 스크립트로 결합하는 가장 쉬운 방법입니다.

이 스크립트에 명령 단추를 연결하려면 코드 편집기에 액세스하고 Sheet1 을 클릭 하여 해당 워크 시트의 VBA 코드를 확인하십시오.

위의 스크립트를 붙여 넣은 함수의 이름을 입력하십시오.

VBA 스크립트를 사용하여 Excel 스프레드 시트에서 이메일을 보내는 지침

받은 편지함에있는 정보입니다.

VBA 스크립트를 사용하여 Excel 스프레드 시트에서 이메일을 보내는 지침

참고 : 전송이 서버에 연결하지 못했습니다 라는 오류 메시지 가 표시되면 With SMTP_Config에 나열된 코드 행에 올바른 사용자 이름, 비밀번호, SMTP 서버 및 포트 번호를 입력했는지 확인하십시오 .

전체 프로세스 강화 및 자동화

하나의 버튼으로 Excel에서 이메일을 보내는 것이 실제로 안전하고 편리합니다. 이 기능을 자주 사용하려면 자동화 할 수 있습니다.

이렇게하려면 매크로를 변경해야합니다. Visual Basic Editor로 이동하여 수집 된 전체 코드를 복사하여 붙여 넣습니다. 그런 다음 프로젝트 계층 구조 에서이 통합 문서 를 선택하십시오 .

코드 창의 맨 위에있는 두 개의 드롭 다운 필드에서 통합 문서를 선택 하고 메소드 메뉴에서 열기 를 클릭하십시오 . 위의 이메일 스크립트를 Private Sub Workbook_Open ()에 붙여 넣으십시오 . 이 작업은 Excel 파일을 열 때마다 매크로를 실행합니다.