为了防止某些用户利用系统自带的smtp服务器来发垃圾邮件导致服务器性能严重下降而影响其它用户网站的正常访问,故我司禁用了系统自带的smtp服务器,也就是说 CDOTS.NewMail 组件无法使用,取而代之我司的服务器安装了Jmail4.0,用户可用它来发邮件,此组件的具体使用方法请查阅相关文档说明。
以下是用 asp 写的用JMAIL组件发邮件的例子:
<%
if request("SendIt") = "true" then
on error resume next
set msg = Server.CreateOBject("JMail.Message")
'设置邮件的发送者,由于一般邮件服务器的安全设置,这个发件人一般都必须是真实存在的
msg.Logging = true
msg.From = Request("from")
msg.FromName = "某约翰"
'收件人
msg.AddRecipient Request("to")
'addRecipient方法可以帮助你在必要的时候添加更多的收信人,你也可以为每一个收信人设置不同的名字:
'现在,我们可以加入邮件的主题了。
msg.Subject = Request("subject")
'然后是正文。下面的例子也告诉你如何在正文中换行。
msg.Body = Request("body")
'也可以使用appendText方法来创建邮件正文,这个方法常常用来为邮件正文追加更多的内容。
'msg.appendText "一些文字。"
'msg.appendText "你想添加的更多的文字。"
'邮件创建好了,我们来发送它。在这里需要输入一个有效的发信服务器地址。
'Response.write Request("smtp_user") & ":" & Request("smtp_pwd") & "@" & Request("smtp_server")
msg.MailServerUserName = Request("smtp_user")
msg.MailServerPassword = Request("smtp_pwd")
'msg.Send( Request("smtp_user") & ":" & Request("smtp_pwd") & "@" & Request("smtp_server"))
msg.Send(Request("smtp_server"))
Response.Write( msg.Log )
if err.number<>0 then
response.write "邮件发送失败" & err.description
else
response.write "邮件已经发到" & Request("to")
end if
else
%>
<form action='' method='post'>
发件人:<input name='from'><br>
收件人:<input name='to'><br>
主题:<input name='subject' size='30'><br>
内容:<TEXTAREA NAME="body" ROWS="10" COLS="30"></TEXTAREA><br>
SMTP服务器地址:<input name='smtp_server'><br>
SMTP服务器登录用户:<input name='smtp_user'><br>
SMTP服务器登录密码:<input name='smtp_pwd'><br>
<input type='submit' value='发送'>
<input type='hidden' name='SendIt' value='true'>
</form>
<%
end if
%>