👋 프롤로그: 이메일 지옥에서 우리를 구원해 줄 동아줄

매일 아침, 커피 한 잔과 함께 우리를 맞이하는 건 뭘까요? 바로 끝도 없이 쌓이는 이메일의 산이죠. 😫
특히 매일, 매주, 혹은 매월 똑같은 형식의 보고서를 여러 사람에게 보내야 하는 일... 생각만 해도 한숨부터 나오지 않나요?
'A팀장님께는 이 파일 첨부하고, B부장님께는 저 파일 첨부하고, C대리에게는 참조로 넣고...'
이런 단순 반복 작업에 우리의 소중한 시간과 에너지를 낭비하기엔 인생이 너무 짧습니다.

만약 버튼 하나만 누르면, 엑셀에 정리된 목록을 보고 수십, 수백 명에게 각기 다른 내용과 첨부파일을 담은 이메일이 알아서 척척 발송된다면?
마치 개인 비서가 생긴 것 같은 이 마법 같은 일이, 바로 오늘 우리가 배울 VBA와 Outlook 연동을 통해 현실이 됩니다.

"코딩? 저는 문과인데요?", "개발은 너무 어려워 보여요..." 라고 생각하며 벌써부터 뒤로 가기 버튼을 누르려는 분들! 잠시만요. ✋
VBA는 파이썬이나 자바 같은 본격적인 프로그래밍 언어와는 결이 좀 다릅니다. 엑셀, 파워포인트 등 MS 오피스 프로그램에 내장된, 비교적 쉽고 직관적인 언어거든요.
이 글은 코딩 'ㅋ'자도 모르는 분들도 쉽게 따라 할 수 있도록, 마치 친한 친구가 옆에서 알려주듯 차근차근, 그리고 아주 자세하게 설명해 드릴 거예요.
자, 이제 반복 업무의 굴레에서 벗어나 '칼퇴'의 신세계로 함께 떠나볼까요? 🚀

Chapter 1: 기본기 다지기 - VBA와 Outlook, 넌 대체 누구냐?

자동화 시스템을 구축하기 전에, 우리가 사용할 무기들에 대해 먼저 알아봐야겠죠? 적을 알고 나를 알면 백전백승! VBA와 Outlook이 무엇인지, 그리고 이 둘이 만나면 어떤 시너지를 내는지부터 파헤쳐 봅시다.

1.1. VBA (Visual Basic for Applications): 오피스의 숨겨진 히든카드 🃏

VBA는 'Visual Basic for Applications'의 약자입니다. 이름 한번 거창하죠? 😅
쉽게 말해, MS 오피스 프로그램(엑셀, 워드, 파워포인트, 아웃룩 등)을 제어하고 자동화하기 위해 만들어진 프로그래밍 언어라고 생각하면 돼요.
우리가 엑셀에서 셀을 클릭하고, 함수를 입력하고, 차트를 만드는 모든 행동 하나하나를 코드로 기록하고 실행할 수 있게 해주는 마법의 주문서 같은 거죠.

예를 들어, 엑셀에서 매일 하던 '데이터 복사해서 -> 새 시트에 붙여넣고 -> 특정 조건에 맞는 행만 색칠하고 -> 차트 만들기' 같은 일련의 과정을 VBA 코드로 한 번만 작성해두면, 다음부터는 버튼 클릭 한 번으로 1초 만에 끝낼 수 있습니다. 이게 바로 VBA의 힘이죠.

1.2. Outlook 개체 모델(Object Model): 아웃룩을 조종하는 리모컨 🎮

자, 그럼 Outlook은 어떻게 VBA로 조종할 수 있을까요? 바로 '개체 모델(Object Model)' 덕분입니다.
'개체 모델'이라는 단어가 좀 딱딱하게 들리죠? 그냥 '아웃룩을 구성하는 부품들의 설계도' 또는 '아웃룩 조종 리모컨의 버튼 설명서'라고 생각해보세요.

아웃룩이라는 큰 프로그램 안에는 '메일', '폴더', '연락처', '일정' 등 다양한 기능(부품)들이 있죠.
개체 모델은 이 부품들을 VBA 코드로 선택하고 제어할 수 있도록 약속된 구조를 정의해 놓은 것입니다.

예를 들어,

• Application 객체: 아웃룩 프로그램 그 자체
• MailItem 객체: 이메일 하나하나
• Attachments 객체: 이메일의 첨부파일들
• Recipient 객체: 이메일의 받는 사람, 참조, 숨은 참조

이런 식으로 각 기능들이 '객체(Object)'라는 이름으로 정의되어 있어요. 우리는 VBA 코드를 통해 "아웃룩(Application)아, 새 메일(MailItem) 하나 만들어줘. 그리고 그 메일의 받는 사람(Recipient)은 A로, 제목(Subject)은 B로 설정해줘!" 와 같이 명령을 내릴 수 있게 되는 겁니다.

