CDONTS 콤포넌트를 이용하여 흔히 말하는 폼메일 보내기를 할수 있는
예제 입니다.
name=request("name")
jumin=request("jumin")
addr=request("addr")
name2=request("name2")
phone=request("phone")
fax=request("fax")
mobile=request("mobile")
email=request("email")
chk1=request("chk1")
chk2=request("chk2")
chk3=request("chk3")
comment=request("comment")
order_date = now()
'======== 관리자에게 메일 발송 시작
set ObjMail = CreateObject("CDONTS.NewMail")
body = body & "<html><head></head><body>"
body = body & order_date & "에 <br>"
body = body & name & "님께서 업체모집 신청을 하였습니다.<br>"
body = body & "신청자 성명 : "
body = body & name & "<br>"
body = body & "주민등록(사업자)번호 : "
body = body & jumin & "<br>"
body = body & "주소 : "
body = body & addr & "<br>"
body = body & "담당자 성명 : "
body = body & name2 & "<br>"
body = body & "전화번호 : "
body = body & phone & "<br>"
body = body & "FAX NO : "
body = body & fax & "<br>"
body = body & "휴대전화 : "
body = body & mobile & "<br>"
body = body & "E-Mail : "
body = body & email & "<br>"
body = body & "협력구분 : "
body = body & chk1 & " " & chk2 & " " & chk3 & "<br>"
body = body & "하고싶은말씀 : "
body = body & comment & "<br>"
body = body & "</body></html>"
objMail.From = email '보내는 사람의 이메일
objMail.To "master@abcdef.co.kr" '받는사람 메일 주소
objMail.Subject = "업체 모집 신청이 접수되었습니다." '메일 발송시의 제목
objMail.BodyFormat = 0 '0이면 html방식,1이면 txt방식으로 내용을 작성
objMail.MailFormat = 0 '0이면 html방식,1이면 txt방식 내용을 보냄
objMail.Body = body '위의 body의 변수로 저장된 내용을보냄
objMail.Send '메일발송
Set objMail = Nothing
'===== 발송 코드 끝
|
작성자 :
애드포유