asp邮件发送代码

来源：百度知道编辑：UC知道时间：2024/05/24 06:13:52

自动发送处理代码：
<%
Dim MailObject
Response.Write "正在发送邮件......<BR>"
Mailto = Request("Mailto")
Mailfrom = Request("Mailfrom")
Mailsubject = Request("Mailsubject")
Mailbody = Request("Mailbody")
Mailfile = Request("Mailfile")

Set MailObject = Server.CreateObject("CDONTS.NewMail")
'收信人地址
MailObject.To = Mailto
'发信人地址
MailObject.From = Mailfrom
'信件标题
MailObject.Subject = Mailsubject
'信件内容
MailObject.Body = Mailbody
'附件地址
MailObject.AttachFile Mailfile
'开始发送邮件
MailObject.Send
Set MailObject = Nothing
Response.Write "邮件发送成功了"
%>
运行的时候会报错，
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串，
即Set MailObject = Server.CreateObject("CDONTS.NewMail")这句有问题，
不知道如何修改才可以实现邮件的自动发送功能，
我所用的系统是XP的，
并且已经安装IIS（SMTP也安装了）

微软自带CDONTS组件发送核心代码：

<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立邮件对象
cdomail.Subject = "Mail Subject" '邮件标题
cdomail.From = "Sender's Mail" '发件人的地址
cdomail.To = "Email will from" '收件人的地址
cdomail.Body = "Mail Body" '邮件的内容
cdomail.Send '执行发送
%>

Jmail程序调用：

<%
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'Email : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'Fromer : 发件人的邮件地址

Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html

asp邮件发送代码求ASP在线发送邮件代码 ASP发送邮件 asp发送邮件问题 asp 发送邮件如何实现ASP邮件发送 asp通过变量发送邮件 asp.net实现发送邮件 ASP求助！怎么做一不使用组件的邮件发送程序？请问原理和代码是什么？ asp.net如何定时发送邮件