使用CDONTS发送邮件的几个例子
当前位置:点晴教程→知识管理交流
→『 技术文档交流 』
<!--#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 %> 该文章在 2011/4/8 0:05:37 编辑过 |
关键字查询
相关文章
正在查询... |