如何操作？表单提交时自动发送邮件。
通过表单向数据库里提交一申报表，每个用户成功提交一次，就发送一封邮件给管理者，并且管理者收到邮件直接点击查看该申报表。
请问大虾们如何做到？
问题点数：100、回复次数：35Top
1 楼poctopus（）回复于 2005-02-28 12:36:31 得分 5
使用Jmail就可以了！Top
2 楼sun94510451（中原）回复于 2005-02-28 12:42:33 得分 0
想做的精简些Top
3 楼redtank2005（菜鸟）回复于 2005-02-28 12:54:19 得分 20
'****************************************
'****** 发送电子邮件 *******************
'****************************************
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.ContentType = "text/html"
'输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerUserName = "aaa@aaa.com"
'输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.MailServerPassword = "aaaaa"
'发件人Email
msg.From = "aaaaaa@aaa.com"
'发件人姓名
msg.FromName = "aaaaa"
'收件人Email
msg.AddRecipient "aaaaaaaa@aaa.com"
' msg.AddRecipientBCC ""
'信件主题
msg.Subject ="有aaa生成==="&now()
'正文
msg.Body = str
'smtp服务器地址（企业邮局地址
msg.Send("aaa.aaaa.com")
set msg = nothingTop
4 楼FEB15（张郎）回复于 2005-02-28 12:59:09 得分 5
客户提交到执行页面，先处理完报表然后再处理楼上的代码就可以了。Top
5 楼mymyal123（风之森）回复于 2005-02-28 13:00:20 得分 5
JmailTop
6 楼sun94510451（中原）回复于 2005-02-28 13:24:39 得分 0
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
服务器对象 错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/zhanneixt/admin/addhysave.asp，行40
无效的 ProgID。 若要获取关于此消息的更多的信息，请访问 Microsoft 联机支持站点: http://www.microsoft.com/contentredirect.asp 。
40行就是：
Set msg = Server.CreateObject("JMail.Message")
Top
7 楼redtank2005（菜鸟）回复于 2005-02-28 13:31:53 得分 5
服务器要安装JmailTop
8 楼sun94510451（中原）回复于 2005-02-28 14:07:30 得分 0
传到服务器上了（服务器支持jmail），还是有问题，我指定的邮箱里并收到邮件，本人对jmail不太熟悉，请大虾解释。Top
9 楼sun94510451（中原）回复于 2005-02-28 19:04:18 得分 0
谢谢各位！又如何在 msg.Body“”的内容里编辑网页（以达到显示被提交页面的内容）？Top
10 楼lovebanyi（风云）回复于 2005-02-28 19:15:48 得分 5
jmail啊..大部分的虚拟主机都会支持的.不过有些版本不一样,调用的时候也会有些同Top
11 楼sun94510451（中原）回复于 2005-02-28 20:02:42 得分 0
自己顶了Top
12 楼sun94510451（中原）回复于 2005-02-28 21:07:48 得分 0
如何让邮件的内容生成的是报表内容，怎么在 msg.Body = “？？？”里编辑Top
13 楼junna520（娜儿!）回复于 2005-02-28 21:08:11 得分 3
帮你顶Top
14 楼sun94510451（中原）回复于 2005-03-02 17:34:13 得分 0
分不是问题，谁再给点意见Top
15 楼sun94510451（中原）回复于 2005-03-05 18:44:58 得分 0
又如何以短信形式发有关报表申报成功给手机用户呢？Top
16 楼sun94510451（中原）回复于 2005-03-07 18:36:28 得分 0
自己upTop
17 楼moxiaolan（莫肖兰）回复于 2005-03-10 23:53:23 得分 3
哪里有jmail的下载？
我也想要一个Top
18 楼yb2008（中科商务网--ZKE360.COM）回复于 2005-03-11 08:26:31 得分 20
<%
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "yb@dgemail.com" ''输入smtp服务器验证登陆名 （邮局中任何一个用户的Email地址）
msg.MailServerPassword = "1985813" ''输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From ="yb@dgemail.com"' Request.Form("email") '发件人Email
msg.FromName = "yb2008"'Request.Form("name") '发件人姓名
msg.AddRecipient "yb@dgemail.com" ''收件人Email
msg.Subject = "信件主题"'Request.Form("subject") '信件主题
msg.Body = "正文"'Request.Form("body") '正文
'msg.addattachment(server.mappath("new.txt"))
msg.Send ("http://mail.dgemail.com") 'smtp服务器地址（企业邮局地址）
set msg = nothing
response.write("发送成功！")
%>Top
19 楼yb2008（中科商务网--ZKE360.COM）回复于 2005-03-11 08:26:55 得分 0
晕,把密码也弄上去了Top
20 楼gamestar1（海洋之星）回复于 2005-03-11 08:40:30 得分 5
在管理者收到的邮件内容中
可以把你要发的申报表地址写进去Top
21 楼sunfic（菜菜龙）回复于 2005-03-11 08:47:05 得分 3
顶，一分也要Top
22 楼lei7909（阿郎）回复于 2005-03-11 11:14:04 得分 3
帮顶
Top
23 楼sun94510451（中原）回复于 2005-03-11 14:08:30 得分 0
是否能以邮件的形式告诉手机用户有关报表申请成功的信息呢？Top
24 楼sun94510451（中原）回复于 2005-03-12 17:15:45 得分 0
upTop
25 楼xiaofanku（发扬中国博大的无术精神）回复于 2005-03-12 20:08:20 得分 3
TO:redtank2005(菜鸟)
不错!Top
26 楼sun94510451（中原）回复于 2005-03-14 12:39:02 得分 0
upTop
27 楼xumw（）回复于 2005-03-15 09:57:47 得分 3
ＵＰ……
保留此帖！Top
28 楼sun94510451（中原）回复于 2005-03-15 21:28:45 得分 0
没人呢？Top
29 楼sun94510451（中原）回复于 2005-03-18 15:19:10 得分 0
up!Top
30 楼sun94510451（中原）回复于 2005-03-19 19:34:52 得分 0
顶的人都没了。Top
31 楼balloonfish（balloonfish）回复于 2005-03-21 17:03:25 得分 3
帮忙顶下Top
32 楼poonzsp（怒放的生命）回复于 2005-03-21 17:34:55 得分 3
upTop
33 楼cheng17（+天空+）回复于 2005-03-21 18:16:46 得分 6
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>推荐给朋友</title>
<link href="inc/style.css" rel="stylesheet" type="text/css">
</head>
<%
response.buffer=true
response.expiresAbsolute=now-1
response.expires=0
response.cacheControl="no-cache"
If request("action")="ok" then
on error resume next
Dim title,friendName,friendMail,myName,Content,siteAddr,str,HTMLBody
title = strleach(request.form("title"))
friendName = strleach(request.form("friendName"))
friendMail = IsValidEmail(request.form("friendMail"))
If friendMail = true then
mailToFriend = request.form("friendMail")
Else
Response.Write("<div style=margin:20px>输入你朋友的电子邮箱地址不正确。<p><a class=line_color href=# onclick=javascript:history.go(-1)>重新发送</a></div>")
Response.End()
End if
myName = strleach(request.form("UserName"))
Content = strleach(request.form("content"))
siteAddr = request.form("siteAddr")
HtmlBody="<html><body>商品</body></html>"
Body = friendName & "，您好："&VBCrlf
Body = Body&"您的朋友 "& myName &" 给你推荐一个商品，"&VBCrlf
Body = Body&"网址："& siteAddr &VBCrlf
Body = Body&"下面是他（她）的留言内容："& content &VBCrlf
Body = Body&now()
isHtml = true
HtmlBody = ""
MailTo = chr(34)& mailToFriend &chr(34)
From = "yfc@ertlsoft.com" '公司发信邮箱
FromName = "SKY" '发信人名称
Smtp = "mail.ertlsoft.com" '发信SMTP服务器
Username = "yfc@ertlsoft.com" '邮箱用户名
Password = "257658" '邮箱密码
str=JmailSend(Title,Body,isHtml,HtmlBody,MailToFriend,From,FromName,Smtp,Username,Password)
If str="Y" then
response.write("<div style=margin:20px>信息已经发送到你朋友的邮箱。<p><a class=line_color href=# onclick=javascript:window.close()>[关闭窗口]</a></div>")
response.End()
Else
response.write("<div style=margin:20px>发送失败。<p><a class=line_color href=# onclick=javascript:history.go(-1)>重新发送</a></div>")
response.End()
End if
End if
Function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
dim JmailMsg
set JmailMsg=server.createobject("jmail.message")
JmailMsg.mailserverusername=Username
JmailMsg.mailserverpassword=Password
JmailMsg.addRecipient MailTo
JmailMsg.from=From
JmailMsg.fromname=FromName
JmailMsg.charset="gb2312"
JmailMsg.logging=true
JmailMsg.silent=true
JmailMsg.subject=Subject
JmailMsg.body=Body
if isHtml=true then JmailMsg.htmlbody=HtmlBody
if not JmailMsg.send(Smtp) then
JmailSend="N"
else
JmailSend="Y"
end if
JmailMsg.close
set JmailMsg=nothing
End function
%>
<body>
<form name="form1" method="post" action="?action=ok">
<br>
<table width="400" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#D66565">
<tr align="center">
<td colspan="2" class="admin_font">推荐此商品给朋友</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="110" align="right">标题：</td>
<td>
<input name="Title" type="text" id="Title" style="width:150px;height:19px" maxlength="20">
<input type="hidden" name="siteAddr" value="<%=request("site")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">朋友名称：</td>
<td><input name="FriendName" type="text" id="FriendName" style="width:150px;height:19px" maxlength="10"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">朋友E-mail地址：</td>
<td><input name="FriendMail" type="text" id="FriendMail" style="width:150px;height:19px"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">您的姓名：</td>
<td><input name="userName" type="text" id="userName" style="width:150px;height:19px" maxlength="10"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">内容：</td>
<td><textarea name="Content" cols="35" rows="4" wrap="VIRTUAL" id="Content"></textarea></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td colspan="2"><input type="submit" class="button_style" value="确定发送"></td>
</tr>
</table>
</form>
</body>
</html>
Top
34 楼sun94510451（中原）回复于 2005-03-23 13:15:21 得分 0
我是想发给手机用户，是不是必须做wap呢？大家随便谈。Top
35 楼sun94510451（中原）回复于 2005-03-25 22:08:50 得分 0
upTop
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
