
24/12/2003, 07:41
|
| | Fecha de Ingreso: febrero-2002
Mensajes: 157
Antigüedad: 23 años, 2 meses Puntos: 0 | |
Me imagino que este codigo has de tener, bueno el problema del cual hablas puede ser un problema de configuracion del servidor de correo, debes verificar si esta configurado el servidor para envios de correos al exterior de la red, sino debes darle esa opcion, para saber eso verifica si puedes sacar un correo hacia afuera enviandolo desde outlook o webmail(dependiendo de lo que tengas para enviar correos), si por alguna de estas vias no te deja sacar correos, es problema de configuracion de tu servidor, de no ser asi, verifica tu codigo para envio de correos y que el smtp que colocas este bien....
suerte.
smtp="ip del servidor o nombre"
nombre = rs.fields(3)
email = rs.fields(4)
emailusu = rs.fields(2)
Set Mailer=Server.CreateObject("SMTPsvg.Mailer")
'Mailer.FromName= "TU SITIO"
Mailer.FromAddress= emailusu
Mailer.RemoteHost = smtp
Mailer.AddRecipient nombre,email
Mailer.Subject= "PRUEBA DE CORREO"
Mailer.ContentType="text/html"
Mailer.Bodytext=texto
If Mailer.sendMail then
'response.write "ENVIANDO CORREO"
'Response.end
Else
response.write "Error: <BR>" & mailer.response
Response.Write "PROBLEMAS DE ENVÍO"
'Response.end
End if
Set Mailer=nothing |