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
投稿猜你喜欢
使用Python和百度语音识别生成视频字幕的实现
网页布局的位置重心与位置间的对比关系
python matplotlib绘画十一种常见数据分析图
CSS自适应宽度圆角按钮
python之tensorflow手把手实例讲解猫狗识别实现
python怎么删除缓存文件
python安装PIL模块时Unable to find vcvarsall.bat错误的解决方法
关于redux-saga中take使用方法详解
400多行Python代码实现了一个FTP服务器
分类与类型的问题
关于mysql与mysqli
pytest自动化测试中的fixture的声明和调用
Vue生命周期示例详解
requests和lxml实现爬虫的方法
为网站代码块pre标签增加一个复制代码按钮代码
SQL Server数据库动态交叉表的参考示例
斐波那契数列的递归算法优化
详解PyTorch手写数字识别(MNIST数据集)
基于python实现自动化办公学习笔记(CSV、word、Excel、PPT)
一文教会你用Python获取网页指定内容
