Chinaunix首页 | 论坛 | 博客
  • 博客访问: 29308585
  • 博文数量: 2065
  • 博客积分: 10377
  • 博客等级: 上将
  • 技术积分: 21525
  • 用 户 组: 普通用户
  • 注册时间: 2008-11-04 17:50
文章分类

全部博文(2065)

文章存档

2012年(2)

2011年(19)

2010年(1160)

2009年(969)

2008年(153)

分类: 系统运维

2009-01-12 11:02:03

<%
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
%>
   

   发件人:

   收件人:

   主题:

   内容:

      SMTP服务器地址:

   SMTP服务器登录用户:

   SMTP服务器登录密码:

  
     
 

<%
end if
%>
自己尝试过这个方法能够将其实现的哦@

阅读(1072) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~