asp发邮件(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了！哈哈，很简单咧！赶紧动手去试试看吧！--------------------------------------------------------------------------- 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 NextDim JMailSet JMail= Server.CreateObject("JMail.Message")JMail.silent=trueJMail.Logging= TrueJMail.Charset="gb2312"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="gb2312"Mailer.IsHTML= TrueMailer.username= E_ServerUserMailer.password= E_ServerPassMailer.Priority= 1Mailer.Host= E_ServerMailer.Port= 25Mailer.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"收件人hjc73@126.com","主题","正文","Jmail"%需要修改的地方：1.smtp服务器设置2.最后一行分别修改为：收件人，主题，正文，发送组建
二、asp中如何通过smtp函数发邮件
1、ASP中没有自带的smtp函数可以发邮件
2、ASP要发邮件必须服务器端安装了发信组件，如：jmail
如下代码是我自己写的ASP发邮件程序，服务器发信组件为：jmail4.5
<%
'作者：凌陈亮www.lingchenliang.com（QQ：57404811）
'函数名：gw_sendmail()
'作用：利用Jmail4.5组件发送EMail
'参数：
'tomail：收件人email邮箱地址。
'subject：邮件标题。
'body：邮件内容。
'如果发送成功，函数将返回True，否则返回False
functiongw_sendmail(tomail,subject,body)
dimjmail,smail,smail_pwd,fromname
smail="57404811@qq.com"'设定发件人邮箱帐号
smail_pwd="***"'设定发件人邮箱密码
fromname="**网站"'指定发件人，可为email（如：57404811@qq.com），也可为名称（如：**网站）
setjmail=Server.createobject("jmail.message")'创建JMAIL对象
jmail.silent=true'屏蔽例外错误，true表示邮件发送会忽略错误，不将错误信息返回给操作系统。
jmail.logging=true'使用日志
jmail.charset="gb2312"
jmail.contentType="text/html"
jmail.from=smail'设定发件人邮箱
jmail.fromname=fromname'指定发件人
jmail.mailserverusername=smail'设定发件人邮箱帐号
jmail.mailserverpassword=smail_pwd'设定发件人邮箱密码
jmail.addRecipienttomail'设定收件人邮箱帐号
jmail.subject=subject'设定邮件的标题
jmail.body=body'设定邮件的内容
jmail.returnreceipt=true'当对方收到邮件后发回收条
'smtp发信服务器名称如：mail.qq.com、smtp.163.com、smtp.163vip.net、smtp.126.com、smtp.sina.com.cn、smtp.gmail.com、smtp.china.com、smtp.sohu.com
ifjmail.send("mail.qq.com")=falsethen'开始发信并判断发信结果
gw_sendmail=false'发信失败
else
gw_sendmail=true'发信成功
endif
endfunction
'用户意见/网站留言发送邮件示例
dimname1,mobile,content,body
name1=trim(request.form("name1"))
mobile=trim(request.form("mobile"))
content=trim(request.form("content"))
body=""
body=body&"<p>留言时间："&now()&"</p>"
body=body&"<p>留言IP："&request.ServerVariables("REMOTE_ADDR")&"</p>"
body=body&"<p>客户姓名："&name1&"</p>"
body=body&"<p>手机号码："&mobile&"</p>"
body=body&"<p>留言内容："&content&"</p>"
ifgw_sendmail("57404811@qq.com","**网站留言-"&name1,body)=truethen'这里填自己的邮箱
callalert("发送成功！","/")
else
callalert("错误：发送失败！","javascript:window.history.back();")
endif
三、asp 怎么实现邮件发送功能,最好详细点,谢谢。
网上下载一个jMail的组件exe，然后在服务器上装上后，在asp文件中就能使用上述代码发送邮件了。记得把以下代码中=后的内容替换为你自己的东西就可以了。
jmail.From="Email From for Sender"'发件人的E-MAIL地址
jmail.MailServerUserName="UserName of Email"'登录邮件服务器所需的用户名
jmail.MailServerPassword="Password of Email"'登录邮件服务器所需的密码
jmail.Subject="Mail Subject"'邮件的标题
jmail.Body="Mail Body"'邮件的内容
jmail.Send("Server Address")'执行邮件发送（通过邮件服务器地址）
建议你将上述代码写为一个函数，这样使用更方便一些。