CDONTS객체를 사용한 이메일 발송예제는 너무나 쉽습니다.
아래는 직접사용하고 있는 소스인데 이미지 부분만 빼고 텍스트는 변경하고 올립니다.
참고하세요.
<%
mail = name & "<table width='658' border='0' cellspacing='0' cellpadding='0'>"
mail = mail & "<tr bgcolor='BDBABD'>"
mail = mail & "<td colspan='3' height='1'></td>"
mail = mail & "</tr>"
mail = mail & "<tr>"
mail = mail & "<td bgcolor='BDBABD' width='1'></td>"
mail = mail & "<td width='656'>"
mail = mail & "<table width='656' border='0' cellspacing='0' cellpadding='0'>"
mail = mail & "<tr>"
mail = mail & "<td></td>"
mail = mail & "</tr>"
mail = mail & "<tr>"
mail = mail & "<td height='8'></td>"
mail = mail & "</tr>"
mail = mail & "<tr>"
mail = mail & "<td align='center'><table width='566' border='0' cellspacing='0' cellpadding='0'>"
mail = mail & "<tr>"
mail = mail & "<td align='center'><p><strong>메일 발송 예제입니다</strong></p></td>"
mail = mail & "</tr>"
mail = mail & "</table></td>"
mail = mail & "</tr>"
mail = mail & "<tr>"
mail = mail & "<td align='center'> </td>"
mail = mail & "</tr>"
mail = mail & "<tr>"
mail = mail & "</tr>"
mail = mail & "<tr>"
mail = mail & "<td align='center'> </td>"
mail = mail & "</tr>"
mail = mail & "<tr>"
mail = mail & "<td align='center'><table width='566' border='0' cellspacing='0' cellpadding='0'>"
mail = mail & "<tr>"
mail = mail & "<td><p>안녕하세요.. 이메일 발송 예제입니다. <br>"
mail = mail & "여기다가 내용을 기재하여 주시고 이미지도 첨부하시면 멋진 이메일이 완성됩니다 <br>"
mail = mail & "내용을 여기다가 계속 적어주십시오 <br>"
mail = mail & "이메일 발송 예제 끝입니다.</td>"
mail = mail & "</tr>"
mail = mail & "</table></td>"
mail = mail & "</tr>"
mail = mail & "<tr>"
mail = mail & "<td align='center'> </td>"
mail = mail & "</tr>"
mail = mail & "<tr>"
mail = mail & "<td height='66' background='http://61.100.181.53/e-mail/image/bg_01.gif' align='center'>"
mail = mail & "<table width='656' border='0' cellspacing='0' cellpadding='0'>"
mail = mail & "<tr>"
mail = mail & "<td width='210' align='right' height='67'></td>"
mail = mail & "<td width='390' height='67'><font color='#666666'>Copyright @"
mail = mail & "http://cafe.naver.com/webdeveloper </font></td>"
mail = mail & "</tr>"
mail = mail & "</table> </td>"
mail = mail & "</tr>"
mail = mail & "</table>"
mail = mail & "</td>"
mail = mail & "<td bgcolor='BDBABD' width='1'></td>"
mail = mail & "</tr>"
mail = mail & "<tr bgcolor='BDBABD'>"
mail = mail & "<td colspan='3' height='1'></td>"
mail = mail & "</tr>"
mail = mail & "</table>"
name = "테스트" '받는고객 이름
Email = "test@testto.co.kr" '받는사람 메일주소
fromMail = "test@test.co.kr" '보낸사람 메일주소
content=Replace(Replace(mail,chr(13)&chr(10),""),"[고객이름]",name)
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = fromMail
objMail.To = Email
objMail.subject = name &"님께 메일을 보냅니다"
objMail.Body = content
objMail.BodyFormat = 0 ' HTML일떄 0, 일반 Text일때 1 으로 설정한다.
objMail.MailFormat = 0 ' HTML일떄 0, 일반 Text일때 1 으로 설정한다.
objMail.Send
Set objMail = nothing
%>