emailchar.asp

来自「方舟网免费空间申请程序(自助建站系统) v3.0 1 界面美观 2 后台管理功能」· ASP 代码 · 共 52 行

<%
dim SendMail

SUB CDOmail(email,MailTopic,mailbody)
	reg_SysEmail=split(reg_SysEmail,"|")
	on error resume next
	dim  objCDOMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From =reg_SysEmail(0)
	objCDOMail.To =email
	objCDOMail.Subject =MailTopic
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
	objCDOMail.Body =mailbody
	objCDOMail.Send
	Set objCDOMail = Nothing
	if err then 
		SendMail=err.description
		err.clear
	else
		SendMail="ok"
	end if
End SUB

SUB JMail(Email,MailTopic,Mailbody)
	 'Test 263.Net ok ! 
	reg_SysEmail=split(reg_SysEmail,"|")
	' on error resume next
	 dim objJMail
     Set objJMail = Server.CreateObject("JMail.Message")   
		 objJMail.silent = true				
		 objJMail.logging = true				
		 objJMail.Charset = CharsetType		
		 objJMail.ContentType = "text/html"   
		 objJMail.AddRecipient Email			'邮件收件人的地址
		 objJMail.From = reg_SysEmail(0)			'发件人的E-MAIL地址
		 objJMail.MailServerUserName = reg_SysEmail(1)     '登录邮件服务器所需的用户名
		 objJMail.MailServerPassword = reg_SysEmail(2)     '登录邮件服务器所需的密码
		 objJMail.Subject = MailTopic			'邮件的标题 
		 objJMail.Body = Mailbody				'邮件的内容
		 'objJMail.Prority = 1					'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
		 objJMail.Send(reg_SysEmail(3))				
		 objJMail.Close()					
	 Set objJMail=nothing
		if err then 
			SendMail=err.description
			err.clear
		else
			SendMail="ok"
		end if
End SUB
%>