I have an app written in VB Express 2005 that automatically sends out an email when it first launches.
One version loads an .asp file through a Shell to send out the email and it works perfectly.
The other (and preferable) version sends out the email from the main VB program. This version works on my internal office network only.
When tested on PC’s outside of my network I get the error “-2147220973 The transport failed to connect to the server” when it gets to the email part of the code.
I’ve checked port 25 and the various pc’s and they’re open.
I’m using the ArgoSoft Pro mailing system on a 2000 server.
This is the code that’s the same for the VB and ASP versions.
Set objConfig = CreateObject("C DO.Configuratio n")
Set Fields = objConfig.Field s
With Fields
.Item(cdoSendUs ingMethod) = cdoSendUsingPor t
.Item(cdoSMTPSe rver) = myserverip
.Item(cdoSMTPSe rverPort) = 25
.Item(cdoSMTPCo nnectionTimeout ) = 10
.Item(cdoSMTPAu thenticate) = 1
.Item(cdoSendUs erName) = myusername
.Item(cdoSendPa ssword) = mypassword
.Update
End With
Set objMessage = CreateObject("C DO.Message")
Set objMessage.Conf iguration = objConfig
Any assitance would be most appreciated.
One version loads an .asp file through a Shell to send out the email and it works perfectly.
The other (and preferable) version sends out the email from the main VB program. This version works on my internal office network only.
When tested on PC’s outside of my network I get the error “-2147220973 The transport failed to connect to the server” when it gets to the email part of the code.
I’ve checked port 25 and the various pc’s and they’re open.
I’m using the ArgoSoft Pro mailing system on a 2000 server.
This is the code that’s the same for the VB and ASP versions.
Set objConfig = CreateObject("C DO.Configuratio n")
Set Fields = objConfig.Field s
With Fields
.Item(cdoSendUs ingMethod) = cdoSendUsingPor t
.Item(cdoSMTPSe rver) = myserverip
.Item(cdoSMTPSe rverPort) = 25
.Item(cdoSMTPCo nnectionTimeout ) = 10
.Item(cdoSMTPAu thenticate) = 1
.Item(cdoSendUs erName) = myusername
.Item(cdoSendPa ssword) = mypassword
.Update
End With
Set objMessage = CreateObject("C DO.Message")
Set objMessage.Conf iguration = objConfig
Any assitance would be most appreciated.