广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： unknow

<!--#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
%>