1.asp发邮件代码怎么写

asp发邮件代码怎么写

       编写asp发邮件代码小提示：这个功能的前提是要装上WINDOWS NT OPTON PACK 的SMTP SERVICE。 首先 Set mail = Server.CreateObject("CDONTS.NewMail")以呼叫SMTP Service的送源元件，然后设定： mail.To = "收件者E-Mail地址" mail.From = "寄件者的发送付费阅读网站源码E-Mail地址" mail.Subject = "主旨" mail.Body = "E-mail内文" 最后Mail.Send即开始发送邮件。 例如： % Set mail = Server.CreateObject("CDONTS.NewMail") mail.TO = "abc@xxx.com" mail.From = "yourmail@xxx.com" mail.Subject = "主题" mail.Body = "E-Mail内容" mail.Send % 一切OK了！邮邮件源码哈哈，送源游戏试玩源码体验站源码很简单咧！发送网页源码里查看css源码赶紧动手去试试看吧！邮邮件源码 --------------------------------------------------------------------------- asp发送邮件代码（网友作品）简单实用推荐：%E_Server = "mail..com" ''发件服务器E_ServerUser = "joy@.com" ''登录用户名E_ServerPass = "" ''登录密码E_SendManMail = "joy@.com" ''发件人邮件地址E_SendManName = "系统管理员" ''发件人姓名 Sub Jmail(Email,送源Topic,Mailbody)On Error Resume NextDim JMailSet JMail = Server.CreateObject("JMail.Message")JMail.silent=trueJMail.Logging = TrueJMail.Charset = "gb"If Not(E_ServerUser = "" Or E_ServerPass = "") ThenJMail.MailServerUserName = E_ServerUserJMail.MailServerPassword = E_ServerPassEnd IfJMail.ContentType = "text/html"JMail.Priority = 1JMail.From = E_SendManMailJMail.FromName = E_SendManNameJMail.AddRecipient EmailJMail.Subject = TopicJMail.Body = MailbodyJMail.Send (E_Server)Set JMail = NothingSendMail = "OK"If Err Then SendMail = "False"End Sub Sub Cdonts(Email,Topic,Mailbody)On Error Resume NextDim ObjCDOMailSet ObjCDOMail = Server.CreateObject("CDONTS.NewMail")ObjCDOMail.From = E_SendManMailObjCDOMail.To = EmailObjCDOMail.Subject = TopicObjCDOMail.BodyFormat = 0ObjCDOMail.MailFormat = 0ObjCDOMail.Body = MailbodyObjCDOMail.SendSet ObjCDOMail = NothingSendMail = "OK"If Err Then SendMail = "False"End Sub Sub Aspemail(Email,Topic,Mailbody)On Error Resume NextDim MailerSet Mailer = Server.CreateObject("Persits.MailSender")Mailer.Charset = "gb"Mailer.IsHTML = TrueMailer.username = E_ServerUserMailer.password = E_ServerPassMailer.Priority = 1Mailer.Host = E_ServerMailer.Port = Mailer.From = E_SendManMailMailer.FromName = E_SendManNameMailer.AddAddress Email,EmailMailer.Subject = TopicMailer.Body = MailbodyMailer.SendSendMail = "OK"If Err Then SendMail = "False"End Subdim SendMailSub SendEmail(Mailto,Subject,HtmlCode,SendMode)if SendMode="" then SendMode="Jmail"if SendMode="Jmail" thenJmail MailTo,Subject,HtmlCodeelseif SendMode="Cdonts" thenCdonts MailTo,Subject,HtmlCodeelseif SendMode="Aspemail" thenAspemail MailTo,Subject,HtmlCodeend ifEnd SubSendEmail "收件人hjc@.com","主题","正文","Jmail"% 需要修改的地方：1.smtp服务器设置2.最后一行分别修改为：收件人，主题，发送正文，邮邮件源码发送组建