源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

如何用组件实现自动发送电子邮件?

  • 时间:2022-06-17 18:07 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:如何用组件实现自动发送电子邮件?
[h2]如何用组件实现自动发送电子邮件?[/h2][u]JMailUploadAutoForm.asp [/u]<html> <body> <font face="verdana, arial" size="2"><b> <form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data"> <p>撼雪喷云之动发送电子邮件</p>

请填写好表单,点击发送!

<br><br> 您的姓名<br> <input type="text" size="25" name="name"><br> 电子邮件地址<br> <input type="text" size="25" name="email"><br> 接收邮件地址<br> <input type="text" size="25" name="recipient"><br> 您想...<br> <select name="subject" size="1"> <option value="help">咨询 <option value="hello">问候 <option value="other">其它 </select> <br> 主题<br> <input type="text" size="25" name="tipic"><br> 概述<br> <input type="text" size="25" name="resume"><br> 请输入您的内容<br> <textarea name="question" cols="40" rows="15" wrap="PHYSICAL"></textarea> <br> <br> <br> 附件1<br> <input type="file" name="attachment1"> <br> <br> 附件2<br> <input type="file" name="attachment2"> <br> <br> 附件3<br> <input type="file" name="attachment3"> <br> <br> <input type="submit" value="发送"> </form> </b>感谢光临随风起舞! </font> </body></html> [u]JmailUploadAutoFormProcess.asp[/u] <% Set upload = Server.CreateObject( "w3.Upload" ) Set JMail = Server.CreateObject("JMail.SMTPMail") for i = 0 to upload.form.count-1 if upload.form( i ).isFile then set attachment = upload.Form( i ) JMail.AddCustomAttachment attachment.filename, attachment.item

' 检查附件并加入邮件.所有其他的form元素被加到邮件里. else JMail.appendtext( upload.form( i ).name & ": " & upload.form( i ).item & vbcrlf ) end if next Name = upload.Form("name") SenderEmail = upload.Form("email") Subject = "Regarding " & upload.Form("subject") Recipient = upload.Form("recipient")

' 得到form变量,用上传组件. JMail.ServerAddress = "mail.intels.net" ' 输入你的SMTP-server. JMail.Sender = Senderemail JMail.Subject = Subject JMail.AddRecipient Recipient JMail.Priority = 3 JMail.Execute %> <html> <body> <BR> <BR> <p align="center"><font face="Arial, geneva" size="5"> 邮件发送成功!</font></p> <center> <font face="Arial, geneva" size="3"> 您的邮件已发送至<%= Recipient %><br> <BR> </font> </center> </body></html>

 

 

 

[b][1][/b]
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部