使用CDONTS发送邮件的几个例子

<%
'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"