1.3. 그래서, 이 둘이 만나면 뭐가 좋은데? (a.k.a 환상의 짝꿍)

자, 이제 그림이 좀 그려지시나요? 엑셀의 강력한 데이터 처리 능력과 아웃룩의 이메일 기능을 VBA라는 연결고리로 묶는 겁니다. 이 조합이 왜 '사기캐' 수준의 시너지를 내는지 정리해볼게요.

1. 대량 발송의 개인화 (Mass-mailing, but Personal):
엑셀 시트에 이름, 직급, 이메일 주소, 심지어 개인적인 안부 인사까지 정리해두면, 수백 명에게 메일을 보내더라도 "안녕하세요, OOO 팀장님"처럼 각기 다른 맞춤형 메시지를 보낼 수 있습니다. 받는 사람 입장에서는 정성 가득한 1:1 메일처럼 느껴지겠죠?

2. 조건부 발송 및 첨부파일 관리:
"A팀 소속 직원들에게는 A 보고서를, B팀 소속 직원들에게는 B 보고서를 첨부해서 보내줘." 와 같은 복잡한 조건도 VBA의 `If...Then...Else` 구문을 사용하면 손쉽게 구현할 수 있습니다. 더 이상 첨부파일을 잘못 보내는 실수는 NAVER...☆

3. 휴먼 에러 제로(Zero)에 도전:
사람이 직접 하면 꼭 한두 개씩 빼먹거나, 오타가 나거나, 엉뚱한 사람에게 보내는 실수를 하곤 하죠. 하지만 코드는 거짓말을 하지 않습니다. 🤖 한 번만 제대로 시스템을 구축해두면, 실수는 컴퓨터가 아닌 사람의 몫이 됩니다.

4. 시간은 금! 압도적인 업무 효율:
수십 통의 이메일을 수작업으로 보내는 데 1시간이 걸렸다면, VBA 자동화 시스템으로는 단 10초면 충분합니다. 남는 59분 50초 동안 우리는 커피를 마시거나, 더 중요한 창의적인 업무에 집중할 수 있죠. 이것이 바로 '워라밸'의 시작입니다.

Chapter 2: 실전 준비! 개발 환경 세팅하기 (feat. 5분 컷)

이론은 충분히 익혔으니, 이제 직접 코드를 작성할 준비를 해봅시다. 걱정 마세요, 복잡한 프로그램 설치 같은 건 전혀 필요 없습니다. 우리에게 필요한 건 오직 엑셀(또는 아웃룩) 뿐이니까요!

2.1. 개발자 도구 탭 활성화: 숨겨진 메뉴를 찾아서

기본적으로 엑셀이나 아웃룩에는 VBA 코드를 작성하는 메뉴가 숨겨져 있습니다. 우리는 이 '개발자 도구'라는 숨겨진 탭을 리본 메뉴에 꺼내줘야 해요.

1. 엑셀을 켜고 [파일] 탭을 클릭합니다.
2. 맨 아래에 있는 [옵션]을 클릭합니다.
3. 'Excel 옵션' 창이 뜨면 왼쪽 메뉴에서 [리본 사용자 지정]을 선택합니다.
4. 오른쪽 '리본 메뉴 사용자 지정' 목록에서 '기본 탭' 아래를 보면 '개발 도구'라는 항목이 보일 거예요. 이 체크박스를 클릭하여 활성화해주세요.
5. [확인] 버튼을 누르면 끝!

이제 엑셀 상단 메뉴에 '개발 도구'라는 새로운 탭이 생긴 것을 확인할 수 있습니다. 축하합니다! 당신은 이제 개발자로서의 첫발을 내디뎠습니다. 🎉

2.2. VBA 편집기(VBE) 입장: 코드의 성지로

'개발 도구' 탭을 만들었다면, 이제 본격적으로 코드를 작성할 공간으로 들어가 봅시다. 그곳이 바로 VBE(Visual Basic Editor), 즉 VBA 편집기입니다.

VBE로 들어가는 방법은 두 가지입니다.
- 방법 1: [개발 도구] 탭을 누르고 맨 왼쪽에 있는 [Visual Basic] 아이콘을 클릭합니다.
- 방법 2: 단축키의 신! `Alt` + `F11` 키를 누릅니다. (이 단축키는 앞으로 정말 자주 쓰게 될 테니 꼭 외워두세요!)

`Alt + F11`을 누르면, 엑셀 창과는 별개로 생긴 건 좀 촌스럽지만(?) 전문가 포스가 느껴지는 새 창이 뜰 겁니다. 이곳이 바로 우리가 코드를 작성하고 관리할 작업 공간입니다.

