Ver Mensaje Individual
  #2 (permalink)  
Antiguo 08/08/2002, 08:54
dagui
 
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.