日期:2014-05-17  浏览次数:20837 次

用asp做网站,里面要求能发送邮件 , 用什么工具?
用jmail吗?是不是要先安装jmail组件?安装了之后怎么配置呢

------解决方案--------------------
不用配置,从这里搜索一个发送邮件的源码就可以用了。
------解决方案--------------------
http://www.scriptwebs.com/blog/post/282.html
记得给分,呵呵
------解决方案--------------------
<%
Set jmail = Server.CreateObject( "JMAIL.SMTPMail ") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312 " '邮件文字的代码为简体中文
jmail.ContentType = "text/html " '邮件的格式为HTML的
jmail.ServerAddress = "Server Address " '发送邮件的服务器
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = "SenderName " '邮件发送者的姓名
jmail.Sender = "Email Address " '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
jmail.Subject = "Mail Subject " '邮件的标题
jmail.Body = "Mail Body " '邮件的内容
jmail.AddRecipientBCC Email '密件收件人的地址
jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
%>
------解决方案--------------------
看看支持不支持jmail
------解决方案--------------------
不支持,就安装,安装好了,然后将下面的代面
<%
Set jmail = Server.CreateObject( "JMAIL.SMTPMail ") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312 " '邮件文字的代码为简体中文
jmail.ContentType = "text/html " '邮件的格式为HTML的
jmail.ServerAddress = "Server Address " '发送邮件的服务器
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = "SenderName " '邮件发送者的姓名
jmail.Sender = "Email Address " '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
jmail.Subject = "Mail Subject " '邮件的标题
jmail.Body = "Mail Body " '邮件的内容
jmail.AddRecipientBCC Email '密件收件人的地址
jmail.AddRecipientCC Email '邮件抄送者的地址
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
%>
放在你想要发送的地方,就行,很简单
------解决方案--------------------
服务器需要安装JMAIL的组件
------解决方案--------------------
呵呵 就用jmail
------解决方案--------------------
jmail组件:
首先服务器要支持JMail~~`
然后代码如下了~`根据情况自己改~~`

<%
mailserver= "smtp.sina.com.vn " 'smtp服务器地址
mailname= "xieda88@sina.com " '发信邮箱
mailpassword= "这里填写密码 " '发信邮箱密码
dim msg
CLStr=Chr(13) & Chr(10)
Set msg = Server.CreateObject( "JMail.Message ")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312 "
msg.MailServerUserName = mailname
msg.MailServerPassword = mailpassword
msg.From = mailname
msg.FromName = mailname
msg.AddRecipient (UserMail) 'usermail为网站会员注册时填写的ID
msg.Subject = "您在“ "&sitename& "”注册成功 "
msg.Body = UserName& ",您好! "&CLStr&CLStr
msg.Body = msg.Body& "恭喜您注册会员成功,会员ID: "&userid& ",登陆密码: "&user_password&CLStr&CLStr
msg.Body = msg.Body&sitename& "( "&siteurl& ")欢迎您多多光临!谢谢! "&CLStr