<%
Const cdoSendUsingPort = 1

set iMsg = CreateObject("CDO.Message")

set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=cdoSendUsingPort

Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="입주웹서버아이피" 

Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=10

Flds.Update

Set iMsg.Configuration = iConf

iMsg.To = "받는메일보낸메일"

iMsg.From = "보낸메일"

iMsg.Subject = "제목"

iMsg.HTMLBody = "본문"

iMsg.BodyPart.Charset="ks_c_5601-1987"

iMsg.HTMLBodyPart.Charset="ks_c_5601-1987"

if filename <> "" then



end if

iMsg.Send

Set iMsg = Nothing

Set iConf = Nothing

Set Flds = Nothing 
%>