[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 484
  • Last Modified:

Problem with cdo message

I have a web site in which i have to send email to the users and coresponding fax to the clients.I am using the cdo meesage to send email and using the third party Interfax.net to send the faxes.But When I am sending I am able to send the email and  later I am getting this message
CDO.Message.1 error '80040213'
The transport failed to connect to the server.

I am not able to understand whom do I need to call the Web hosting people or the interfax.net.
What will be the problem
This is urgent Please reply me immedialtely
My cdo had first email code and then the fax code

0
siru2803
Asked:
siru2803
  • 5
  • 4
  • 4
1 Solution
 
Irwin SantosComputer Integration SpecialistCommented:
you need to put a valid SMTP address and if required...correct authentication
0
 
siru2803Author Commented:
How to keep the correct authentication
0
 
siru2803Author Commented:
My code is this
SUB sendmail( fromWho, toWho, Subject, Body )
Dim objCDO
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
            .Item(cdoSendUsingMethod) = cdoSendUsingPort
            .Item(cdoSMTPServer) = "mail-fwd"
            .Item(cdoSMTPServerPort) = 25
            .Item(cdoSMTPconnectiontimeout) = 10
            .Update
End With

Set objCDO.Configuration = iConf
objCDO.From = fromWho
objCDO.To = toWho
objCDO.Subject = Subject
objCDO.htmlBody = Body
objCDO.Send
END SUB %>
<%set rsemail=server.CreateObject("adodb.recordset")
     rsemail.Open "select Emailaddress from tbl_Customerdetails where customerid="&custid&"",con,3,3
     useremail=rsemail("emailaddress")
     rsemail.Close
     set rsemail=nothing
fromWho = "contact@kansascitytogo.com"
toWho = useremail
Subject = "KansasCitytogo Order Message status "
Body = strbody3
If toWho <> "" THEN
sendMail fromWho, toWho, Subject, Body
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
END IF
toWho="+19135386320@fax.tc"
Subject = "KansasCitytogo Order Message status"
Body = takeoutbody3
If toWho <> "" THEN
sendMail fromWho, toWho, Subject, Body
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
END IF%>
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
kevp75Commented:
your problem is here:
  .Item(cdoSMTPServer) = "mail-fwd"

you need to specify the SMTP server, for example:
  .Item(cdoSMTPServer) = "SMTPserver.yourdomain.com"
0
 
siru2803Author Commented:
I am hosting with verio.com and in that site they gave this code to me
0
 
kevp75Commented:
ok....don't do what anyone here suggests, as it will be wrong, your host obviously knows best, because the code they gave you works right?  

That being the case, then I'm confused, why did you ask this question, because their code obliviously works?

open your eyes and take a suggestion!

find out what your SMTP server is, and put it where I showed you.  If you are unwilling to do that, than go pay someone to debug your stuff for you...everything in that snippet of code you posted is correct, except the line I specified, and the change to it I specified
0
 
Irwin SantosComputer Integration SpecialistCommented:
@siru2803...is mail-fwd defined someplace else? If so, what is it?  As in my first comment and detailed in kevp75's code we're pointing you to a valid SMTP address
0
 
siru2803Author Commented:
I found out the problem . .Item(cdoSMTPconnectiontimeout) = 10
 was less So now I increased the time and it is working fine.
0
 
Irwin SantosComputer Integration SpecialistCommented:
cool.. glad that worked out for you.

thank you
0
 
kevp75Commented:
you could've requested to get the question closed instead of accepting the wrong answer.

Because it looks like you accepted an answer I answered first, and that shows me and most other people to stay away from answereing your questions in the future.

see here if you need to get the question deleted (as you answered your own question)  http://www.experts-exchange.com/Community_Support/
0
 
siru2803Author Commented:
Hi,
Thank you for your suggestions .I will request the community support to close .I did not know that SO i just accepted.Now can I ask the community support  change the accepted answer
0
 
kevp75Commented:
you can.  I think what they end up doing is un-accepting, posting a note, and then closing it.   Some times you can even get your points refunded.

You just ask a question in the support section, just like you would anywhere else on the site.

@the mods.....I have no objections
0
 
Irwin SantosComputer Integration SpecialistCommented:
i have no problems with this....I blindly said thank you.. as I quickly respond to 50+ q's today. and kevp75 is right..
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 5
  • 4
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now