tomchat este es el codigo que me funciona super bien..... yo uso mi servidor externo SMTP que tengo configurado por Outlook ..... solo debes cambiar el nombre del server y los parametros que tengo como xxxxxx y aaaaaa... el resto no cambies nada.
El parametro 2 indica que es server remoto smtp.. para local se usa 1.... pero aca hay que configurar todo el smtp en la maquina y no es necesario para mandar emails como quieres... yo lo uso asi y funciona
este es
<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
dim cdoMessage, cdoConfig
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "tuserversmtp"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "
[email protected]"
.To = "
[email protected]"
.Subject = "Prueba"
.TextBody = "Este es un mensaje de prueba"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Espero te resulte