JMail：The message was undeliverable. All servers failed to receive the message

2009-05-05 02:01:02 705 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

BUCK电路的大信号模型与小信号模型推导推导开关电源信号模型的核心是将非线性开关过程线性化，常用。如需具体拓扑的推导细节，可进一步说明！阅读详情

JMail组建存在，但是始终发布出去。
代码如下：
email.asp 代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
if request("action")="send" then
MailtoAddress=request("MailtoAddress")
MailtoName=request("MailtoName")
Subject=request("Subject")
MailBody=request("MailBody")
MailFrom="liushaqiong213@163.com"
FromName="liushaqiong213"
Priority=3
MailServerUser="liushaqiong213@163.com"
MailServerPass="******" 'liushaqiong213@163.com邮箱的对应密码
MailDomain="163.com"
MailServer="mail.163.com"
response.Write(MailtoAddress)
response.Write("<br>")
response.Write(MailBody)
response.Write("<br>")
call SendMail(MailtoAddress,MailtoName,Subject,MailBody,MailFrom,FromName,MailServerUser,MailServerPass,MailDomain,MailServer)
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body><form action="email.asp" method="post">
<table width="600" align="center" bordercolordark="#FFFFFF" bordercolorlight="#0099FF" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="120" align="right"> 收信人地址：</td>
<td width="480">
<input type="text" name="MailtoAddress" />
<input type="hidden" name="action" value="send" /></td>
</tr>
<tr>
<td align="right"> 收信人名字：</td>
<td><input type="text" name="MailtoName" /></td>
</tr>
<tr>
<td align="right"> 主题：</td>
<td align="left"><input type="text" name="Subject" /></td>
</tr>
<tr>
<td align="right"> 信件内容：</td>
<td><label>
<textarea cols="50" rows="10" name="MailBody"></textarea>
</label></td>
</tr>
<tr>
<td colspan="2"> <input name="sendemail" type="submit" value="发送"/></td>
</tr>
</table>
</form>
</body>
</html>

func.asp 代码
<%
'函数名：SendMail
'作用：用Jmail组件发送邮件
'参数：MailtoAddress -----收信人信箱
' MailtoName -----收信人姓名
' Subject -----主题
' MailBody -----信件内容
' MailFrom -----发信人信箱
' FromName -----发信人姓名
' Priority -----信件优先级
' MailServerUser -----登陆邮箱用户名
' MailServerPass -----登陆邮箱密码
' MailDomain -----邮箱域名
' MailServer -----发件SMTP服务器
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,MailFrom,FromName,MailServerUser,MailServerPass,MailDomain,MailServer)
' on error resume next
Dim JMail,JMailstat
Set JMail=Server.CreateObject("JMail.Message")
if err then
err.clear
Response.Write "组件检测失败"
JMail.close()
Set JMail=nothing
exit function

end if
JMail.Charset="gb2312" '邮件字符集
JMail.silent=True '忽略错误
JMail.ContentType = "text/html" '邮件编码
JMail.AddRecipient MailtoAddress '收件人地址
JMail.ReturnReceipt = True '是否收条（验证中）
JMail.From = MailFrom '发件人邮箱
JMail.MailDomain=MailDomain '邮箱所在域名（验证中）
JMail.FromName = FromName '发件人姓名
JMail.MailServerUserName=MailServerUser '邮箱用户名
JMail.MailServerPassWord=MailServerPass '邮箱密码
JMail.Subject=Subject '邮件主题
JMail.Body=MailBody '邮件正文（纯文本格式）
'JMail.HMTLBody=MailBody '邮件正文（HTML格式）
JMail.Priority=1 '邮件等级，1为加急，3为普通，5为低级
JMailstat=JMail.Send(MailServer)
If JMailstat then
response.write "成功"
else
response.write "失败"
end if
Response.Write(JMail.ErrorMessage)
JMail.close()
Set JMail=nothing
End Function
%>

...全文