在线发送邮件-老鄢博客

在线发送邮件

发布时间：2007-10-24 22:04:00 作者：admin 阅读：1060次

最近公司网速出奇的慢，打开一个网页都要很长的时间，更别说打开我的网易邮盘将以前用过的源码down下来，而常用的程序终究是要用的。

隔壁的公司是一家游戏公司，很烦人，就是他们天天打啊打啊游戏，耗着别人的网速，太自私了。

在线发送邮件:

<%
Dim Jmail
Set Jmail = Server.CreateObject("Jmail.Message")
Jmail.charset="gb2312"
jmail.contenttype="text/html"
Jmail.AddRecipient "test115@163.com"
Jmail.From = "test115@163.com"
Jmail.Subject = "您有新的留言,请注意查收!"
Jmail.Body ="用户名:"&request("username")&"<br>"&"联系电话:"&request("tel")&"<br>"&"公司名称:"&request("company")&"<br>"&"留言内容:"&request("content")
Jmail.send("test115:mypassword@smtp.163.com")
Jmail.Close
response.write "发送成功!"
%>