VBE 창은 크게 몇 가지 영역으로 나뉩니다.
- 프로젝트 탐색기 (왼쪽 위): 현재 열려있는 엑셀 파일과 그 안의 시트, 모듈 등을 나무 구조로 보여줍니다.
- 속성 창 (왼쪽 아래): 프로젝트 탐색기에서 선택한 항목의 속성(이름, 색상 등)을 보여주고 수정할 수 있습니다.
- 코드 창 (오른쪽 가장 넓은 영역): 바로 이곳에 우리가 VBA 코드를 직접 입력하게 됩니다.

코드를 작성하려면 먼저 코드를 담을 종이, 즉 '모듈'이 필요합니다. VBE 상단 메뉴에서 [삽입] → [모듈]을 클릭해주세요. 그럼 프로젝트 탐색기에 '모듈' 폴더와 'Module1'이 생기고, 오른쪽에 하얀 코드 창이 활성화될 겁니다. 이제 모든 준비는 끝났습니다!

2.3. 가장 중요한 단계: Outlook 라이브러리 참조 추가하기

자, 여기가 오늘 내용에서 가장 중요하고 핵심적인 부분입니다. 별 다섯 개! ⭐️⭐️⭐️⭐️⭐️
우리는 지금 '엑셀'의 VBA 편집기에서 '아웃룩'의 기능을 사용하려고 합니다. 서로 다른 프로그램이죠. 그래서 엑셀 VBA에게 "야, 지금부터 내가 Outlook이라는 애 기능을 좀 쓸 거니까, 걔 설명서(라이브러리) 좀 읽어보고 준비하고 있어!" 라고 알려주는 과정이 필요합니다. 이 과정을 '참조 추가'라고 합니다.

이걸 안 해주면, 엑셀은 `MailItem`이니 `Recipient`니 하는 아웃룩 전용 단어들을 전혀 알아듣지 못하고 에러를 뿜어냅니다.

1. VBE 창 상단 메뉴에서 [도구] → [참조]를 클릭합니다.
2. '참조' 창이 뜨면, 사용 가능한 참조 목록이 아주 길게 나옵니다. 스크롤을 내려서 'Microsoft Outlook XX.X Object Library'를 찾습니다. (XX.X는 설치된 오피스 버전에 따라 16.0, 15.0 등으로 표시됩니다.)
3. 해당 항목의 왼쪽 체크박스를 클릭하여 활성화합니다.
4. [확인] 버튼을 누르면 완료!

이제 정말 모든 준비가 끝났습니다. 우리의 엑셀은 아웃룩과 대화할 준비를 마쳤고, 우리는 코드를 작성할 하얀 도화지를 펼쳤습니다. 다음 챕터에서 드디어 첫 자동 이메일을 보내는 감격을 느껴봅시다!

Chapter 3: 나의 첫 자동 이메일 발송 (Hello, Automation World!)

두근거리는 마음으로 첫 코드를 작성해 볼 시간입니다. 프로그래밍을 처음 배울 때 "Hello, World!"를 출력해보는 것처럼, 우리도 가장 기본적인 이메일 한 통을 VBA로 보내보겠습니다. 이 과정에서 코드의 기본 구조와 핵심 명령어를 익히게 될 거예요.

3.1. 코드의 뼈대: 변수 선언과 객체 생성

VBA 코드는 보통 `Sub 프로시저이름()` 으로 시작해서 `End Sub` 로 끝나는 하나의 덩어리(프로시저) 안에서 작성됩니다. `Sub`는 Subroutine의 약자로, '하나의 작업 단위' 정도로 이해하시면 됩니다.

우선, 아웃룩과 이메일을 담을 그릇, 즉 '변수'를 선언해야 합니다.

Sub Send_Basic_Email()

    ' 1. 변수 선언: 아웃룩과 메일을 담을 그릇을 준비합니다.
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem

End Sub

- `Dim`: 'Dimension'의 약자로, "지금부터 이러이러한 이름의 변수를 만들겠습니다!" 라고 선언하는 명령어입니다.
- `olApp As Outlook.Application`: 'olApp'이라는 이름의 변수를 만드는데, 이 변수에는 'Outlook 응용 프로그램' 자체를 담을 것이라고 종류를 지정해주는 겁니다. (우리가 앞에서 참조 추가를 했기 때문에 `Outlook.` 이라는 단어를 쓸 수 있는 거예요!)
- `olMail As Outlook.MailItem`: 'olMail'이라는 변수에는 'Outlook의 메일 항목'을 담을 것이라고 지정합니다.

그릇(변수)만 만들면 뭐하나요? 내용물을 담아야죠. 이제 실제로 아웃룩 프로그램을 실행하고, 새 메일을 만드는 '객체 생성' 코드를 추가합니다.

