" Start Outlook.
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = "받는사람주소"
olMail.Subject = "제목"
olMail.Body = "내용"
olMail.Send
Set olMail = Nothing
Set olNs = Nothing
Set olApp = Nothing
Posted by 하솔
