Jmail发送邮件
我用Jmail组件发送邮件,代码如下,每次都发送失败,大家帮忙看一下哪出错了,不胜感激!
<%
'定义发送邮件的函数
Function Send_Email(smtpHost,smtpUser,smtpPass,mailTo,fromName,subject,content)
Set jmail=Server.CreateObject("JMAIL.Message")
jmail.silent=true
jmail.logging=true
jmail.Charset="gb2312"
jmail.contentType="text/html"
jmail.AddRecipient mailTo
jmail.From=smtpUser
jmail.FromName=fromName
jmail.Subject=sbuject
jmail.Body=content
jmail.Priority=1
jmail.MailServerUserName=smtpUser
jmail.MailServerPassword=smtpPass
If jmail.Send(smtpHost) Then
response.Write("邮件发送成功")
Else
Response.Write("发送失败")
End If
jmail.Close()
End Function
%>
<%
'接收输入内容
mailTo=Request.Form("mailTo")
subject=Request.Form("subject")
fromName=Request.Form("fromName")
content=Request.Form("content")
%>
<%
'定义服务器并发送
smtpHost="smtp.gmail.com"
smtpUser="xxxxx@gmail.com"
smtpPass="********"
Call Send_Email(smtpHost,smtpUser,smtpPass,mailTo,fromName,subject,content)
%>
每次结果都是“发送失败”