jmail发送页面给多个邮件

最新推荐文章于 2017-01-22 16:56:59 发布

weixin_30731287

最新推荐文章于 2017-01-22 16:56:59 发布

阅读量186

点赞数

原文链接：http://www.cnblogs.com/winner/archive/2006/03/07/344805.html

版权

   <%'   on error resume next
     sql="insert into bd(a1,a2,a3,a4,a5,a6,a7,a8,a9) values('"&request("select")&"','"&request("textfield")&"','"&request("textfield2")&"','"&request("textfield3")&"','"&request("select2")&"','"&request("textfield4")&"','"&request("textfield5")&"','"&request("textfield6")&"','"&request("textarea")&"')"


Function JMail(Email)
''自动发送Email
set jmail = server.CreateObject("jmail.message") ''创建对象
jmail.Silent = true                         ''一般不用改
jmail.Charset = "utf8"                    ''信件的语言编码
jmail.ContentType = "text/html"             ''信件的格式html或纯文本
jmail.From = "public@rmtonlinejp.com"                ''发信人邮箱
jmail.FromName = "rmtonline"         ''发信人姓名
jmail.Subject = "rmtonline定单"                   ''信件主题

' email = "jsycywm@126.com" ''收信人地址
jmail.AddRecipient Email

jmaibody = " <html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=shift_jis""><META HTTP-EQUIV=""pragma"" CONTENT=""no-cache""><META HTTP-EQUIV=""Cache-Control"" CONTENT=""no-cache, must-revalidate""><link href=""http://www.rmtonlinejp.com/text.css"" rel=""stylesheet"" type=""text/css"" />"
jmaibody = jmaibody & "<style type=""text/css"">"
jmaibody = jmaibody & ""
jmaibody = jmaibody & "</style></head><body><img src='"&request("picurl")&"' width=""104"" height=""22"" />"
jmaibody = jmaibody & " <table width=""100%"" border=""1"">"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td bgcolor=""#EEEEEE"" class=""text"">僒乕僶乕柤 *</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td class=""text""><select name=""select"" class=""text"">"

jmaibody = jmaibody & "      <option selected=""selected"">"&request("select")&"</option>"

jmaibody = jmaibody & "    </select></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td bgcolor=""#EEEEEE"" class=""text"">庴庢僉儍儔柤 *</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td class=""text""><label>"
jmaibody = jmaibody & "      <input name=""textfield"" type=""text"" value="""&request("textfield")&""" />"
jmaibody = jmaibody & "    </label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td bgcolor=""#eeeeee"" class=""text"">峸擖婓朷岥悢*</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td class=""text""><input type=""text"" name=""textfield2"" value="""&request("textfield2")&""" />"
jmaibody = jmaibody & "      口</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td bgcolor=""#eeeeee"" class=""text"">嬥妟丗 (墌)</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td class=""text""><label>"
jmaibody = jmaibody & "      <input name=""textfield3"" type=""text"" value="""&request("textfield3")&""" readonly />"
jmaibody = jmaibody & "    </label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td bgcolor=""#eeeeee"" class=""text"">偛婓朷偺偍巟暐曽朄 * </td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td class=""text""><label>"
jmaibody = jmaibody & "      <select name=""select2"">"
jmaibody = jmaibody & "        <option selected>"&request("select2")&"</option>"

jmaibody = jmaibody & "      </select>    </label></td> </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td bgcolor=""#eeeeee"" class=""text"">偍巟暐偄柤媊 * </td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td class=""text""><label>"
jmaibody = jmaibody & "      <input name=""textfield4"" type=""text"" value="""&request("textfield4")&""" />"
jmaibody = jmaibody & "      <br />"
jmaibody = jmaibody & "      偐傫偨傫寛嵪偺曽偼yahooID傪丄怳崬傒偺曽偼娍帤偱婰擖壓偝偄丅。</label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td bgcolor=""#eeeeee"" class=""text"">偍巟暐偄柤媊 (僇僞僇僫) </td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td class=""text""><label>"
jmaibody = jmaibody & "      <input name=""textfield5"" type=""text"" value="""&request("textfield5")&""" />"
jmaibody = jmaibody & "      <br />"
jmaibody = jmaibody & "      拲)怳崬傒偺曽偼昁偢僇僞僇僫傪婰擖壓偝偄丅。</label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td bgcolor=""#eeeeee"" class=""text STYLE2"">儊乕儖傾僪儗僗 *</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td class=""text""><label>"
jmaibody = jmaibody & "      <input name=""textfield6"" type=""text"" value="""&request("textfield6")&""" />"
jmaibody = jmaibody & "    </label></td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td bgcolor=""#EEEEEE"" class=""text"">旛峫棑</td>"
jmaibody = jmaibody & " </tr>"
jmaibody = jmaibody & " <tr>"
jmaibody = jmaibody & "    <td class=""text""><label>"
jmaibody = jmaibody & "      <textarea name=""textarea"" cols=""40"" rows=""5"">"&request("textarea")
jmaibody = jmaibody & "</textarea>"
jmaibody = jmaibody & "    </label></td> </tr> <tr>    <td class=""text""> </td> </tr>"
jmaibody = jmaibody & "</table> </body></html>"
jmail.Body = jmaibody

response.write jmaibody

jmail.MailServerUserName = "rmtonlinejp@ykbm.com" ''服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = "rmtonlinejp" ''服务器登陆密码(您的邮件密码)
jmail.Send("mail.ykbm.com") ''服务器地址

jmail.Close
set jmail = Nothing
End Function

Email = "jcm810yt@bird.ocn.ne.jp,ywm998@163.com,ywm998@126.com"
Dim SplEmail
SplEmail = Split(Email,",")'假定多个Email地址用逗号隔开，分割成数组
For II = 0 To UBound(SplEmail)
Call JMail(SplEmail(II))
'response.write "<script>alert('第" & II + 1 & "封邮件发送成功!');</script>"
response.write "<script>alert(""ご注文ありがとうございます。すぐメールでご連絡します!"");window.history.go(-1);</script>"

' Call Send_Mail("dicky_gu@ateam.com.cn","dicky_gu@ateam.com.cn","adafdsfads")
response.write "<script>alert(""ご注文ありがとうございます。すぐメールでご連絡します!"");window.history.go(-1);</script>"
%>

转载于:https://www.cnblogs.com/winner/archive/2006/03/07/344805.html

weixin_30731287

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
jmail发送页面给多个邮件

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><META HTTP-EQUIV="pragma" CONTENT="no-cache"><META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">...
复制链接

扫一扫