简单快捷实现ASP在线发邮件功能
简单快捷实现ASP在线发邮件功能 |
|
---|---|
|
|
在编写网上应用程序时,经常碰到需要在线发送邮件的问题,邮件内容是由程序动态决定的,如果你采用的是ASP方式来编写网上应用程序,如何简单、快捷地实现这一功能呢? 笔者在实践中利用ASP的com组件功能,在vb中实现了一个发邮件的小组件,在ASP中只通过轻松调用,就可以实现该功能。所有邮件处理机制都被封装在这个组件中,使用起来极为方便。下面将详细介绍该组件的基本开发原理以及在ASP中的应用。 1. 利用Winsock控件与发送邮件的smtp联系 和smtp的联系包括握手、发送数据以及关闭等全过程,主要程序如下: 建立一个frmsendmail 的窗体,其中包含一个winsock控件,有以下几个公共变量: public mstmp as string //发送邮件的stmp public mfrom as string //from 地址 public mto as string //到达地址 public msubject as string //邮件主题 public mtext as string //邮件正文 sock.connect mstmp, 25 //和发送邮件的stmp建立联系 private sub sock_connect() sflag = sfconn //连接成功后设置参数 end sub private sub sock_dataarrival(byval bytestotal as long) on error goto daerr dim s as string sock.getdata s select case sflag case sfstart case sfconn sflag = sfhelo //发出握手信息hello case sfhelo sflag = sffrom send "mail from:" && getreal(mfrom) case sffrom if left(s, 3) 〈〉 "250" then goto srverr //如果成功发送接收邮件地址 sflag = sfrcpt send "rcpt to:" && getreal(mto) case sfrcpt if left(s, 3) 〈〉 "250" then goto srverr //如果成功开始发送数据 sflag = sfdata send "data" case sfdata if left(s, 3) 〈〉 "354" then goto srverr sflag = sfsendover //数据包括4项,最后以 . 结束 send "from: " && mfrom send "to: " && mto send "subject: " && msubject && vbcrlf send mtext send "." case sfsendover if left(s, 3) 〈〉 "250" then goto srverr sflag = sfstart sendok = true send "quit" end select exit sub end sub 由于ASP能使用的组件中不能存在控件,所以要通过类模块来封装上述窗体。首先在类初始化时建立一窗体: private sub class_initialize() set frm = new frmsendmail end sub 把窗体的公共变量作为属性封装在类模块中。 该窗体的函数接口为: public sub send() frm.sendstart end sub 3. 注册该组件 将上述工程编译成dll文件,通过vb注册或手工注册都可以。 4. 在ASP中的应用 调用方法如下: set smail=server.createobject("sendmailx.mail") smail.stmp="166.166.1.1" smail.logfile="e:/logs/mail.log" smail.mfrom = mfromname && " 〈" && mfromaddr && "〉" smail.mto = mtoname && " 〈" && mtoaddr && "〉" smail.msubject = msubject smail.mtext = mtext smail.send 其中变量可以通过赋值,也可以来自上一个request页面。 |
简单快捷实现ASP在线发邮件功能相关推荐
- 如何用java实现发邮件功能
如何用java实现发邮件功能 前言 前置条件 邮件服务器 电子邮件协议 JavaMail 实现 参考 前言 今天突然心学来潮,想用Java来实现发邮件的功能,想想这个在实际中还是蛮有用的,比如我举几个 ...
- 使用blat实现在window系统下通过BAT批处理脚本发邮件功能
一.简介 Blat 是一个命令行发邮件的小工具,仅支持简单的SMTP协议,需要SMTP服务器的支持. Blat is a Windows (32 & 64 bit) command line ...
- iOS打电话、发短信、发邮件功能
iOS打电话.发短信.发邮件功能 今天把APP里常用小功能 例如发短信.发邮件.打电话. 全部拿出来简单说说它们的实现思路. 1.发短信 实现打电话的功能,主要二种方法,下面我就分别说说它们的优缺 ...
- 西门子精智HMI-TP1200发邮件功能
不是所有的工厂都可以派个员工,24小时盯着设备.因此我们可以借助西门子人机界面的自动发送邮件功能,可以实现远程报警功能,! 具体步骤如下: 服务器名称.端口:可以查看所使用邮箱的SMTP服务器设置(如 ...
- PHP在线发邮件 无需服务端软件
PHP在线发邮件代码 为解决一些主机空间或服务器上不带发邮件sendmail程序 发一个自己使用的在线发邮件小程序,按自己要求修改 index.html <!DOCTYPE html PUBLI ...
- 使用PHPMailer实现PHP通过QQ邮箱发邮件功能
第一步 composer require phpmailer/phpmailer 或直接访问https://github.com/PHPMailer/PHPMailer/下载 第二步 检查是否开启so ...
- python定时发邮件功能
我是python初学者,请多多指导,谢谢. 最近用python做了一个定时发邮件功能,位置https://www.aliyundrive.com/s/aRaFBwnYtxr,欢迎查看源码,阿里云盘下载 ...
- java之实现发邮件功能
实现发邮件功能 1.配置邮件服务器主机名:private static String myEmailSMTPHost = "smtp.qq.com";(邮箱服务器前面加" ...
- Java实现发邮件功能---网易邮箱
目录 Java实现发邮件功能 前言 开发环境 代码 效果 结束语 Java实现发邮件功能 前言 电子邮件的应用场景非常广泛,例如新用户加入,即时发送优惠清单.通过邮件找回密码.监听后台程序,出现异常自 ...
最新文章
- 无参数的lambda匿名函数
- JavaDoc注释的使用
- Office for AI | 拯救互联网人崩溃瞬间
- [解决]Win7+Tomcat5.5 只能通过localhost或计算机名访问
- linux 命令大全_干货分享:Linux命令大全
- Cross-Validation(交叉验证)详解
- VMware14.0 安装 CentOS7.2
- 我们应学的11项技术[转载]
- c语言入门数据类型详解,C语言的基本数据类型入门教程
- Enterprise Library 系列教程
- SAP License:SAP创建中国版免费在线公开课程openSAP
- 想要你的HTTP稳定不蹦,必须吃透「负载均衡」
- android禁止锁屏保持常亮
- 软件工程实验报告一模板
- 网络安全等级保护拓扑图大全
- 2015-2016 ACM-ICPC Nordic Collegiate Programming Contest (NCPC 2015) Adjoin the Networks (树的直径)
- 序列密码知识整理(一 简介)
- voronoi图编程构造_voronoi图的算法编程实现.doc
- linux 删除变为空格
- 能播放任何格式视频的手机视频播放器