使用CDONTS发送邮件的几个例子
类别: ASP教程
<!--#include file="include/common.asp"-->
<!--#include file="include/func.asp"-->
<%
\'Last Updated By Recon On 05/14/2001
\'On Error Resume Next
\'利用CDONTS组件在Win2k上发送邮件
Dim objMail
\'普通邮件
\'无主体
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST1"
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有主体
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST2"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有多送.有主体
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com;iamchn@263.net"
objMail.Subject = "TEST3"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有抄送.有主体.有重要性
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Cc = "iamchn@263.net;recon_chan@sohu.com"
objMail.Subject = "TEST4"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有抄送.有暗送.有主体.有重要性
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Cc = "recon_chan@sohu.com"
objMail.Bcc = "iamchn@263.net;recon_chan@sina.com"
objMail.Subject = "TEST5"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有主体.有重要性.含附件
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST6"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Importance = 2
objMail.AttachFile "C:Love.txt"
objMail.Send
Set objMail = Nothing
\'HTML邮件
\'有主体.有重要性
\'注: AttachURL的使用可能有错误
Dim fso, tf
Dim strHTML
Set fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set tf = fso.OpenTextFile("C:Mail.htm", 1)
strHTML = tf.ReadAll
Write strHTML
Set tf = Nothing
Set fso = Nothing
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST7"
objMail.Body = strHTML
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Importance = 2
objMail.AttachURL "c:common.css", "common.css"
objMail.AttachURL "c:logo.gif", "logo.gif"
objMail.Send
Set objMail = Nothing
%>
<!--#include file="include/func.asp"-->
<%
\'Last Updated By Recon On 05/14/2001
\'On Error Resume Next
\'利用CDONTS组件在Win2k上发送邮件
Dim objMail
\'普通邮件
\'无主体
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST1"
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有主体
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST2"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有多送.有主体
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com;iamchn@263.net"
objMail.Subject = "TEST3"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有抄送.有主体.有重要性
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Cc = "iamchn@263.net;recon_chan@sohu.com"
objMail.Subject = "TEST4"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有抄送.有暗送.有主体.有重要性
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Cc = "recon_chan@sohu.com"
objMail.Bcc = "iamchn@263.net;recon_chan@sina.com"
objMail.Subject = "TEST5"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Importance = 2
objMail.Send
Set objMail = Nothing
\'普通邮件
\'有主体.有重要性.含附件
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST6"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Importance = 2
objMail.AttachFile "C:Love.txt"
objMail.Send
Set objMail = Nothing
\'HTML邮件
\'有主体.有重要性
\'注: AttachURL的使用可能有错误
Dim fso, tf
Dim strHTML
Set fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set tf = fso.OpenTextFile("C:Mail.htm", 1)
strHTML = tf.ReadAll
Write strHTML
Set tf = Nothing
Set fso = Nothing
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "iamchn@263.net"
objMail.To = "iamchn@21cn.com"
objMail.Subject = "TEST7"
objMail.Body = strHTML
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Importance = 2
objMail.AttachURL "c:common.css", "common.css"
objMail.AttachURL "c:logo.gif", "logo.gif"
objMail.Send
Set objMail = Nothing
%>
- 上一篇: ASP的数据库类
- 下一篇: 读取一个文本文件的内容
-= 资 源 教 程 =-
文 章 搜 索