엑셀 VBA에서 OUTLOOK 3가지 설정

[엑셀 VBA] OUTLOOK의 '메일 보내기' 창에서 3 가지 설정하는 방법

1. 보낸 사람 필드 보이기
2. 배달 확인 요청
3. 읽음 확인 요청

'------------------------------------------------------------------------------

' 클래스 모듈에서 선언

Public WithEvents NewMail As Outlook.MailItem

'------------------------------------------------------------------------------

' 메일 보내기 프로시저

Public OutApp As New Outlook.Application
Public OutMail As Class_EmailEvents
Private OutAccount As Outlook.account
Private DefOutUser As String

'-------------------------------------------------------------------------

DefOutUser = OutApp.Session.CurrentUser.Address     ' 기본계정

For Each OutAccount In OutApp.Session.Accounts
If OutAccount = DefOutUser Then Exit For
Next

With OutMail.NewMail

.SentOnBehalfOfName = DefOutUser    ' 보낸 사람 필드 추가
.To = MailTo                                             ' 받는 사람
.CC = ""                                                     ' 참조
.Subject = MailSubject                               ' 제목
.Attachments.Add MailAttFile                     ' 첨부 파일

.OriginatorDeliveryReportRequested = True     ' 배달 확인 요청
.ReadReceiptRequested = True                            ' 읽음 확인 요청

.HTMLBody = "                           "

.SendUsingAccount = OutAccount 
.Display

End with