
08/08/2002, 08:54
|
| | Fecha de Ingreso: julio-2002
Mensajes: 219
Antigüedad: 22 años, 10 meses Puntos: 0 | |
Re: Chica En Apuros :( Hola.
Te coloco una función que hice para enviar correos con ASP.
A mi me funciona bien.
function enviarCorreo(dirDe, dirPara, titulo, cuerpo)
'Declaración de variables a usar
Dim OBJ_EMAIL
'Creación del objeto para enviar el correo
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From = dirOrigen 'No hace falta especificar un email valido
OBJ_EMAIL.To = dirDestino
OBJ_EMAIL.Subject = titulo
OBJ_EMAIL.Body =cuerpo ' Cuerpo del mensaje
OBJ_EMAIL.Send 'Envia el mail
'Cierra el Objeto
Set OBJ_EMAIL = Nothing
end function
Suerte. |