Server.CreateObject("CDO.Message")

2003 서버와 xp에서는 Server.CreateObject("CDONTS.NewMail")
이게 지원이 되지않습니다. 2000 서버와 nt 에만 지원이 되지요.

 

2003에서는 CDO만 지원합니다.

Server.CreateObject("CDO.Message")

 

 

다음과 같은 식으로 넣으면 됩니다.

 

 
<%
	Dim iMsg 
	Dim iConf 
	Dim Flds 
	Dim strHTML

	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") = "localhost" 
		Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 
		Flds.Update
		Set iMsg.Configuration = iConf

	iMsg.To = tomail
	iMsg.From = formmail
	iMsg.Subject = title
	iMsg.HTMLBody = content
	iMsg.BodyPart.Charset="ks_c_5601-1987"
	iMsg.HTMLBodyPart.Charset="ks_c_5601-1987"
	iMsg.Send

	Set iMsg = Nothing
	Set iConf = Nothing
	Set Flds = Nothing 
%>