ASP CDONTS.NEWMAIL组件发送电邮(附下载)
附CDONT.NEWMAIL组件下载地址:https://files.cnblogs.com/files/colinliu/cdonts.rar
ASP常规发送方法:
<% dim mail set mail=server.createobject("cdonts.newmail") mail.From=fromwho "发件人信箱 mail.To = towho "收件人信箱 mail.Subject =subject "主题 mail.Body =body "邮件正文 mail.MailFormat=0 "说明是以MIME发送 mail.BodyFormat=0 "可以包含html代码 mail.Importance=0 "邮件的优先级别0-1-2 mail.cc=xx@xx.net "抄送 mail.Bcc=xx@sf.net "密送 mail.AttachFile attachfile "附件 mail.Send Set mail=Nothing response.Write "<script language='javascript'>alert('电邮已发送');</script>" %>
读取HTML然后发送!
<% 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:\logo.gif", "logo.gif" objMail.Send Set objMail = Nothing response.Write "<script language='javascript'>alert('电邮已发送');</script>" %>
-完-
博客地址:http://www.cnblogs.com/colinliu/
博客版权:本文以学习、记录、分享为目的。欢迎大家转载,但务必注明原文地址,谢谢合作!
博客版权:本文以学习、记录、分享为目的。欢迎大家转载,但务必注明原文地址,谢谢合作!