Can't send email !

Following the instruction in ASP development forum . i create

an ASP code to send to email from my computer as localhost

the code's as following
<%
Dim objMail, objMailConf
Set objMail = Server.CreateObject("CDO.Message")
Set objMailConf = Server.CreateObject("CDO.Configuration")
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/co...ation/sendusing") = 1
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/co...tion/smtpserver") = "http://localhost"
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/co...pickupdirectory") = "c:\inetpub\mailroot\pickup"
objMailConf.fields.Item("http://schemas.microsoft.com/cdo/co.../smtpserverport") = 25
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/co...nnectiontimeout") = 60
objMailConf.Fields.Update

Set objMail.Configuration = objMailConf
objMail.From = "from@yahoo.com"
objMail.To = "fts762004@yahoo.com"

objMail.Subject = "Hi!"
objMail.TextBody = "Hi there"
objMail.Fields.update
objMail.Send
Set objMail = Nothing
%>

After running code , there was no error but i cant receive any email
I come to check the C:\Inetpub\mailroot\Queue and saw them their .
One person there recommend me here to ask this problem .
Anyone can help me ?
Plz reply to me asap , thanks !

If you are still having problems try asking in the asp forum maybe.