Sub Send_Basic_Email()

    ' 1. 변수 선언
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem

    ' 2. 객체 생성: 실제 아웃룩 프로그램을 실행하고 새 메일을 만듭니다.
    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)

End Sub

- `Set`: 변수에 '객체'를 담을 때는 `Set` 이라는 명령어를 앞에 붙여줘야 합니다. (숫자나 글자를 담을 땐 안 써요.)
- `New Outlook.Application`: "새로운 아웃룩 프로그램을 하나 실행시켜서 olApp 변수에 담아줘." 라는 뜻입니다.
- `olApp.CreateItem(olMailItem)`: "olApp(아웃룩 프로그램)아, 아이템을 하나 만들어줘. 종류는 olMailItem(메일 항목)이야." 라는 뜻입니다. `olMailItem`은 VBA에 내장된 상수로, 숫자 0과 같습니다. 즉, `CreateItem(0)` 이라고 써도 똑같이 작동합니다.

3.2. 이메일 내용 채우기: 받는 사람, 제목, 본문

이제 막 생성된 따끈따끈한 빈 메일(`olMail`)에 내용을 채워봅시다. 이건 정말 직관적이에요.

    ' ... (이전 코드) ...

    ' 3. 메일 내용 작성
    With olMail
        .To = "test@example.com"         ' 받는 사람
        .CC = "cc_user@example.com"      ' 참조
        .BCC = "bcc_user@example.com"    ' 숨은 참조
        .Subject = "VBA로 보내는 첫 이메일입니다." ' 제목
        .Body = "안녕하세요." & vbCrLf & "VBA를 이용한 아웃룩 자동화 테스트입니다." & vbCrLf & "감사합니다." ' 본문
    End With

    ' ... (이후 코드) ...

- `With olMail ... End With`: `olMail`에 대해서 여러 가지 작업을 연달아 할 때, 매번 `olMail.To`, `olMail.Subject` 처럼 반복해서 쓰는 걸 줄여주는 편리한 구문입니다. `With` 블록 안에서는 `.`(점)만 찍으면 `olMail`에 대한 속성을 바로 지정할 수 있어요.
- `.To`, `.CC`, `.BCC`, `.Subject`: 이름 그대로 받는 사람, 참조, 숨은 참조, 제목을 지정하는 속성입니다. 여러 명에게 보낼 때는 세미콜론(;)으로 이메일 주소를 구분합니다. (예: `.To = "a@a.com; b@b.com"`)
- `.Body`: 일반 텍스트(Plain Text) 형식의 본문을 작성하는 속성입니다.
- `vbCrLf`: VBA에서 사용하는 '줄바꿈'을 의미하는 상수입니다. `&` 기호는 문자열들을 서로 이어주는 역할을 합니다.

3.3. 발송! `.Send` vs. `.Display`

내용을 모두 채웠다면 이제 발송할 차례입니다. 발송 방법에는 크게 두 가지가 있습니다.

1. `.Display`: 바로 보내지 않고, 작성된 메일 창을 화면에 띄우기
코드가 잘 작동하는지, 오타는 없는지, 받는 사람은 맞는지 등을 최종 확인하고 싶을 때 사용합니다. 안전이 최고죠! 👍

2. `.Send`: 묻지도 따지지도 않고 바로 발송하기
모든 것이 완벽하다고 확신할 때, 최종적으로 사용하는 명령어입니다. 클릭하는 순간 메일은 당신의 손을 떠나게 됩니다. 🚀

우리는 첫 테스트니까 안전하게 `.Display`를 사용해 보겠습니다.

3.4. 최종 코드 및 마무리 작업

지금까지의 내용을 모두 합치고, 마지막으로 사용했던 아웃룩 객체들을 메모리에서 해제해주는 정리 코드까지 추가하면 첫 번째 자동 이메일 코드가 완성됩니다.

Sub Send_First_Automated_Email()

    ' 1. 변수 선언: 아웃룩과 메일을 담을 그릇을 준비합니다.
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem

    ' 2. 객체 생성: 실제 아웃룩 프로그램을 실행하고 새 메일을 만듭니다.
    On Error Resume Next ' 만약 아웃룩이 이미 켜져 있다면 에러를 무시하고 넘어갑니다.
    Set olApp = GetObject(, "Outlook.Application")
    If olApp Is Nothing Then
        Set olApp = New Outlook.Application
    End If
    On Error GoTo 0

    Set olMail = olApp.CreateItem(olMailItem)

    ' 3. 메일 내용 작성
    With olMail
        .To = "본인 이메일 주소를 입력하세요"  ' 테스트를 위해 본인 주소를 넣어보세요.
        .Subject = "VBA 자동화 테스트 메일입니다. 🚀"
        .Body = "안녕하세요!" & vbCrLf & vbCrLf & _
                "이 메일은 엑셀 VBA를 통해 자동으로 작성되었습니다." & vbCrLf & _
                "성공적으로 받으셨다면, 당신은 자동화의 첫 걸음을 뗀 것입니다!" & vbCrLf & vbCrLf & _
                "축하합니다! 🎉"
        
        ' .Send ' 최종적으로는 이 코드를 사용합니다.
        .Display ' 테스트 중에는 이 코드를 사용해서 확인합니다.
    End With

    ' 4. 마무리: 사용한 객체들을 메모리에서 해제합니다. (필수!)
    Set olMail = Nothing
    Set olApp = Nothing

