sendmail_inc.asp

来自「一个叫做雪人的论坛源码」· ASP 代码 · 共 30 行

<%
function sf_sendmail(stremail, strsubject, strmailbody)
	on error resume next
	dim JMail, rsmail

	smtpserver = "smtp.yoursite.net"  '请修改为您的smtp服务器地址
	boardemail = "[e-mail]" '请修改为您的email信箱地址

	Set rsmail = nothing
	mailbody = boardtitle & chr(10) & boardurl & chr(10) & now() & chr(10) & "------------------" & chr(10) & strmailbody
	Set JMail=Server.CreateObject("JMail.SMTPMail")
	JMail.Logging = false
	JMail.Charset = "gb2312"
	JMail.ContentType = "text/html"
	JMail.ServerAddress = smtpserver ' smtp server address
	JMail.Sender = boardemail ' sender email address
	JMail.Sendername = boardtitle ' sender name
	JMail.Subject = strsubject
	JMail.Body = mailbody
	JMail.AddRecipient stremail ' to name
	JMail.Priority = 2
	'JMail.MailServerUserName = "" 'mail server login name
	'JMail.MailServerPassword = "" 'mail server login password
	JMail.Execute
	Set JMail = nothing
	Set mailbody = nothing
	Set smtpserver = nothing
	Set boardemail = nothing
end function
%>