附CDONT.NEWMAIL组件下载地址:http://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 [email protected] "抄送 [email protected] "密送 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 = "[email protected]" objMail.To = "[email protected]" 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>" %>
-完-
时间: 2024-11-05 11:51:46