怎样才能做到提交邮件?

coollele 2000-07-10 03:02:00
就是说,当用户点了联系人后,系统弹出一个对话框,让用户输入一段话,还有一个对话框让用户输入自己的邮箱和收邮件人的邮箱,最后提交,系统给出提示,说邮件已发出,
大概情况就这样,用ASP怎样写呢?最好给出源程序。
...全文
167 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
华南虎哥 2000-08-18
  • 打赏
  • 举报
回复
用CDONTS或者ASPMAIL类的组件,下面是一个小例子
Dim MailObject
Dim Email
Email ="nengneng@371.net"
Set MailObject = Server.CreateObject("CDONTS.NewMail")
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.Subject = "欢迎您下次再来"
MailObject.Send "你本人的E-MAIL", Email ,"欢迎您下次再来给我们留言。" myMail.Send
Set myMail=Nothing
如果还不是很清楚,EMAIL:hblinux@163.net
Tyro 2000-07-10
  • 打赏
  • 举报
回复
用ASP发电子邮件
<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = Request.Form("to")
strSubject = Request.Form("subject")
strBody = Request.Form("body")

If strTo = "" Then %>
<FORM ACTION="./email_cdo.asp" METHOD="post">
Enter your e-mail address:<BR>
<INPUT TYPE="text" NAME="to" SIZE="30"></INPUT>
<!-- These would be used if we decided to let you edit them
Subject: <INPUT TYPE="text" NAME="subject" SIZE="30"></INPUT><BR>
Message: <TEXTAREA NAME="body" ROWS="10" COLS="40" WRAP="virtual"></TEXTAREA><BR>
-->
<INPUT TYPE="submit" VALUE="Send Mail!"></INPUT></FORM>
<%
Else
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "coollele@netease.com"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing

Response.Write "邮件发出!"
End If
%>

28,390

社区成员

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

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