email.inc

网络办公系统源码

<%

function SendMail(frommail,tomail,subject,mailbody)
on error resume next
	dim JMail,tomails,i
	Set JMail = Server.CreateObject("JMail.SMTPMail")
	JMail.Logging = True
	JMail.Charset = "GB2312"
	JMail.ContentType = "text/html"
	'JMail.ServerAddress = "127.0.0.1"
	JMail.Sender = frommail
	JMail.Subject = subject
	JMail.Body = mailbody
	tomails = split(tomail,",")
	for i = 0 to ubound(tomails)
		JMail.AddRecipient tomails(i)
	next
	'JMail.AddAttachment "附件.rar"
	JMail.Priority = 3
	JMail.Execute
	Set JMail = nothing
	if err.number <> 0 then 
		SendMail = err.Description
	else
		SendMail = "Success"
	end if	
end function  
%>