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'>&nbsp;</td>"
  mail = mail & "</tr>"
  mail = mail & "<tr>"
  mail = mail & "</tr>"
  mail = mail & "<tr>"
  mail = mail & "<td align='center'>&nbsp;</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'>&nbsp;</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
%>

2008/02/21 15:14 2008/02/21 15:14

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다