简单快捷实现ASP在线发邮件

2016-01-29 19:58 11 1 收藏

简单快捷实现ASP在线发邮件,简单快捷实现ASP在线发邮件

【 tulaoshi.com - 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
send "helo " && mmyname

  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

本新闻共2页,当前在第1页  1  2  

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/asp/)

来源:https://www.tulaoshi.com/n/20160129/1510501.html

延伸阅读
如果在用outlook express收发邮件时只能收到邮件,但在发送邮件时就会出现“由于服务器拒绝接受发件人的电子邮件地址,这封邮件无法发送”的错误提示时,按照下面的方法就可以解决。 在保证发送邮件地址输入正确的情况下,要检测是否启用了身份验证,方法是:在Outlook Express主界面中一次点击“工具→账户”,然后在弹出的窗口中单击...
标签: ASP
  其实ASP可以做很多事,只是大家不知道怎么用而以。微软为asp提供了非常多的现成有用的组件,而这些组件却没有人知道,如用CDO.Message发送邮件。 什么是CDO.Message?在winnt和win2k下发送邮件要用CDONTS.NewMail,CDONTS.NewMail组件是需要注册的,很简单,只要在服务器上运行命令行regsvr32 Cdonts.dll,在弹出的对话框中确定即可,...
新浪邮箱怎么发邮件   1)打开手机新浪邮件进入首页后点击右上角图标,编辑好收件人、主题、内容后点击右上角即可发送。     
云邮局怎么发邮件   云邮局怎么发邮件?云邮局也是邮箱类应用,可以收发邮件,在云邮局中可快速发送邮件给好友。接下来小编就教大家云邮局怎么发邮件?云邮局发邮件方法。 1)打开云邮局进入应用后点击下方导航栏,接着点击。 2)在邮箱中点击右上图标,编辑新邮件信息后点击右上角可发送。
手机QQ怎么发邮件   1.需要说明的是,目前手机QQ有空间入口,可是还没有邮箱入口 2.那么用QQ邮箱发邮件该怎么办呢,其实可以选择下载QQ邮箱客户端操作 3.打开QQ邮箱客户端,点击右上角的标志 4.选择 5.在、、里输入相关信息 6.若想发送给多人,可点击收件人,选择添加 7.编辑完邮件后点击...

经验教程

984

收藏

28
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部