Envío de mails ASP sin pasar por el SMTP
Iepa!
En un servidor win2003 el SMTP (mercur) está muerto y no logramos levantarlo (parece que hay una movida de dns y rutas y parece que es infranqueable), con lo que optamos por "migrar" los mails a otro servidor que funciona canela.
A ese servidor "sin SMTP" apuntan algunos formularios y mediante AspEmail se generaban los mails y se enviaban. Al morir el SMTP pensamos en hacer que AspEmail mandara los mails a través del nuevo.
El problema: el nuevo servidor SMTP requiere autenticación en el envio y AspEmail, a pesar de que se le puede especificar cualquier servidor de salida, no soporta envios autenticados.
Ahora mismo estoy probando con CDONTS y CDOSYS, que son más o menos los que "por defecto" el iis lleva incorporados pero no acaban de funcionar parece que por una movida de permisos. Mientras acabo de ver si camina, ¿conocéis alguna alternativa de envio ASP ó .net (todo lo gratis que pueda ser) que permita el envio con autenticación a través de un servidor remoto?
A la pregunta "no sería más facil levantar el SMTP?" la respuesta a priori es no, a no ser que haya algún médico en la sala.
A la pregunta "odias el ASP, los servidores, el SMTP, las entradas MX y los DNS y acceder por terminal a una máquina que está en alemania" la respuesta es si, no hace falta pedir segundas opiniones.
Gracias!
xavib
Ale, a otra cosa mariposa. Dejo esto aquí para la posteridad.
<code>
<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "servidorsmtp.dominio.com"
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUsername) = "usuario"
.Item(cdoSendPassword) = "contraseña"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "CuentaDeEnvio@dominio.com"
.To = "CuentaQueRecibe@dominio.com"
.Subject = "Asunto"
.TextBody = "Mensaje"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%></code>