如何用IIS内置组件发送邮件

kane 2001-11-08 08:34:43
我安装了IIS的smtp虚拟服务器,用CDO组件发信不能送出。
代码如下:
<%
'email.asp
sub sendmail(fromwho,towho,subject,body)
dim mymail
set mymail=server.createobject("CDONTS.Newmail")
mymail.from=fromwho
mymail.to=towho
mymail.subject=subject
mymail.body=body
mymail.send
set mymail=nothing
end sub

fromwho=trim(request.form("fromwho"))
towho=trim(request.form("towho"))
subject=trim(request.form("subject"))
body=trim(request.form("body"))

if towho<>"" then
sendmail fromwho,towho,subject,body
end if

%>
<html>
<head><title>email</title></head>
<body>

<form method=post action="<%=request.servervariables("SCRIPT_NAME")%>">
<br>To:<input name=towho size=40>
<br>From:<input name=fromwho size=40>
<br>Subject:<input name=subjectt size=40>
<br><textarea name=body cols=40 rows=5></textarea>
<br><input type=submit value=SendMail>
</form>
</body></html>
...全文
106 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