ASP中JMAIL发送邮件asp
在网上找了很多都不能用，后来经过修改终于可以发送邮件了。代码如下:
<%
'标题
s1="易搜友"
'EMAIL
s2="790281481@qq.com"
' 内容
s3="易搜友内容"
sender="790281481@qq.com" '发送邮箱,需要根据实际修...
在网上找了很多都不能用，后来经过修改终于可以发送邮件了。代码如下:
<%
'标题
s1="易搜友"
'EMAIL
s2="790281481@qq.com"
' 内容
s3="易搜友内容"
sender="790281481@qq.com" '发送邮箱,需要根据实际修改
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312" '发送编码
jmail.ContentType = "text/html"
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "790281481" '邮箱用户名,需要根据实际修改
Jmail.MailServerPassword = "****" '邮箱密码,需要根据实际修改
Jmail.From = sender
Jmail.Subject =s1
Jmail.AddRecipient s2
Jmail.Body=s3
Jmail.Send("smtp.qq.com:25") 'SMTP服务器,需要根据实际修改
response.write "发送成功"
Set Jmail=nothing
%>
注：QQ邮箱默认情况下是不提供SMTP服务的，需要进入QQ邮箱-账户-开启SMTP服务，这样才能收到邮件
QQ邮箱新注册的账号14天内是不能开通SMTP服务的
<%
'标题
s1="易搜友"
s2="790281481@qq.com"
' 内容
s3="易搜友内容"
sender="790281481@qq.com" '发送邮箱,需要根据实际修改
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312" '发送编码
jmail.ContentType = "text/html"
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "790281481" '邮箱用户名,需要根据实际修改
Jmail.MailServerPassword = "****" '邮箱密码,需要根据实际修改
Jmail.From = sender
Jmail.Subject =s1
Jmail.AddRecipient s2
Jmail.Body=s3
Jmail.Send("smtp.qq.com:25") 'SMTP服务器,需要根据实际修改
response.write "发送成功"
Set Jmail=nothing
%>
注：QQ邮箱默认情况下是不提供SMTP服务的，需要进入QQ邮箱-账户-开启SMTP服务，这样才能收到邮件
QQ邮箱新注册的账号14天内是不能开通SMTP服务的
上一篇：ASP操作XML
我要评论