请教高手:(急急急)留言表单内容提交后发到email里收不到是什么回事啊?

[junoy]

<%
Function SendMail(strUserEmail, strMyEmail, strTopic, strMailBody)
On Error Resume Next

Dim objCDOMail

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
If Not IsObject(objCDOMail) Then
SendMail = Err.Description
Exit Function
End If

objCDOMail.From = strUserEmail
objCDOMail.To = strMyEmail
objCDOMail.Subject = strTopic
objCDOMail.Body = strMailBody
objCDOMail.BodyFormat = 0



Err.Clear

objCDOMail.Send

If Err Then
SendMail = Err.Description
Else
SendMail = "OK"
End If

Set objCDOMail = Nothing
End Function



mailbody="wqfdsafsafsaf"
topic="您好啊junoy"
useremail="[e-mail]"
myemail="[e-mail]"

Dim strRet
strRet = SendMail(useremail,myemail,topic,mailbody)



if strRet <> "OK" then
Response.Write("<script>alert('发送邮件时出错，出错信息：" & chr(10) & chr(13) & Err.Description & "');")
Response.Write("history.back();</script>")
end if

Response.Write("<script>alert('成功将您反馈的信息发送到我们公司的Email邮箱中!!!');location='fwrxa.asp';</script>")
%>

[junoy]

好的,谢谢您,大哥,我马上试一下

[junoy]

我已经把原来的代码改成这样,好像还是收不到,请各位高手帮个忙检测一下,如果行的话马上回小弟,在这里先谢啦,如果有什么需要到我的话尽管出声,呵呵~~

<%
On Error Resume Next
Dim email
set email=server.CreateObject("cdonts.newmail")
If Not IsObject(email) Then
SendMail = Err.Description

End If
email.BodyFormat =1 'HTML格式，如果是纯文本则是1
email.MailFormat =0
email.From="[e-mail]"
email.To ="[e-mail]"
email.Subject ="您好啊junoy"
email.Body="wqfdsafsafsaf"
email.Send

If Err Then
SendMail = Err.Description
Else
SendMail = "OK"
End If
Set email = Nothing

if SendMail <> "OK" then
Response.Write("<script>alert('发送邮件时出错，出错信息：" & chr(10) & chr(13) & SendMail & "');")
Response.Write("history.back();</script>")
end if

Response.Write("<script>alert('成功将您反馈的信息发送到我们公司的Email邮箱中!!!');location='fwrxa.asp';</script>")
%>

[dw2003]

我也是发到网易就可收到，但新浪就就收不到，纳闷中，，，，，，，，

[不老书生]

set email=server.CreateObject("cdonts.newmail")
email.BodyFormat =0 'HTML格式，如果是纯文本则是1
email.MailFormat =0
email.From="[e-mail]"
email.To ="[e-mail]"
email.Subject =request("title")
email.Body=request("content")
email.Send

你先不用function,直接用上面程序发一封试试，行的话再继续调function