用ASP发电子邮件

原创 2003年05月26日 12:07:00


用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 = "kola100@163.com;kola100@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发电子邮件 用ASP发电子邮件  Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby  Dim ...
  • u014739763
  • u014739763
  • 2014年04月23日 12:56
  • 559

Android中用intent发送邮件

下面是一个用intent发用邮件的Util类,可以发送附件。 //MailUtil.java package com.maclab.util; import java.io.File; im...
  • qp120291570
  • qp120291570
  • 2013年03月31日 20:15
  • 3047

用Python发电子邮件

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

Google Play 开发者注意事项

Google Play 审核制度机器扫描+投诉举报+少量人工监管上线前:由工具进行病毒扫描,并判断一些明显违规问题(包括侵权和色情图片),在发现异常后交给人工进行审核。上线后:不定期审查、根据举报审查...
  • kl28978113
  • kl28978113
  • 2016年07月18日 16:43
  • 4977

邮件的发送与接收原理

1.邮件开发涉及到的一些基本概念 1.1、邮件服务器和电子邮箱   要在Internet上提供电子邮件功能,必须有专门的电子邮件服务器。例如现在Internet很多提供邮件服务的厂商:sina、soh...
  • u014520047
  • u014520047
  • 2016年07月20日 11:21
  • 5124

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

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

电子邮件验证 正则表达式

电子邮件验证        正则表达式(regular expression, 常常缩写为RegExp) 是一种用特殊符号编写的模式,描述一个或多个文本字符串。使用正则表达式匹配文本的模式,...
  • x657032732
  • x657032732
  • 2015年04月02日 21:08
  • 3216

电子邮件的发送与接收实例

这个就不写很多不同类的属性和方法了。其中涉及的类有MailMessage类,SmtpClient类 其实可有还有相关的Attachment类:表示电子邮件的附件 以下就直接贴实例代码了: 一共三个...
  • u010792238
  • u010792238
  • 2014年06月07日 15:34
  • 1106

nodejs发送邮件

Nodemailer是一个简单易用的Node.js邮件发送组件。var nodemailer = require('nodemailer');// create reusable transporte...
  • chenjh213
  • chenjh213
  • 2015年09月14日 16:31
  • 565

使用PHPMail发送邮箱(163邮箱为例)

1、下载phpmail压缩包,并解压。 2、创建index.html文件。并写入代码。 收件人邮箱: 标  题: 内  容: function sendMail() { mail...
  • sinat_37390744
  • sinat_37390744
  • 2017年01月22日 12:30
  • 4155
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用ASP发电子邮件
举报原因:
原因补充:

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