Hace varios años que tengo una aplicación en vb6 que enviaba emails. Desde hace un tiempo, da error al enviar ( "Error en el transporte de datos"). He intentado con MAPI, CDO y vbsendmail, sin obtener éxito. Me gustaría saber si alguien consiguió solucionar el problema.
Les pongo aquí el código de mi último intento:
On Error GoTo SendMail_Error:
Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message
lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = sSmtpServer
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = iSmtpPort
lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = bSmtpSSL
lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
lobj_cdomsg.Configuration.Fields(cdoSendUserName) = sSmtpUser
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = sSmtpPword
lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30
lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
lobj_cdomsg.Configuration.Fields.Update
lobj_cdomsg.To = sTo
lobj_cdomsg.From = sFrom
lobj_cdomsg.Subject = sSubject
lobj_cdomsg.TextBody = sBody
If Trim$(sFilePath) <> vbNullString Then
lobj_cdomsg.AddAttachment (sFilePath)
End If
lobj_cdomsg.Send
Set lobj_cdomsg = Nothing
SendMail = "ok"
Exit Function
SendMail_Error:
SendMail = Err.Description
Todo lo que leo (y llevo meses investigando) siempre me lleva a que YA no se puede enviar por smtp desde vb6, por cuestiones de autenticación (SSL), y me gustaría saber si alguien se encontró con este problema. La idea de migrar a .NET no es posible con esta aplicación. También he probado a hacer una página en .NET sólo para enviar emails, y por parámetros, pasarle los datos, con este código:
x = ShellExecute(Me.hwnd, "Open", "https://mipaginaweb/enviarmail.aspx?DES=" & destino & " &ASU=" & Asunto & " &CUE=" & cuerpo & "", &O0, &O0, SW_NORMAL)
Pero no consigo poner retornos de carro, ni texto formateado...
¿Alguien puede darme una ayuda? Muchas gracias, por adelantado.