ASP中JMAIL发送邮件

在网上找了很多都不能用，后来经过修改终于可以发送邮件了。代码如下:

<%

'标题

s1="易搜友"

'EMAIL

s2="[email protected]"

' 内容

s3="易搜友内容"

sender="[email protected]" '发送邮箱,需要根据实际修改

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服务的