| |
| ¸ÞÀϸµÀº
Å×ÀÌºí¿¡¼ 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 °´Ã¼ ¹Ýȯ |