메일 발송

===========================================================================================
Const cdoSendUsingPort = 1

SET objMessage = Server.CreateObject("CDO.Message")
SET objConfig = createobject("CDO.Configuration")

'''''''''''''''''' Setting the SMTP Server ''''''''''''''''''''''''
SET Flds = objConfig.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.update
End With

SET objMessage.Configuration = objConfig

With objMessage
.From = "master@mail_***.co.kr"
.To = "customer@mail_***.co.kr"
.CC = ""
.Subject = "메일테스트"
.HTMLBody = "메일내용입니다."

.DSNOptions = 14
.Fields("urn:schemas:mailheader:return-receipt-to") = "master@mail_***.co.kr"
.Fields("urn:schemas:mailheader:disposition-notification-to") = "master@mail_***.co.kr"

.BodyPart.Charset="ks_c_5601-1987"
.HTMLBodyPart.Charset="ks_c_5601-1987"
.Fields.update
.Send
End With

SET objConfig = Nothing
SET objMessage = Nothing