当前位置: 首页 > 图文教程 > 网络编程 > 编程10000问 > 如何用组件实现自动发送电子邮件？

编程10000问
如何获知文件被改动的情况？
如何获知文件最后的修改日期和时间？
如何在线查询本地机的文件？
如何制作一个文本文件编辑器？
如何简单地上传文件？
如何上传一个单纯的HTML文件？
如何实现文件上传并自动归类功能？
如何实现无组件上传二进制文件？
在无组件的情况下，如何上传图片？
如何限制上传文件的大小？
如何用拦截表单的方法上传图片？
如何对用户进行授权？
如何更好地保护我的网页？
如何实现某些页面只让特定的用户浏览？
如何实现某一页面只让特定的用户浏览？
如何实现强制登录？
如何制作一个安全的页面？
如何最大限度地实现安全登录功能？
如何防止未经注册的用户绕过注册界面直接进入应用系统？
怎样避免直接在地址栏敲入URL即可绕过登录页的错误？

No. « 2 3 4 5 »

技术文章搜索

关键字

编程10000问 中的 如何用组件实现自动发送电子邮件？

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2010-01-10   浏览: 46 ::
收藏到网摘: n/a

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

JMailUploadAutoForm.asp
<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>
JmailUploadAutoFormProcess.asp
<%
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>

[1]