当前位置:去回答>百科问答>如何用ASP发送邮件

如何用ASP发送邮件

2024-10-02 20:19:51 编辑:join 浏览量:529

如何用ASP发送邮件

用ASP发送邮件方法:

首先

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

%>

一切搞定

不用安装也可以,看下面,使用方式最下面

可以通过Jmail组件发送邮件.

首先要在WEB服务器安装JMAIL组件.

下面是一个对象实例,可以通过call SendMail (receive)的方法来调用发送邮件

<%

Sub SendMail(receive)

On Error Resume Next

Set jmail = Server.CreateObject("JMAIL.Message")

jmail.silent = false '屏蔽例外错误,返回FALSE跟TRUE两值

jmail.logging = true '启用邮件日志

jmail.Charset = "gb2312" '

jmail.AddRecipient receive '邮件收件人的地址

jmail.From = "admin@XXX.com.cn" '发件人的E-MAIL地址

jmail.FromName = "主题" '发件人名

jmail.MailServerUserName = "admin" '邮箱用户名

jmail.MailServerPassword = "xxx" '邮箱密码

jmail.Subject = "Message" '邮件主题

jmail.Body = "body" '邮件内容

jmail.Priority = 3 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值

mailserver="smtp.xxx.net" '发件服务器

jmail.Send(mailserver) '执行邮件发送(通过邮件服务器地址)

If Err.Number<>0 then

sendMsg="发送失败!"

Else

sendMsg="已发送!"

End If

Response.Write(sendMsg)

jmail.Close()

set jmail=nothing

end sub

%>

jmail 组件可以网上下载

标签:ASP,邮件,发送

版权声明:文章由 去回答 整理收集,来源于互联网或者用户投稿,如有侵权,请联系我们,我们会立即处理。如转载请保留本文链接:https://www.quhuida.com/answer/284193.html
热门文章