Ȩ / À¥È£½ºÆÃ / À¥È£½ºÆÃ °í°´µµ¿ì¹Ì / À©µµ¿ìÈ£½ºÆÃ °ü·Ã / Form M a i l »ç¿ë¾È³»
FrontPage Server Extensisons ¶õ?       ODBC ¼³Á¤¾È³»       DB Á¢¼Ó¾È³»       Access DB ¡æ SQL DB º¯È¯      
¸ÖƼ¹Ìµð¾î ¼­ºñ½º       ÆÄÀÏ ¾÷·Îµå / ´Ù¿î·Îµå »ç¿ë¹ý       °Ô½ÃÆÇ »ç¿ë¹ý
ÇÁ·Î±×·¥¿¡¼­ Ä«µå°áÁ¦ »ç¿ëÇϱ⠠     FormMail »ç¿ë¾È³»       FormMail »ç¿ë (File ÷ºÎ±â´É»ç¿ë½Ã)  
CDONTS ÄÞÆ÷³ÍÆ®·Î ¸ÞÀÏ º¸³»±â
set mail=server.CreateObject("CDONTS.NewMail") '°³Ã¼»ý¼º
mail.From= "webmaster@majunsoft.com" 'º¸³»´Â »ç¶÷
mail.Subject="¸ÞÀϺ¸³»±â¿¬½ÀÀÔ´Ï´Ù." 'Á¦¸ñ
mail.Body="Áö±ÝÀº ¸ÞÀÏ º¸³»±â ¿¬½ÀÀÔ´Ï´Ù." '³»¿ë
mail.Importance=1 '¸ÞÀÏ ¿ì¼±¼øÀ§ 0:°¡Àåºü¸§, 1:º¸Åë, 2:´À¸².
mail.BodyFormat=0 '0:HTML,1:TEXT
mail.MailFormat=1 '0:MIME,1:TEXT
mail.To="youiwe@hanmail.net" '¹Þ´Â»ç¶÷
mail.attachFile ("c:\test\test.gif") '÷ºÎÈ­ÀÏ
mail.Send '¸ÞÀÏ º¸³»±â
set mail=nothing 'ÀÚ¿ø ¹Ýȯ
¸ÞÀϸµ ¸®½ºÆ® ¸¸µé±â
¸ÞÀϸµÀº Å×ÀÌºí¿¡¼­ emailÁÖ¼Ò¸¦ ÀÐ¾î ·çÇÁ¸¦ µ¹¸®¸é µË´Ï´Ù.
Server.ScriptTimeout = 300 'ŸÀӾƿô ½Ã°£ÁöÁ¤
Set conn=server.CreateObject("ADODB.Connection") 'ADODB °´Ã¼ »ý¼º
conn.open ("dsnName") 'DB OPEN
strSQL="select email from tbl_members" 'SQLÙþ
Set rs=conn.execute(strSQL) 'SQL ½ÇÇà
do while not rs.EOF 'Å×ÀÌºí³¡±îÁö ÀڷḦ ã±â ½ÃÀÛ
set mail=server.CreateObject("CDONTS.NewMail") 'CDONTS °³Ã¼ »ý¼º
mail.From= "webmaster@majunsoft.com" 'º¸³»´Â »ç¶÷
mail.Subject="¾È³çÇϼ¼¿ä?" 'Á¦¸ñ
mail.Body="Áö±ÝÀº ¸ÞÀÏ º¸³»±â ¿¬½ÀÀÔ´Ï´Ù" '³»¿ë
mail.Importance=1 '¸ÞÀÏ ¿ì¼±¼øÀ§(0:°¡Àåºü¸§,1:º¸Åë,2:´À¸²)
mail.BodyFormat=0 '(0:HTML,1:TEXT)
mail.MailFormat=1 '(0:MIME,1;HTML)
mail.To=rs(0) '¹Þ´Â»ç¶÷
mail.Send '¸ÞÀÏ º¸³»±â
set mail=nothing 'ÀÚ¿ø ¹Ýȯ
rs.MoveNext
loop '¹Ýº¹¹® ³¡
set rs=Nothing '·¹ÄÚµå¼Â ¹Ýȯ
set conn=Nothing 'ADODB °´Ã¼ ¹Ýȯ
  Ȩ ¤Ó ȸ»ç¼Ò°³ ¤Ó °³ÀÎÁ¤º¸Ã³¸®¹æÄ§ ¤Ó ¼­ºñ½ºÀÌ¿ë¾à°ü