email can not send (error '8004020f')

[phuc2583]

I will try my best to send email(abc@nhatranglive,support@nhatranglive),but i can not sent it
i will try again another email address(phuc2583@gmail,[e-mail]), so it sent well,
This is my code to write to send email:
Senderfirstname=Request.Form("firstname")
SenderlastName=Request.Form("lastname")
SenderEmail=Request.Form("email")
SenderPhone=Request.Form("phone")
Sendercbxsubject=Request.Form("cbxsubject")
Sendertxtsubject=Request.Form("txtsubject")
Sendernote=Request.Form("note")

MailTo = "[e-mail],[e-mail] "
Information = "Information about guest - "
show= "Information about guest" & VbCrLf & VbCrLf
show= show& "1. Information about guest:" & VbCrLf
show= show& "First: " & Senderfirstname & VbCrLf
show= show& "Last Name: " & SenderlastName & VbCrLf
show= show& "Email: " & SenderEmail & VbCrLf
show= show& "Phone: " & SenderPhone & VbCrLf
show= show& "Subject: " & Sendercbxsubject & VbCrLf
show= show& "Subject Name: " & Sendertxtsubject & VbCrLf
show= show& "2. comment:" & VbCrLf
show= show& "Comment: " & Sendernote & VbCrLf
DIM oMail, Flds, oMailConfig
Set oMail = Server.CreateObject("CDO.Message")
Set oMailConfig = CreateObject("CDO.Configuration")
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oMailConfig.Fields.Update
Set oMail.Configuration = oMailConfig
oMail.From = SenderEmail
oMail.To = MailTo

oMail.Subject= Information
oMail.TextBody = show
oMail.Send
Set oMail = Nothing
Set oMailConfig = Nothing


please help me to do that

[idsanjeev]

Hi friends
Which means that the e-mail was rejected by the server for some reason. Here are some things you can try to alleviate the problem
(error '8004020f')