如何用ASP实现在线发邮件

xiaopar 2004-05-07 05:07:00

各位高手，有谁知道怎么样使用ASP实现在线邮件回复功能，就是在页面上，看到资料后填写自己的邮件和意见点提交后就将自己的意见发送到对方的信箱里那种，帮帮忙啊，急用！！

...全文

98 7 打赏收藏举报

写回复

7 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

xiaopar 2004-06-15

我机子上装的有IIS，可是不知道是不是有cdonts，应该是默认安装的，可是我执行
Set Jmail=server.createobject("Jmail.Message")

的时候就错误，是不是还有什么组件没有安装呢

打赏
举报

回复赞

huidan 2004-05-07

学习

打赏
举报

回复赞

luluso 2004-05-07

^=^
不好意思，以后把机会留给兄弟们!

打赏
举报

回复赞

liuyangxuan 2004-05-07

luluso:真不给兄弟们面子，一下全吃了！

JMail

打赏
举报

回复赞

blackxxx 2004-05-07

使用cdonts.newmail

set mail=server.createobject("cdonts.newmail")
mail.to=request("to")
mail.form=request("form")
mail.subject=request("subject")
mail.body=request("body")
mail.send

打赏
举报

回复赞

dsclub 2004-05-07

对CDONTS组件。

楼上好快

打赏
举报

回复赞

luluso 2004-05-07

cdonts:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
if request.form("acceptemail")="" or request.form("myemail")="" or request.form("subject")="" or request.form("txtbody")="" then
response.write"所填内容不完整！"

else
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.from= request.form("myemail")
objCDOMail.to= request.form("acceptemail")

objCDOMail.subject= request.form("subject")

objCDOMail.body=trim(request.form("txtbody"))

objCDOMail.send

set objCDOMail=nothing
response.write "已经发送成功。"
end if

%>
</body>
</html>
///////////////
jmail:
<%

Dim Jmail

Set Jmail=server.createobject("Jmail.Message")

Jmail.Charset = "gb2312"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "xyz@xyz.com" (这里换成您的SMTP验证帐号)
Jmail.MailServerPassword = "********" （这里填写您的SMTP认证密码）
Jmail.From = "xyz@xyz.com" （发信人邮件地址）
Jmail.FromName = "发信人姓名"
Jmail.Subject = "信件主题"
Jmail.AddRecipient "abc@abc.com" (收信人地址)
Jmail.Body = mailbody Mailbody参数是信件正文
Jmail.Send("xxx.xyz.com") (这里填写发件服务器，如mail.8sea.com，需要与SMTP验证信息对应)

Set Jmail=nothing

%>
///
注jmail组件要服务器支持.cdonts一般都是默认安装的.
用之前一定要看清自己的服务器支持哪种组件!