asp发邮件代码怎么写
操作方法
- 01
编写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了！哈哈，很简单咧！赶紧动手去试试看吧！ --------------------------------------------------------------------------- asp发送邮件代码（网友作品）简单实用推荐：<% E_Server = "mail.1488.com" ''发件服务器 E_ServerUser = "joy@1488.com" ''登录用户名 E_ServerPass = "123456" ''登录密码 E_SendManMail = "joy@1488.com" ''发件人邮件地址 E_SendManName = "系统管理员" ''发件人姓名 Sub Jmail(Email,Topic,Mailbody) On Error Resume Next Dim JMail Set JMail = Server.CreateObject("JMail.Message") JMail.silent=true JMail.Logging = True JMail.Charset = "gb2312" If Not(E_ServerUser = "" Or E_ServerPass = "") Then JMail.MailServerUserName = E_ServerUser JMail.MailServerPassword = E_ServerPass End If JMail.ContentType = "text/html" JMail.Priority = 1 JMail.From = E_SendManMail JMail.FromName = E_SendManName JMail.AddRecipient Email JMail.Subject = Topic JMail.Body = Mailbody JMail.Send (E_Server) Set JMail = Nothing SendMail = "OK" If Err Then SendMail = "False" End Sub Sub Cdonts(Email,Topic,Mailbody) On Error Resume Next Dim ObjCDOMail Set ObjCDOMail = Server.CreateObject("CDONTS.NewMail") ObjCDOMail.From = E_SendManMail ObjCDOMail.To = Email ObjCDOMail.Subject = Topic ObjCDOMail.BodyFormat = 0 ObjCDOMail.MailFormat = 0 ObjCDOMail.Body = Mailbody ObjCDOMail.Send Set ObjCDOMail = Nothing SendMail = "OK" If Err Then SendMail = "False" End Sub Sub Aspemail(Email,Topic,Mailbody) On Error Resume Next Dim Mailer Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Charset = "gb2312" Mailer.IsHTML = True Mailer.username = E_ServerUser Mailer.password = E_ServerPass Mailer.Priority = 1 Mailer.Host = E_Server Mailer.Port = 25 Mailer.From = E_SendManMail Mailer.FromName = E_SendManName Mailer.AddAddress Email,Email Mailer.Subject = Topic Mailer.Body = Mailbody Mailer.Send SendMail = "OK" If Err Then SendMail = "False" End Sub dim SendMail Sub SendEmail(Mailto,Subject,HtmlCode,SendMode) if SendMode="" then SendMode="Jmail" if SendMode="Jmail" then Jmail MailTo,Subject,HtmlCode elseif SendMode="Cdonts" then Cdonts MailTo,Subject,HtmlCode elseif SendMode="Aspemail" then Aspemail MailTo,Subject,HtmlCode end if End Sub SendEmail "收件人hjc73@126.com","主题","正文","Jmail" %> 需要修改的地方： 1.smtp服务器设置 2.最后一行分别修改为：收件人，主题，正文，发送组建