sendmail.asp

嘉缘人才6.0精简 ,很好用的人才系统

<%function SendMail(MailtoAddress,Subject,MailBody)
	On Error Resume Next
	SendMail=False
	Select Case MailObject 
	Case 1
		'JMail组件
		Dim JMail, contentId
		MailtoAddress=split(MailtoAddress,":")
		for i=0 to ubound(MailtoAddress)
			Set JMail = Server.CreateObject("JMail.Message")
			'response.Write JMail.version
			JMail.silent = true
			JMail.Logging = true
			JMail.Charset = "gb2312"
			JMail.Priority = 1
			
			JMail.ISOEncodeHeaders = false
			JMail.From = MailServerUserName
			JMail.FromName = WebmasterName
			
			JMail.MailServerUserName = MailServerUserName
			JMail.MailServerPassword = MailServerPassWord
			
			JMail.Subject = Subject
			JMail.HTMLBody = MailBody
			JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
			JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持!"
			JMail.AddRecipient(MailtoAddress(i))
			SendMail=JMail.Send(MailServer)
			JMail.Close()
			Set JMail = Nothing
		next
		Exit Function
	Case 2
	'CDONTS
		Set CDONTSObj = Server.CreateObject("CDONTS.NewMail")
		If Err>0 Then
		SendMail="没有安装CDONTS组件"
		ErrorFlag=True
		Err.Clear
		else
		CDONTSObj.To = MailtoAddress
		CDONTSObj.From = MailDomain
		CDONTSObj.cc = "[e-mail],[e-mail]" 
		CDONTSObj.Subject = Subject
		CDONTSObj.Body = MailBody
		CDONTSObj.Send
		end if
		Set CDONTSObj = nothing 
	Case 3
	'ASPEMAIL
		Set Mail=Server.CreateObject("Persits.MailSender")
		If Err>0 Then
		errorflag=true
		SendMailMail="没有安装AspMail组件"
		Err.Clear
		else
		Mail.Host="foodqs.com"
		Mail.Port=25
		mail.username="webmaster"
		mail.password="guanliyuanxql111"
		Mail.From=from
		Mail.FromName=fromname
		Mail.Subject=Subject
		mail.charset="gb2312"
		Mail.IsHTML = True
		mail.body=pencat
		Mail.AddBcc email
		Mail.Send
		end if
		set Mail=nothing	
	Case 4
	'WebEasyMail
		Set mailsend = Server.CreateObject("easymail.MailSend") 
		If Err>0 Then
		errorflag=true
		SendMailMail="没有安装AspMail组件"
		Err.Clear
		Else
		mailsend.CreateNew "xxxx","temp" 'xxxxx为发送者的邮件 ' 发信人名称 
		mailsend.MailName = "xxxx" ' 邮件名称 
		mailsend.EM_To =MailtoAddress '收件人邮件地址 
		mailsend.EM_Subject = "xxxx" '邮件主题 
		mailsend.EM_Text = "xxxx" '邮件内容 支持html格式 
		mailsend.Send() 
		End if
	End select
End Function
%>