엑셀에서 자동으로 메일 보내기 3 - 메일 전송 버튼 만들기 [엑셀 VBA]

https://data-so-hard.tistory.com/114

지난 편에서 메일 자동화에 대한 코드를 진행해봤는데 이번에는 아래 그림처럼 메일 전송 버튼을 만들어서 버튼을 클릭하면 2편에서 작성한 코드가 진행돼서 메일이 전송되도록 해보겠습니다. 

 

우선 버튼을 만들어야 합니다. 버튼을 만들기 위해서는 아래와 같은 단계를 거쳐야 합니다. 

 

A. 개발 도구 탭 활성화
우선, 엑셀에서 개발 도구 탭이 활성화되어 있어야 합니다. 만약 활성화되어 있지 않다면 다음 단계를 따라 활성화할 수 있습니다.

1. 엑셀에서 상단 메뉴의 파일을 클릭합니다.
2. 옵션을 선택합니다.
3. 리본 사용자 지정을 클릭합니다.
4. 오른쪽 목록에서 개발 도구를 체크하고 확인을 누릅니다.
5. 이제 개발 도구 탭이 리본 메뉴에 추가됩니다.

B. 메일 전송 버튼 추가
1. 개발 도구 탭으로 이동합니다.
2.  삽입 메뉴를 클릭한 후 **양식 컨트롤의 버튼(단추)**을 선택합니다.
3. 엑셀 시트에 버튼을 클릭하고 드래그하여 배치합니다.
4. 버튼을 배치하면, 자동으로 매크로를 연결하는 창이 뜹니다.

 

C. VBA 코드 작성 및 연결
1. VBA 편집기를 열기 위해 Alt + F11을 누릅니다.
2. 아래 코드를 추가하여 "메일 전송" 버튼에 연결할 수 있는 매크로를 작성합니다.

Sub SendEmailsButtonClick()
    ' 메일 전송 함수 호출
    Call SendGmailWithMonthlyAttachment
End Sub

위 코드는 버튼이 눌릴 때 SendGmailWithMonthlyAttachment 함수를 호출하는 간단한 매크로입니다. 이미 작성된 메일 전송 코드를 그대로 사용하여 동작하게 됩니다.

 

D. 버튼에 매크로 연결
1. 다시 엑셀로 돌아와서, "메일 전송" 버튼을 오른쪽 클릭하고 매크로 지정을 선택합니다.
2. SendEmailsButtonClick 매크로를 선택한 후 확인을 클릭합니다.

 

이제 버튼을 클릭하면 SendGmailWithMonthlyAttachment 함수가 실행되어 메일을 자동으로 전송하게 됩니다.

E. 버튼 텍스트 수정
버튼에 표시될 텍스트를 수정하고 싶다면, 버튼을 오른쪽 클릭한 후 "텍스트 편집"을 선택하고 **"메일 전송"**과 같이 원하는 텍스트로 변경할 수 있습니다.

 

네 이렇게 버튼을 만들어 메일 전송 코드를 연결하는 매크로까지 생성해봤습니다.