【VBA - 비망록】 메일 송신

초기 설정

코드를 작성하기 전에 Outlook 계정을 만들고 Outlook 개체 라이브러리를 VBA로 로드해야 합니다.

다음은 Outlook 개체 라이브러리를 로드하는 방법

(1) "도구"에서 "참조 설정"으로 진행

(2) 참조 설정에서 Microsoft Outlook 16.0 Object Library를 선택하고 OK 버튼을 클릭합니다.

MailItem 객체 지정

먼저 변수 Outlook 개체를 만들고 변수 MailItem 개체를 지정합니다.

Sub SendEmail()
Dim OutlookObj As Outlook.Application
Dim MailItemObj As Outlook.MailItem

Set OutlookObj = New Outlook.Application
Set MailItemObj = OutlookObj.CreateItem(olMailItem)
End Sub

각 설정

MailItem 개체에 대한 대상, 본문 등 설정

Sub SendEmail()
Dim OutlookObj As Outlook.Application
Dim MailItemObj As Outlook.MailItem

Set OutlookObj = New Outlook.Application
Set MailItemObj = OutlookObj.CreateItem(olMailItem)

With MailItemObj
 .To = "メールの宛先"
 .Subject = "メールの件名"
 .Body = "メールの本文"
 .Send '送信動作
End With
End Sub

HTML 메일 설정 방법

각 MailItem 개체에 대해 HTML 메일 설정

'Sub SendEmail() '既に説明済のコードはコメントアウトしています

'Dim OutlookObj As Outlook.Application
'Dim MailItemObj As Outlook.MailItem

'Set OutlookObj = New Outlook.Application
'Set MailItemObj = OutlookObj.CreateItem(olMailItem)

'With MailItemObj
' .To = "メールの宛先"
' .Subject = "メールの件名"
 .BodyFormat = olFormatHTML 'HTMLメールと設定
 .HTMLBody = "HTMLメールの本文" ' "<h1>Hello World</h1>" の様に、HTMLで書く
' .Send '送信動作
'End With
'End Sub

파일 첨부

파일을 첨부하려면 파일까지의 경로를 만들고 MailItem 개체에 첨부 설정으로 추가합니다.

'Sub SendEmail() '既に説明済のコードはコメントアウトしています

'Dim OutlookObj As Outlook.Application
'Dim MailItemObj As Outlook.MailItem

'Set OutlookObj = New Outlook.Application
'Set MailItemObj = OutlookObj.CreateItem(olMailItem)

Dim attachmentPath As String
    attachmentPath = "C:\Desktop\attachment.pdf" 'ファイルまでのパスに応じて変える

'With MailItemObj
' .To = "メールの宛先"
' .Subject = "メールの件名"
' .BodyFormat = olFormatHTML 'HTMLメールと設定
' .HTMLBody = "HTMLメールの本文" ' "<h1>Hello World</h1>" の様に、HTMLで書く
　.Attachments.Add (attachmentPath)
' .Send '送信動作
'End With
'End Sub