<%@ Language=VBScript %><%'阿江表单邮件 V1.0mailfoot="本邮件使用阿江 FormMail 发送" & vbcrlf & "下载 http://www.ajiang.net"'用来发送邮件的SMTP服务器mailserver="smtp.mail.yahoo.com.cn"'如果服务器需要SMTP身份验证则：'登录用户名mailserverloginname="[email protected]"'登录密码mailserverloginpass="398824579"'域名（如果你用“[email protected]”这样的用户名登录时，请指明domain.commailuserdomain="yahoo.com.cn"response.Write(mailserverloginname&"
")%>


<%'获取表单数据fromname=Request.Form("fromname")frommail=Request.Form("frommail")toname=Request.Form("toname")tomail=Request.Form("tomail")mailtitle=Request.Form("mailtitle")mailbody=Request.Form("mailbody")'检查是否填写了表单if tomail="" then%> " method=post> <%elseif frommail="" thenmsg="您必须填写您的邮件地址，才可以发信给别人。"else'=============== 发 信 ================dim JMailset JMail=server.CreateObject("Jmail.message") JMail.Silent=trueJMail.Charset = "gb2312" JMail.FromName = fromname JMail.from = frommail JMail.AddRecipient tomail,tonameJMail.Subject = mailtitle jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot JMail.MailServerUserName = mailserverloginname JMail.MailServerPassWord = mailserverloginpass JMail.MailDomain = mailuserdomain sendok=JMail.send(mailserver)if sendok thenmsg="已经成功发送了邮件！"elsemsg="发送邮件失败，可能是您填写了错误的邮件地址。
" & _"如果您确信没有写错邮件地址，则可能是发信程序出了
" & _"故障，请与管理员联系"end ifend if%> <%end if%>

发信人姓名:
发信人信箱:
收信人姓名:
收信人信箱:
信件主题:　
信件内容:
　　　　　　




<%=msg%>
[返回]



代码没问题，你换成网易邮箱试试，可能是雅虎的事。