최고의 서비스, 최상의 가격으로 제공하겠습니다. Location : Home > Customer Center > HelpDesk
제목 CDONTS 콤포넌트로 메일 보내기



CDONTS 콤포넌트를 이용해 메일 보내기및 메일링 리스트를 보내기

CDONTS 콤포넌트로 메일 보내기
set mail=server.CreateObject("CDONTS.NewMail") '개체생성
mail.From= "master@tonghosting.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="master@tonghosting.com" '받는사람
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= "master@tonghosting.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 객체 반환