End Sub

[코드 설명 보충]
- `On Error Resume Next ...`: 아웃룩이 이미 실행 중일 때 `New Outlook.Application`을 하면 새 창이 또 뜨는 것을 방지하기 위한 코드입니다. `GetObject`로 기존에 실행 중인 아웃룩을 먼저 찾아보고, 없으면(`Is Nothing`) 새로 실행하라는 의미입니다. 초보 단계에서는 일단 '이렇게 쓰는구나' 하고 넘어가셔도 좋습니다.
- `_` (언더스코어): VBA에서 코드가 너무 길어 한 줄에 다 쓰기 어려울 때, `_`를 쓰고 엔터를 치면 다음 줄에 이어서 코드를 작성할 수 있습니다.

[실행해보기]
1. 위 코드를 VBE의 모듈 창에 그대로 복사해서 붙여넣습니다.
2. `.To = "본인 이메일 주소를 입력하세요"` 부분에 자신의 이메일 주소를 정확히 입력합니다.
3. 코드 안 아무 곳에나 커서를 둔 상태에서, VBE 상단의 초록색 재생 버튼(▶)을 누르거나 `F5` 키를 누릅니다.

잠시 후, 짠! 하고 아웃룩 새 메일 창이 뜨는 것을 볼 수 있습니다. 받는 사람, 제목, 본문이 코드에 작성한 대로 완벽하게 채워져 있죠? 이 창을 직접 닫거나 [보내기] 버튼을 누르면 됩니다.

어떤가요? 코드로 이메일을 만들어내는 첫 경험, 정말 신기하지 않나요? 이제 당신은 단순한 엑셀 사용자를 넘어, 엑셀을 조종하여 다른 프로그램까지 제어하는 '자동화 전문가'의 길에 들어선 것입니다.

Chapter 4: 레벨 업! 엑셀 시트와 연동하여 동적 이메일 만들기

정적인 이메일 한 통을 보내는 데 성공했다면, 이제 VBA의 진짜 힘을 발휘할 시간입니다. 바로 엑셀의 데이터 처리 능력과 연동하는 것이죠. 엑셀 시트에 있는 명단을 읽어와 수십, 수백 명에게 각기 다른 내용의 이메일을 자동으로 보내는 시스템을 만들어 보겠습니다.

4.1. 데이터 준비: 발송 목록 시트 만들기

먼저, 엑셀에 발송할 사람들의 정보를 담은 표를 만들어야 합니다. 아래와 같이 간단한 표를 Sheet1에 작성해 보세요.

[Sheet1]

E열의 '발송여부'는 나중에 코드가 이메일을 보낸 후 '발송완료'라고 표시해 줄 로그(log) 기록용입니다. 이렇게 해두면 어디까지 보냈는지 확인하기 쉽고, 중복 발송을 방지할 수 있죠.

4.2. 핵심 로직: 반복문(For...Next)으로 시트 순회하기

엑셀 시트의 여러 행을 차례대로 읽으려면 '반복문'이 필요합니다. 가장 대표적인 것이 `For...Next` 구문입니다. "2행부터 마지막 행까지 하나씩 반복해서 작업해줘!" 라고 명령하는 거죠.

먼저, 데이터가 있는 마지막 행 번호를 알아내는 코드가 필요합니다. 데이터가 100개일 수도, 1000개일 수도 있으니까요.

    Dim lastRow As Long
    lastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

- `Sheets("Sheet1")`: 'Sheet1' 시트를 가리킵니다.
- `Cells(Rows.Count, "A")`: A열의 가장 마지막 셀(엑셀 맨 아래)을 의미합니다.
- `.End(xlUp)`: 거기서부터 `Ctrl` + `↑` (위쪽 방향키)를 누른 것과 같은 효과입니다. 즉, 데이터가 있는 마지막 셀로 이동하게 되죠.
- `.Row`: 그렇게 찾은 셀의 '행 번호'를 가져옵니다.

이제 이 `lastRow`를 이용해서 반복문을 만듭니다.

    Dim i As Long
    For i = 2 To lastRow
        ' 여기에 2행부터 마지막 행까지 반복할 작업을 넣습니다.
        ' 예를 들어, i행의 이름, 이메일, 직급 등을 읽어오는 코드
    Next i

