<%
하위 Jmail(이메일)
희미한 JMail,SendMail
JMail=Server.CreateObject("JMail.SMTPMail") 설정
JMail.Logging=참
JMail.Charset="gb2312"
JMail.ContentType = "텍스트/html"
JMail.ServerAddress=SMTP서버
JMail.Sender=시스템 이메일
JMail.Subject=주제
JMail.Body=메일 본문
JMail.AddRecipient 이메일
JMail.우선순위=3
JMail.실행
JMail=아무것도 설정하지 않음
만약 그렇다면
SendMail=err.description
오류가 발생했습니다.지우기
또 다른
SendMail="확인"
종료하면
end sub
sub Cdonts(이메일)
희미한 객체CDOMail
objCDOMail = Server.CreateObject("CDONTS.NewMail") 설정
objCDOMail.From =시스템이메일
objCDOMail.To =이메일
objCDOMail.Subject =주제
objCDOMail.Body =메일 본문
objCDOMail.보내기
objCDOMail = 없음으로 설정
만약 그렇다면
SendMail=err.description
오류가 발생했습니다.지우기
또 다른
SendMail="확인"
종료하면
end sub
sub 이메일(이메일)
메일러 설정=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
수신자=이메일
발신자=시스템이메일
주제=주제
메시지=메일 본문
메일서버=SMTP서버
결과=mailer.SendMail(메일서버, 수신자, 발신자, 제목, 메시지)
만약 그렇다면
SendMail=err.description
오류가 발생했습니다.지우기
또 다른
SendMail="확인"
종료하면
서브 끝
%>