===========================================================================================
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