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
投稿猜你喜欢
可以对未初始化的map进行取值，但取出来的东西是空：var m1 map[string]stringfmt.Println(m1["- Postman是一款免费的http模拟请求工具，常用来测试开发接口。实际场景中，很多接口是需要授权才能使用。这就需要Postman获取授权，
- 因为自己在设计的时候就对这些东西经常不是很在意，以为是很小的事情，结果往往给自己搞出不少的麻烦。可能大家没有我这么粗心，不过还是想提醒一下跟
- TensorFlow是一个采用数据流图（data flow graphs），用于数值计算的开源软件库。节点（Nodes）在图中表示数学操作，
- 如果视图定义包括条件（譬如 WHERE 子句）并且其意图是确保任何引用该视图的 INSERT 或 UPDATE 语句都应用 WHERE 子句
- Mysql 删除重复数据保留一条有效数据一、Mysql 删除重复数据，保留一条有效数据DELETE FROM SZ_Building WHE
- 本文向大家分享23种JavaScript提高执行效率的小技巧、最佳实践等非常实用的内容。当然JavaScript的实用技巧不止这些，还有很多
- B站原视频爬取，我就不多说直接上代码。直接运行就好。B站是把视频和音频分开。要把2个合并起来使用。这个需要分析才能看出来。然后就是登陆这块是
- 目前广泛使用的图像分类数据集之一是MNIST数据集。如今，MNIST数据集更像是一个健全的检查，而不是一个基准。为了提高难度，我们将在接下来
- 1. 关闭mysql服务# service mysqld stop2. 检查是否有rpm包，如果没有用rpm安装过mysql，不应该有残留，
- 导语Hey！下午好，我是木木子，关注我，一起玩游戏吧~微信小游戏很久之前刮起了一股切水果热潮，还记得嘛？我记得纯粹是因为这个游戏家里的孩子依
- 赠送QQ秀流程是QQ秀商城关键流程之一，占了收入最直接的一部分。它的优化是后续商城流程优化的重要参考。OK，现在就用TA做例子，分享一下流程
- lambda函数是一种小的匿名函数。lambda语法lambda函数：lambda [arg1 [,arg2,...[,argn]]] :
- 分区视图联接来自一组成员的水平分区数据，使数据看起来象来自同一张表。SQL Server 2000 区分本地分区视图和分布式分区视图。在本地
- GMSSL模块介绍GmSSL是一个开源的加密包的python实现，支持SM2/SM3/SM4等国密(国家商用密码)算法、项目采用对商业应用友
- 前言最近在学习点云处理的时候用到了Modelnet40数据集，该数据集总共有40个类别，每个样本的点云数据存放在一个TXT文件中，每行的前3
- //获取字符数组String.prototype.ToCharArray=function() { &n
- 准备软件版本Django2.1.3Python3.7.1默认使用的是sqlite3DATABASES = { 'def
- 配置指令如下：[opcache]zend_extension=opcache.soopcache.enable_cli=1;共享内存大小,
- 这些列举的网站，站内还有大量的效果，希望大家多去找找，对于研究的朋友来说，更是很棒的源码参考。第5款的东东，很强很震撼...1、$fx()简
