asp如何用组件实现自动发送电子邮件？
发布时间：2010-06-16 09:56:00
如何用组件实现自动发送电子邮件？
我想做一个能够自动发送电子邮件的程序，该如何做？
这就要用到w3 upload组件了。看看用它做的自动发邮件的程序。既能带附件，也能同时上传多个文件：
JMailUploadAutoForm.asp
<html>
<head>
<title>自动发送电子邮件 - www.aspxhome.com</title>
</head>
<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>
0
投稿猜你喜欢
- 突然有个想法,不知道是不是首创:用"表情符号"做植入广告. 目前的表情符号 "黄色小圆脸"系列可以说
- 采集开始第一步是分析要采集的页面。使用浏览器打开要采集的页面（如:http://sports.sina.com.cn/k/2008-09-1
- 现在网页的设计都讲究整体统一风格，无论是网页的文字、图像，还是浏览器的滚动条都要求颜色和风
- 完全备份的SH文件：exp_comp.shrq=` date +"％m％d" `su - oracle -c "
- 在一些情况下，MySQL可以直接使用索引来满足一个 ORDER BY 或 GROUP BY 子句而无需做额外的排序。尽管 ORDER BY
- 将转储设备加入到SQL Server备份数据库的地方。在SEM中转储设备是可见性的，并且在设备上的信息被存储在主要数据库的sysdevice
- 如何自动反馈电子邮件？很多网站上的电子邮件都是自动回复的，就象163电子邮局提供的邮件自动回复功能一样。这是怎么实现的？我们可以用ASPMa
- 如果你有一字段dm记录了一个url，为了更好的优化模糊查询速度或统计速度，在数据表原有的结构上增加3个字段，分别为 `sdm`
【作者翻译】结构和层次降低了复杂性并提高了可读性。你的文章或站点组织的越深入，用户就越容易理解你观点和得到你想传达的信息。在网页上，这点被通- 栅格系统的形成1692年，新登基的法国国王路易十四感到法国的印刷水平强差人意，因此命令成立一个管理印刷的皇家特别委员会。他们的首要任务是设计
- 服务器现在同时输出json和xml两种数据，取决于服务程序和页面之间的约定。在程序遇到问题的时候会返回错误信息，也按照相同的约定会返回jso
- 导读：SQL Server数据迁移的知识之前已经为大家介绍了很多，比如SQL Server数据库迁移方法，接下来就为大家详细介绍SQL Se
- 一定要对用户可能输入的诸如引号，尖括号等特殊字符给予足够重视，它们可能引发严重的安全问题。SQL注入的基本手法之一，就是利用对单引号未加过滤
- 【代码示例】 [code=SQL] DELIMITER $$ DROP FU
- 很久没有更新blog了，这段时间实在是发生了很多的事，累身累心。但还是有很多想做的事，比如更新merceCSS、把一直以来所总结的有关模块化
- 1.INSERT INTO SELECT语句 语句形式为：Insert into Table2(field1,field2,...) sel
- 一个客户提供一个股价的信息，要求放在页面上，显示一些数据，需要从远程获取xml，然后解析写在网页上，开始不会觉得很难，其实蛮简单的，先用ja
- 需要的软件phpStudy 用来导入一个数据库api-server 数据库功能可以开启一个服务器，让开发环境可以使用生产环境的网址请求安装
- Window.Open详解 一、window.open()支持环境：JavaScript1.0+/JScript1.0+/Nav2
- DROP PRIMAY DEY用于取消主索引。注释：在MySQL较早的版本中，如果没有主索引，则DROP PRIMARY KEY会取消表中的
