Windows Server 2003 - Error de Transporte en la conexión al servidor

   
Vista:

Error de Transporte en la conexión al servidor

Publicado por Roberto robpar@movistar.es (2 intervenciones) el 20/11/2012 16:00:33
Hola.

He logrado solucionar el tema de "Error de Transporte en la conexión al servidor" al enviar e-mails desde nuestra pagina con el componente CDOSYS.

El problema radica en si usamos ó no conexion segura SSL. Me explico.

Si ponemos un codigo semejante a este:
<%
Dim remitente,destinatario,asunto,cuerpo
remitente=request.form("remitente")
destinatario=request.form("destinatario")
asunto=request.form("asunto")
cuerpo=request.form("cuerpo")

Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message")

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="servidor.ejemplo.com" 'servidor SMTP
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
etc........

ObjSendMail.To = destinatario
ObjSendMail.Subject = asunto
ObjSendMail.From = remitente
ObjSendMail.TextBody = cuerpo
ObjSendMail.Send
Set ObjSendMail = Nothing
%>

Deberemos ver si la cuenta de correo que tenemos habilitada usa ó no conexion segura SSL.

Si no os funciona probad cambiando estas dos lineas:
ObjSendMail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 'puerto de servidor SMTP
ObjSendMail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

Tengo hecho un ejemplo completo hecho y programado y os aseguro que a mi me está funcionando con calquier proveedor de internet(ono, movistar,jazztel,etc....).
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error de Transporte en la conexión al servidor

Publicado por Edgar Acosta aeguita@gmail.com (2 intervenciones) el 27/05/2016 14:32:18
Yo tengo un problema mas grave:

.- Tengo varias aplicaciones que envían correos de forma automática, pero en mi red en los servidores Windows 2003, me da el error de Transporte de conexión el Servidor.

.- El Código fuente es similar al que esta descrito por Roberto.
.- En la red tengo instalado ISA Server y el antivirus Eset Internet Security.
.- Los puertos 25, 465 y 587 están libres. Ya lo probé con un Telnet.
.- Configuro la cuenta de correo con el Outlook del servidor y si envía correos.
.- Mis aplicaciones están en visual basic .net 2003 y 2005. Usan la dll cdosys.dll.
.- Pruebo mis aplicaciones con la misma configuración en otros equipos de la red y funciona perfectamente.
.- El detalle esta en que necesito ejecutarlas en el servidor.

Me gustaría saber si alguien a tenido algún problema similar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error de Transporte en la conexión al servidor

Publicado por Roberto (2 intervenciones) el 28/05/2016 12:36:46
Si me facilitas el codigo podría mirar lo que pasa y te podría facilitar el codigo que yo tengo programado que me funciona a las mil maravillas sin ningun tipo de problema.

Un saludo.

Roberto
robpar@movistar.es
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error de Transporte en la conexión al servidor

Publicado por Juan (1 intervención) el 09/06/2016 01:44:42
Hola Roberto,
Tengo el mismo problema de error de transporte, si tienes la solución se te agradecería, el código es el siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Set objMessage = CreateObject("CDO.Message")
 
'Const SMTPSSL = True
'Monitoreo de error
On Error Resume Next
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =  "smtp.office365.com"
 
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") =  "prueba@dominio.com"
 
'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") =  "Prueba1"
 
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  587
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'SMTPSSL

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
objMessage.Configuration.Fields.Update
 
 
objMessage.Subject = "Correo prueba office365"
objMessage.From = "prueba@dominio.com"
objMessage.To = "juan@dominio.com"
objMessage.Bcc = ""
objMessage.TextBody = "correo prueba"
 
objMessage.Send
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error de Transporte en la conexión al servidor

Publicado por Edgar Acosta (2 intervenciones) el 12/08/2016 23:11:09
Este el código que yo utilizo, presento el problema que explique anteriormente con los servidores 2003 de mi red, en las demas estaciones funciona bien:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim mailMsg As New MailMessage
 
with mailMsg
	.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= "465"
	.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtsperver")= "smtp.gmail.com"
	.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= "2"
	.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= "1"
 
	.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")= "1"
 
	.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")= "micorreo@gmail.com"
	.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "miclave"
 
	.From = "pedroinfante@gmail.com"
 
 
        .To = "joseperez@gmail.com"
	.Subject = "Correo de Prueba"
	.Body = "Prueba de correo"
End With
 
SmtpMail.SmtpServer = "smtp.gmail.com"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar