|
|
|
|
| 최고의
속도, 최고의 서비스를 약속드립니다. |
Location
: Home > Customer Center > HelpDesk |
|
 |
|
 |
 |
|
|
|
|
|
CDONTS 콤포넌트를 이용해 메일 보내기및 메일링 리스트를 보내기
| CDONTS 콤포넌트로 메일 보내기 |
 |
set mail=server.CreateObject("CDONTS.NewMail")
'개체생성
mail.From= "server@ish.co.kr" '보내는 사람
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="server@ish.co.kr" '받는사람
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= "server@ish.co.kr" '보내는 사람
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 객체 반환 |
|
|
| |
|
