用ASP发电子邮件

原创 2004年10月27日 11:52:00
用ASP发电子邮件
<?XML:NAMESPACE PREFIX = SITEMANAGER-CMS_INCLUDE />

CDONTS组件文字格式
BodyFormat=0  html方式
BodyFormat=1  纯文本方式

设置编码:
MailFormat=0  MIME格式
MailFormat=1  连续的纯文本

objCDO.BodyFormat=0
objCDO.MailFormat=0
objCDO.To = sendto
objCDO.mailformat=0
objCDO.From = sender
objCDO.cc = cc
objCDO.Subject = subject
objCDO.AttachFile att_file
objCDO.Body = body
objCDO.Importance = 2
objCDO.Send
Set objCDO = Nothing


用ASP发电子邮件
<%
Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby
Dim objCDOMail 'The CDO object
'First we'll read in the values entered
strTo = Request.Form("to")
'These would read the message subject and body if we let you enter it
'strSubject = Request.Form("subject")
'strBody = Request.Form("body")
strSubject = "Sample E-mail sent from X-Bit!"
' This is multi-lined simply for readability
strBody = "This message was sent from a sample at X-Bit. "
strBody = strBody & "It is used to show people how to send e-mail from an "
strBody = strBody & "Active Server Page. If you did not request this "
strBody = strBody & "e-mail yourself, your address was entered by one of "
strBody = strBody & "our visitors. We do not store these e-mail addresses."
strBody = strBody & " Please address all concerns to
pplo@sina.com."

'Ok we've got the values now on to the point of the script.

'We just check to see if someone has entered anything into the to field.
'If it's equal to nothing we show the form, otherwise we send the message.
'If you were doing this for real you might want to check other fields too
'and do a little entry validation like checking for valid syntax etc.
If strTo = "" Then
%>
<FORM ACTION="./email_cdo.asp" METHOD="post">
Enter your e-mail address:<BR>
<INPUT TYPE="text" NAME="to" SIZE="30"></INPUT>

<!-- These would be used if we decided to let you edit them
Subject:
<INPUT TYPE="text" NAME="subject" SIZE="30"></INPUT><BR>

Message:
<TEXTAREA NAME="body" ROWS="10" COLS="40" WRAP="virtual"></TEXTAREA><BR>
-->

<INPUT TYPE="submit" VALUE="Send Mail!"></INPUT>
</FORM>
<%
Else
' Create an instance of the NewMail object.
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

' Set the properties of the object
objCDOMail.From = "
ppop@sina.com"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody

' There are lots of other properties you can use.
' You can send HTML e-mail, attachments, etc...
' You can also modify most aspects of the message
' like importance, custom headers, ...
' Check the documentation for a full list as well
' as the correct syntax.

' Some of the more useful ones I've included samples of here:
'objCDOMail.Cc = "
sundy100@163.com;sundy100@163.com"
'objCDOMail.Bcc = "
wwew@sina.com;wwew@sina.com"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High)
'objCDOMail.AttachFile "c:/file.txt", "file.txt"

' Send the message!
objCDOMail.Send

' Set the object to nothing because it immediately becomes
' invalid after calling the Send method.
Set objCDOMail = Nothing

Response.Write "Message sent to " & strTo & "!"
End If
%>

用ASP发电子邮件

用ASP发电子邮件Dim strTo, strSubject, strBody Strings for recipient, subject, bobyDim objCDOMail The CDO o...
  • okook
  • okook
  • 2003年05月26日 12:07
  • 1419

用PHP发电子邮件

一个发送E-MAIL的脚本也许是你能够在Web 站点上找到的最普通的脚本之一了,虽然它很简单,一个邮件脚本有时会令程序员非常沮丧.PHP中有一个叫做mail()的函数,它只需要知道接收方的地址和信件主...
  • tianmanfu
  • tianmanfu
  • 2007年05月19日 01:21
  • 439

用 Python 发电子邮件

本文首发于【红叶枫啦】微信公号,未经允许,不得转载。 使用的库 这个程序涉及两个库:smtplib 和 email。 这两个库都是Python自带的,所以不需要额外的下载安装,此外,这次...
  • u010099080
  • u010099080
  • 2016年10月16日 16:46
  • 2246

电子邮件收发协议总结

电子邮件发送协议是一种基于“推”的协议,主要包括SMTP;邮件接收协议则是一种基于“拉”的协议,主要包括POP协议和IMAP协议,在正式介绍这些协议之前,我们先给出邮件收发的体系结构:...
  • JXH_123
  • JXH_123
  • 2014年06月30日 13:41
  • 4100

用flask开发个人博客(24)—— flask中使用Flask_Mail发送电子邮件

flask中使用Flask-Mail提供对电子邮件的支持,下面将分步骤测试flask中发送电子邮件的功能: 1 配置SMTP服务器的信息     我们需要借助flask程序实例app的config属性...
  • lzhui1987
  • lzhui1987
  • 2016年10月07日 10:02
  • 1423

用aSP发 WaP MaIL(=)

用aSP发 WaP MaIL(=)mail.asp
  • airweilai
  • airweilai
  • 2008年06月15日 21:56
  • 245

ASP.NET发电子邮件源码

using System.Collections.Generic;using System.Text;using System.Net;using System.Net.Mail;         t...
  • chris_dbh
  • chris_dbh
  • 2007年11月05日 13:54
  • 206

新闻发布系统-1.登录后台端口

Login.aspx前台代码:                 body         {             position: relative; ...
  • liheao123456
  • liheao123456
  • 2016年05月27日 09:41
  • 305

asp发送邮件的几种方法

Set mail = Server.CreateObject("CDONTS.NewMail")mail.TO = "abc@xxx.com"mail.From = "yourmail@xxx.com...
  • lvlingwy
  • lvlingwy
  • 2007年05月30日 14:55
  • 1026

电子邮件验证 正则表达式

电子邮件验证        正则表达式(regular expression, 常常缩写为RegExp) 是一种用特殊符号编写的模式,描述一个或多个文本字符串。使用正则表达式匹配文本的模式,...
  • x657032732
  • x657032732
  • 2015年04月02日 21:08
  • 3296
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用ASP发电子邮件
举报原因:
原因补充:

(最多只允许输入30个字)