asp利用smtp发送信件不成,不知问题出在哪里阿(在线等待)
<%
sub sendmail( strFrom, strTo, strSubject, strBody )
dim mymail
set mymail = Server.CreateObject("SmtpMail.SmtpMail.1")
mymail.MailServer = "mail.strong.com"
mymail.From = fromWho
mymail.To = toWho
mymail.Subject = Subject
mymail.Body = Body
mymail.Send
set mymail = Nothing
end sub
strTo = Request.Form("toWho")
strFrom = Request.Form("fromWho")
strSubject = Request.Form("subject")
strBody = Request.Form("body")
if strTo <> "" then
sendMail strFrom, strTo, strSubject, strBody
end if
%>