成都网站建设|域名注册|虚拟主机|网站制作|网站案例|网站优化|网站推广|企业邮局|服务器租用|广告设计
要确认服务器是否安装jmail组件。
本文介绍使用ASP来发送邮件,使用JMail组件,具体代码如下:
'=============== 发 信 ================
dim JMail set JMail=server.CreateObject("Jmail.message") JMail.Silent=true JMail.Charset = "gb2312" JMail.FromName = fromname JMail.from = frommail JMail.AddRecipient tomail,toname JMail.Subject = mailtitle jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot JMail.MailServerUserName = mailserverloginname JMail.MailServerPassWord = mailserverloginpass JMail.MailDomain = mailuserdomain sendok=JMail.send(mailserver) if sendok then msg="已经成功发送了邮件!" else msg="发送邮件失败,可能是您填写了错误的邮件地址。<br>" & _ "如果您确信没有写错邮件地址,则可能是发信程序出了<br>" & _ "故障,请与管理员联系" end if