 |
Dim iMsg, iConf, Flds Const strSmartHost = "localhost" Const strRoot = "C:\Inetpub\mailroot\Pickup"
Set iMsg = CreateObject("CDO.Message") Set iConf = iMsg.Configuration
With iConf.Fields .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strRoot .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Update End With
With iMsg .To = "받는 사람 메일 주소" .From = "보내는 사람 메일 주소" .Subject = "제목" .HTMLBody = "본문" .Send
End With
Set Flds = Nothing Set iConf = Nothing Set iMsg = Nothing
|
|