<%
Set miMensaje=CreateObject("CDO.Message")
miMensaje.Subject="Prueba de envío con CDO"
miMensaje.From="
[email protected]"
miMensaje.To="
[email protected]"
miMensaje.TextBody="Esto es el mensaje."
miMensaje.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Nombre o Dirección IP del servidor SMTP remoto
miMensaje.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.gmail.com"
'¿supongo que asi se escribiria el nombre de servidor remoto?
'Puerto del servidor
miMensaje.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
miMensaje.Configuration.Fields.Update
miMensaje.Send
set miMensaje =nothing
%>
Con este codigo me da el siguiente error: HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
Información técnica (para personal de soporte técnico)
* Tipo de error:
(0x8004020E)
No se puede modificar o suprimir un objeto que fue añadido usando el SDK Admin COM+
/CDOSYSemail/cdosys_email_conServidorRemoto.asp, línea 25