Ver Mensaje Individual
  #8 (permalink)  
Antiguo 08/07/2005, 09:06
adaldv
 
Fecha de Ingreso: febrero-2005
Mensajes: 41
Antigüedad: 19 años, 2 meses
Puntos: 0
Pues yo lo corri en Wxp y despues en W2003 y no tuve ningun problema, ahorita el problema que tengo es que solo lo he probado con e-mail que estan dentro del domino que especifico. Hay alguna forma de enviar e-mail sin importar a que domino pertenezcan ALGO ASI COMO LO QUE HACE ESTE FORO CUANDO TE REGISTRAS. Te envia tu e-mail de subscripcion a cualquier cuenta (persona) de correo.

-----------------------------------------------------------------
<%
if (Request.Form()<>"") then
Dim Mail, Config
Set Mail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.midominio.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Mail.From = "[email protected]"
Mail.To = Request.Form("email")
Mail.Subject = Request.Form("asunto")
Mail.HTMLBody = Request.Form("mensaje")
Mail.Send()
Set Mail = Nothing
Response.Write("E-mail enviado correctamente")
else %>
<form name="formail" method="post" action="enviax.asp">
<table align="center" cellpadding="3" cellspacing="1">
<tr><td>Email: </td>
<td><input type="text" name="email" /></td> </tr>
<tr><td>Asunto: </td>
<td><input type="text" name="asunto" /></td> </tr>
<tr><td>Mensaje: </td>
<td><textarea name="mensaje"></textarea></td> </tr>
<tr><td colspan="2" align="center">
<input type="submit" value=" Enviar " name="ok"> </td> </tr>
</table>
</form>
<% end if %>
--------------------------------------------------------------------

El archivo debe llamarse enviax.asp