- `For i = 2 To lastRow`: 변수 `i`를 2부터 `lastRow`까지 1씩 증가시키면서 반복하라는 의미입니다. (1행은 제목 행이므로 2행부터 시작)
- `Next i`: 여기까지가 반복할 작업의 끝이라는 표시입니다. 이 줄을 만나면 `i` 값을 1 증가시켜서 다시 `For` 문으로 돌아갑니다.

4.3. 셀 데이터 읽어오기 및 동적 본문 생성

반복문 안에서, 현재 행(`i`행)의 각 셀 값을 변수에 저장합니다.

    For i = 2 To lastRow
        Dim strName As String
        Dim strEmail As String
        Dim strPosition As String
        
        strName = Sheets("Sheet1").Cells(i, "A").Value
        strEmail = Sheets("Sheet1").Cells(i, "B").Value
        strPosition = Sheets("Sheet1").Cells(i, "C").Value
        
        ' 이제 이 변수들을 사용해서 이메일을 만들면 됩니다.
    Next i

- `Sheets("Sheet1").Cells(i, "A").Value`: 'Sheet1' 시트의 `i`행, A열에 있는 '값(Value)'을 의미합니다. `Cells(행, 열)` 형식으로 특정 셀을 지정할 수 있습니다.

이제 이 변수들을 조합해서 개인화된 이메일 본문을 만들어 봅시다.

        Dim mailBody As String
        mailBody = "안녕하세요, " & strName & " " & strPosition & "님." & vbCrLf & vbCrLf
        mailBody = mailBody & "월간 실적 보고 관련 공지 드립니다." & vbCrLf
        mailBody = mailBody & "자세한 내용은 팀장님께 문의 바랍니다." & vbCrLf & vbCrLf
        mailBody = mailBody & "감사합니다."

보이시나요? `strName`과 `strPosition` 변수를 사용해서 "안녕하세요, 김철수 과장님.", "안녕하세요, 이영희 대리님." 처럼 각 사람에 맞는 인사말이 동적으로 생성됩니다.

4.4. 전체 코드 통합 및 실행

자, 이제 Chapter 3에서 배운 이메일 발송 코드와 방금 배운 엑셀 연동 코드를 합쳐보겠습니다. 전체적인 흐름은 다음과 같습니다.

1. 아웃룩 객체 준비
2. 엑셀 시트의 마지막 행 번호 찾기
3. 2행부터 마지막 행까지 반복 시작 (`For` 문)
4. (반복문 안에서) 새 메일 객체 생성
5. (반복문 안에서) 현재 행의 이름, 이메일 등 정보 읽어오기
6. (반복문 안에서) 읽어온 정보로 개인화된 메일 내용 채우기
7. (반복문 안에서) 메일 발송 또는 화면에 표시
8. (반복문 안에서) 발송 완료 기록 남기기
9. 반복 종료 (`Next` 문)
10. 아웃룩 객체 해제 및 완료 메시지 표시

Sub Send_Emails_From_Excel_List()

    ' 1. 변수 선언
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    ' 2. 초기 설정
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 작업할 시트를 변수에 할당
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 마지막 행 번호 찾기

    ' 아웃룩 객체 생성
    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    If olApp Is Nothing Then
        Set olApp = New Outlook.Application
    End If
    On Error GoTo 0

    ' 3. 2행부터 마지막 행까지 반복
    For i = 2 To lastRow
        ' 이미 발송된 행은 건너뛰기
        If ws.Cells(i, "E").Value = "발송완료" Then GoTo NextRow
    
        ' 새 메일 항목 생성
        Set olMail = olApp.CreateItem(olMailItem)

        ' 엑셀 시트에서 정보 읽어오기
        Dim recipientName As String
        Dim recipientEmail As String
        Dim recipientPosition As String
        
        recipientName = ws.Cells(i, "A").Value
        recipientEmail = ws.Cells(i, "B").Value
        recipientPosition = ws.Cells(i, "C").Value

        ' 메일 내용 작성
        With olMail
            .To = recipientEmail
            .Subject = recipientName & " " & recipientPosition & "님, 월간 보고 관련 공지입니다."
            
            Dim mailBody As String
            mailBody = "안녕하세요, " & recipientName & " " & recipientPosition & "님." & vbCrLf & vbCrLf
            mailBody = mailBody & "VBA를 통해 발송되는 자동 공지 메일입니다." & vbCrLf
            mailBody = mailBody & "엑셀 목록을 기반으로 각 담당자에게 맞춤형으로 발송되고 있습니다." & vbCrLf & vbCrLf
            mailBody = mailBody & "오늘도 좋은 하루 보내세요. 😊"
            
            .Body = mailBody
            
            .Display ' 테스트용. 실제 발송 시에는 .Send 사용
            ' .Send
        End With
        
        ' 발송 완료 기록 남기기
        ws.Cells(i, "E").Value = "발송완료"
        ws.Cells(i, "E").Font.Color = vbRed ' 눈에 띄게 빨간색으로 표시

