Emails get stuck in the queue folder

I am having a problem sending email to a certain address, which gathers information from a web form(text, up to 2 attachments) . It seems to be having a doing the actual send. It creates the message but never does send it. I say that it creates the email because when check the mailroot\queue folder, all of my attempts are in there. I have no idea why it isn't sending as i am sending to and from the same email address!!! Below is the code I am using:

[HTML<%
SUB sendemail(fromwho, towho, subject, body)
dim objCDO
Dim objConf
Dim objFields
Const cdoSendusingPort=2
Set objCDO=server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "localhost"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "username"
.Item(cdoSendPassword) = "password"
.Update
End With
objCDO.From=fromwho
objCDO.To=toWho
objCDO.Subject=subject
objCDO.TextBody=body
objCDO.Send
END SUB

fromwho="test@test.com"
toWho="test@test.com"
Subject="WEBSITE FEEDBACK"
Body=TRIM(Request.Form("txtComment"))

If body<>"" THEN
sendemail fromWho, toWho, Subject, Body
'REDIRECT OPAGE - response.redirect "blah.htm"
END IF
'cleanup
Set ObjCDO=Nothing
%>[HTML]

If someone can give me a hand on what is preventing the email from completely sending that would be great. Thanks in advance

oobern

I don't use CDO myself.

Are you getting any bounce messages back to the sender's email?

Is your smtp server configured properly for relaying?