email.asp

功能非常完整的校友录

<%
dim mailfrom,mailto,mailtopic,mailbody
dim SendMailStatus

	sub Jmail()
	Dim JMail
	on error resume next
	Set JMail=Server.CreateObject("JMail.SMTPMail")
	if err then 
		SendMailStatus=err.description
		err.clear
		exit sub
	end if
	JMail.Logging=True
	JMail.Charset="gb2312"
	JMail.ContentType = "text/html"
	JMail.ServerAddress=SMTPServer
	JMail.Sender=mailfrom
	JMail.Subject=mailtopic
	JMail.Body=mailbody
	JMail.AddRecipient mailto
	JMail.Priority=3
	JMail.MailServerUserName = "[e-mail]" '您的邮件服务器登录名
	JMail.MailServerPassword = "********" '登录密码
	JMail.Execute 
	Set JMail=nothing 
	if err then 
	SendMailStatus=err.description
	err.clear
	else
	SendMailStatus="OK"
	end if
	end sub

	sub Cdonts()
	dim  objCDOMail
	on error resume next
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
		if err then 
		SendMailStatus=err.description
		err.clear
		exit sub
	end if
	objCDOMail.From =mailfrom
	objCDOMail.To =mailto
	rem objCDOMail.Cc =MailCc
	rem objCDOMail.Bcc =MailBcc
	objCDOMail.Subject =mailtopic
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
	objCDOMail.Body =mailbody
	objCDOMail.Importance = 1
	' : 0 - 低重要性
	' : 1 - 中等重要性（默认）
	' : 2 - 高重要性
'	objCDOMail.AttachFile = 


	objCDOMail.Send
	Set objCDOMail = Nothing
	if err then 
	SendMailStatus=err.description
	err.clear
	else
	SendMailStatus="OK"
	end if
	end sub


	sub aspemail()
	on error resume next
	Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")  
		if err then 
		SendMailStatus=err.description
		err.clear
		exit sub
	end if

	recipient=mailto
	sender=mailfrom
	subject=mailtopic
	message=mailbody
	mailserver=SMTPServer
	result=mailer.SendMail(mailserver, recipient, sender, subject, message)
	if err then 
	SendMailStatus=err.description
	err.clear
	else
	SendMailStatus="OK"
	end if
	end sub
%>