나누미넷 도움말 센터

Home > cdo.message폼메일 보내기 예재

cdo.message폼메일 보내기 예재

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