NextRow: ' GoTo 문을 위한 레이블
    Next i

    ' 4. 마무리
    Set olMail = Nothing
    Set olApp = Nothing

    MsgBox "총 " & (lastRow - 1) & "명에 대한 이메일 작업이 완료되었습니다.", vbInformation, "작업 완료"

End Sub

[코드 설명 보충]
- `If ws.Cells(i, "E").Value = "발송완료" Then GoTo NextRow`: E열에 '발송완료'라고 적혀 있으면, 해당 행에 대한 모든 작업을 건너뛰고 `NextRow:` 레이블로 바로 점프합니다. 이는 `Next i` 바로 앞에 위치하여 다음 반복으로 넘어가게 해줍니다. 중간에 작업이 중단되더라도 이어서 작업할 수 있게 해주는 유용한 기능이죠.
- `MsgBox`: 작업이 모두 끝난 후 사용자에게 완료 메시지를 보여주는 창을 띄웁니다.

위 코드를 실행하면, 엑셀 시트에 있는 명단 수만큼 아웃룩 메일 창이 순서대로 뜰 겁니다. (만약 `.Send`를 사용했다면 순식간에 발송이 완료되겠죠!) 그리고 엑셀 시트 E열에는 '발송완료'라는 글자가 빨간색으로 찍히는 것을 확인할 수 있습니다.

이 단계까지 마스터했다면, 당신은 이미 단순 반복 이메일 업무에서 완전히 해방된 것이나 다름없습니다. 이런 기술 하나만으로도 직장에서의 당신의 가치는 수직 상승할 거예요. 혹시 아나요? 이런 자동화 스킬을 필요로 하는 곳에 **재능넷** 같은 플랫폼을 통해 당신의 재능을 판매할 수도 있을지! 🚀

Chapter 5: 디테일의 차이 - 첨부파일과 서식(HTML)으로 퀄리티 높이기

기본적인 텍스트 메일을 보내는 것을 넘어, 이제 이메일의 퀄리티를 한 단계 끌어올려 봅시다. 업무 이메일에서 빠질 수 없는 첨부파일을 넣는 방법과, 밋밋한 텍스트에 생기를 불어넣어 줄 HTML 서식을 적용하는 방법을 배워보겠습니다.

5.1. 파일 첨부하기: `.Attachments.Add`

파일을 첨부하는 명령어는 아주 간단합니다. `메일객체.Attachments.Add "파일의 전체 경로"` 형식으로 사용하면 됩니다.

    With olMail
        ' ... (To, Subject, Body 등) ...
        
        .Attachments.Add "C:\Users\MyPC\Documents\보고서.pdf"
        
        .Display
    End With

정말 쉽죠? 하지만 여기서 문제는 파일 경로가 항상 고정되어 있지는 않다는 점입니다. 사용자마다 PC 이름도 다르고, 파일 위치도 다를 수 있죠. 그래서 좀 더 유연하게 파일 경로를 다루는 몇 가지 팁을 알려드릴게요.

팁 1: 현재 엑셀 파일과 같은 폴더에 있는 파일 첨부하기
`ThisWorkbook.Path`는 현재 VBA 코드가 실행되고 있는 엑셀 파일의 폴더 경로를 의미합니다. .Attachments.Add ThisWorkbook.Path & "\첨부파일.xlsx"

이렇게 하면 엑셀 파일과 첨부파일만 같은 폴더에 넣어두면 어디서든 코드가 잘 작동합니다.

팁 2: 날짜가 포함된 동적 파일 이름 첨부하기
매일 이름이 바뀌는 보고서 파일(`보고서_2023-10-27.pdf`)을 첨부해야 할 때 유용합니다. `Format` 함수를 사용하면 오늘 날짜를 원하는 형식의 문자열로 바꿀 수 있습니다.

Dim reportName As String
reportName = "일일보고_" & Format(Date, "YYYYMMDD") & ".pdf"

.Attachments.Add "D:\Reports\" & reportName

5.2. HTML 서식 적용하기: `.Body` 대신 `.HTMLBody`

지금까지 우리는 `.Body` 속성을 사용해서 일반 텍스트로만 본문을 작성했습니다. 하지만 글자에 볼드체를 넣거나, 기울이거나, 밑줄을 긋거나, 글자 색을 바꾸고 싶다면 어떻게 해야 할까요?

이때 사용하는 것이 바로 `.HTMLBody` 속성입니다. 이 속성을 사용하면 이메일 본문을 웹페이지처럼 HTML 태그를 사용해서 꾸밀 수 있습니다.

