 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!--#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 %> 返回类别: 教程 上一教程: 对数据库中的记录用上一条下一条显示(三) 下一教程: 手把手教你在ASP中使用SQL语句 您可以阅读与"使用CDONTS发送邮件的几个例子"相关的教程: · 用CDONTS发送邮件的两个函数 · 利用CDONTS发送邮件的ASP函数 · 在ASP中使用CDO发送邮件 · 一个异常好用的发送邮件的组件 · 出现404页面错误的自动发送邮件的代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
