webeasymail如何做在线发送？

[sumnny]

<%
sub sendmail( strTo,strFrom,username,strSubject,strBody )
dim mymail
Set objNewMail = Server.CreateObject("EasyMail.EMMail")
objNewMail.Receiver = strTo
objNewMail.FromMail = strFrom
objNewMail.FromName = username
objNewMail.Subject = strSubject
objNewMail.Text = strBody
on error resume next '## Ignore Errors
objNewMail.Send
set objNewMail = Nothing
end sub

strTo = Request.Form("toWho")
strFrom = Request.Form("fromWho")
username = Request.Form("username")
strSubject = Request.Form("subject")
strBody = Request.Form("body")

if strTo <> "" then
sendMail strTo,strFrom,username,strSubject,strBody
end if
%>
服务器上装了webeasymail，用上面的程序发不出mail去啊？
问题不知出在哪里？

[julyclyde]

你看看webeasymail的例子先

[sumnny]

看过他web目录下的asp文件，他是要先登陆生成id信息然后据此查找文件夹写文件的。但是我需要补登陆就可以发信，就像利用aspemail在线发送email一样。
查过他的SDK，但是写出来的东西不对:(

[skyarrow]

网络配置的不对？

[sumnny]

应该不是网络的问题吧

[sumnny]

哪位大哥写过这方面的例子啊,指教指教?

[sumnny]

服务器上装的是webeasymail阿，不想再装组件

[程式人生2000]

那就直接用aspemail写呀