 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\'On Error Resume Next \\\'利用CDONTS组件在Win2k上发送邮件 \\\'发送普通邮件 SendMail "admin@ny.com", "iamchn@263.net", "Normal Mail!", "Please check the attatchment!", 2, 0, "C:Love.txt" \\\'发送HTML邮件 Dim m_fso, m_tf Dim m_strHTML Set m_fso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT") Set m_tf = m_fso.OpenTextFile("C:Mail.htm", 1) m_strHTML = m_tf.ReadAll \\\'Write m_strHTML Set m_tf = Nothing Set m_fso = Nothing SendMail "admin@ny.com", "iamchn@263.net", "HTML Mail!", m_strHTML, 2, 1, Null \\\'参数说明 \\\'strFrom : 发件人Email \\\'strTo : 收件人Email \\\'strSubject : 信件主题 \\\'strBody : 信件正文 \\\'lngImportance : 信件重要性 \\\' : 0 - 低重要性 \\\' : 0 - 中等重要性（默认） \\\' : 0 - 高重要性 \\\'lngAType : 信件格式 \\\' : 为1时将邮件正文作为HTML（此时可以发送HTML邮件） \\\'strAttach : 附件的路径 Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach) Dim objMail Set objMail = Server.CreateObject("CDONTS.NEWMAIL") With objMail .From = strFrom .To = strTo .Subject = strSubject .Body = strBody .Importance = lngImportance If lngAType = 1 Then .BodyFormat = 0 .MailFormat = 0 End If If IsEmpty(strAttach) = False And IsNull(strAttach) = False Then .AttachFile strAttach End If .Send End With Set objMail = Nothing End Sub %> 返回类别: 教程 上一教程: 断开的数据库连接的一个例子 下一教程: 将汉字转变成汉语拼音的一段代码 您可以阅读与"利用CDONTS发送邮件的ASP函数"相关的教程: · 用CDONTS发送邮件的两个函数 · 利用SMTP和ASP发送CDONTS电子邮件 · ASP发送邮件的CLASS · 使用CDONTS发送邮件的几个例子 · 利用JMAIL.MESSAGE发送邮件 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
