ASP程序里面有发邮件的代码,怎么才能让这段代码实现呢？ASP程序里面有发邮件的代码,怎么才能让这段代码实现呢？ASP程序里面有发邮件的代码 复制内容到剪贴板 代码:<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="info@***.com"
myMail.To=info@yyy.com
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
Response.Write("mail accessful。")
%>
但是
我应该在系统中怎么设置 才能让这段代码能运行呢？ 现在总是报500错误哦。。。
我查了好像应该是 开启一个dll文件之类的，但是好像也是不好用。。
我看iis7中有一个 “smtp电子邮件” 在这里设置的吗？
regsvr32 cdosys.dll 我执行了这句话 好像也不行。。。
最新回复
具体步骤
方法一：用 CDONTS 组件发邮件。
代码示例：
<%
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "from@domain.com" ’发信人的信箱地址，必选
MyMail.To = "to@domain.com" ’收信人的信箱地址，必选
MyMail.Subject = "您好！" ’邮件主题，必选
’邮件内容，必选，可以用 Request.Form 方法获取表单提交数据作为邮件内容
MyMail.Body = "希望交流一下"
MyMail.MailFormat = 1 ’邮件的格式，可选，0是MIME格式，1是文本消息
’邮件的正文的格式，可选，0表示HTML格式，1表示普通文本
MyMail.BodyFormat = 0
’邮件的重要性，可选，0表示低重要性，1表示普通，2表示高重要
MyMail.Importance = 1
’附件绝对路径，可选，可以用 Request.Form 方法获取表单提交数据作为附件路径
MyMail.AttachFile ("D:\myphotos\1.jpg")
MyMail.Send
Set MyMail = Nothing
%>
方法二：通过 Jmail 组件发送邮件。
<%
’创建 Jmail 对象
Set MyMail = Server.CreateObject("JMAIL.SMTPMail")
MyMail.silent = true’JMAIL不会抛出意外错误，返回值为 false 或 true
MyMail.logging = true ’启用使用日志
MyMail.Charset = "GB2312" ’设置邮件文字编码为简体中文
MyMail.ContentType = "text/html" ’设置邮件的内容类型为 HTML
MyMail.ServerAddress = "mail.domain.com" ’发送邮件的服务器
MyMail.AddRecipient "to@domain.com" ’邮件接收人的 Email 地址
MyMail.SenderName = "Xmercy" ’邮件发送者的姓名
MyMail.Sender = "from@domain.com" ’邮件发送者的 Email 地址
MyMail.Priority = 3 ’邮件的紧急程序，1 最快，5 最慢， 默认为 3
MyMail.Subject = "您好！" ’邮件的主题
MyMail.Body = "希望交流一下。" ’邮件的内容
MyMail.AddRecipientBCC "bcc@domain.com" ’密件收件人的 Email 地址
MyMail.AddRecipientCC "cc@domain.com" ’邮件抄送者的 Email 地址
MyMail.Execute() ’发送邮件
MyMail.Close
%>
注意：使用CDONTS或Jmail组件前必须先确认服务器是否支持该组件。
特别提示
如果服务器不支持发邮件的组件，将显示Server.CreateObject失败的错误信息