기본적인 HTML 태그 몇 가지만 알아도 이메일의 가독성을 확 높일 수 있습니다.
- `텍스트`: 볼드체
- `텍스트`: 이탤릭체
- `텍스트`: 밑줄
- `
`: 줄바꿈
- `

문단

Sub Send_Advanced_Emails()

    ' ... (변수 선언 및 초기 설정은 이전 코드와 동일) ...
    Dim olApp As Outlook.Application, olMail As Outlook.MailItem
    Dim ws As Worksheet, lastRow As Long, i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    Set olApp = New Outlook.Application ' 간단하게 New로 생성

    For i = 2 To lastRow
        Set olMail = olApp.CreateItem(olMailItem)

        Dim recipientName As String, recipientEmail As String, teamName As String, attachmentFile As String
        
        recipientName = ws.Cells(i, "A").Value
        recipientEmail = ws.Cells(i, "B").Value
        teamName = ws.Cells(i, "D").Value
        attachmentFile = ws.Cells(i, "F").Value

        ' HTML 본문 생성
        Dim htmlStr As String
        htmlStr = "<html><body style='font-family:Malgun Gothic; font-size:11pt;'>"
        htmlStr = htmlStr & "<p>안녕하세요, <b>" & recipientName & "님</b>.</p>"
        htmlStr = htmlStr & "<p>" & teamName & " 월간 실적 보고 관련 공지 드립니다.</p>"
        htmlStr = htmlStr & "<p>첨부드리는 <u>" & attachmentFile & "</u> 파일을 확인하신 후,<br>"
        htmlStr = htmlStr & "검토 의견을 <font color='blue'>금일 17시까지</font> 회신 부탁드립니다.</p>"
        htmlStr = htmlStr & "<hr>" ' 구분선
        htmlStr = htmlStr & "<p style='color:gray; font-size:9pt;'>본 메일은 VBA 자동화 시스템에 의해 발송되었습니다.</p>"
        htmlStr = htmlStr & "</body></html>"

        With olMail
            .To = recipientEmail
            .Subject = "[자동공지] " & teamName & " 월간 실적 보고 요청"
            .HTMLBody = htmlStr ' .Body 대신 .HTMLBody 사용

            ' 첨부파일 추가 (엑셀 파일과 같은 폴더에 'Attachments' 폴더가 있다고 가정)
            Dim attachmentPath As String
            attachmentPath = ThisWorkbook.Path & "\Attachments\" & attachmentFile
            
            If Dir(attachmentPath) <> "" Then ' 파일이 실제로 존재하는지 확인
                .Attachments.Add attachmentPath
            Else
                ' 파일이 없을 경우에 대한 처리 (예: 메일 본문에 안내 추가)
                .HTMLBody = .HTMLBody & "<p><b style='color:red;'>[주의] 첨부파일을 찾을 수 없습니다.</b></p>"
            End If

            .Display
        End With
    Next i

    Set olMail = Nothing
    Set olApp = Nothing
    MsgBox "작업 완료!", vbInformation

End Sub

    Dim acc As Outlook.Account
    ' 아웃룩에 설정된 모든 계정을 순회하며 원하는 계정을 찾습니다.
    For Each acc In olApp.Session.Accounts
        If acc.SmtpAddress = "support@company.com" Then
            Set .SendUsingAccount = acc
            Exit For
        End If
    Next

    .SentOnBehalfOfName = "support@company.com"

    With olMail
        .To = "test@example.com"
        .Subject = "서명 테스트"
        
        ' 중요! .Display를 먼저 호출해서 서명을 생성시킵니다.
        .Display 
        
        ' 기존 HTML 본문과 생성된 서명을 합칩니다.
        .HTMLBody = "<p>여기는 메일 본문입니다.</p>" & .HTMLBody
        
        .Send ' 그리고 바로 보냅니다.
    End With

Sub Send_Emails_With_Error_Handling()
    ' ... 변수 선언 ...

    On Error GoTo ErrorHandler ' 이제부터 오류가 나면 ErrorHandler로 점프

    ' ... For 루프 시작 ...
    For i = 2 To lastRow
        ' ... 메일 생성 및 내용 작성 ...
        
        .Send ' 여기서 만약 오류가 발생하면?
        
        ws.Cells(i, "E").Value = "발송성공" ' 성공했을 때만 실행됨
        
NextRow:
    Next i

    MsgBox "모든 작업 완료!"
    Exit Sub ' 정상 종료 시 오류 처리 코드를 건너뛰기 위해 프로시저 종료

ErrorHandler: ' 오류 발생 시 점프하는 위치
    ws.Cells(i, "E").Value = "발송실패: " & Err.Description ' E열에 에러 내용 기록
    Resume NextRow ' 실패 기록 후, 다음 행으로 넘어가서 계속 진행

End Sub