enviar emails

Peter
05 de Junio del 2004
Hola a todos, tengo en un programa un código para mandar emails, pero me da fallo por algún motivo, si alguien sabe la razón le agradecería que me contestara aquí o en mi dirección de correo electrónico ([email protected]). El código es el siguiente:
Dim Objmail
Set Objmail = CreateObject("cdonts.newmail")
Objmail.From = direccion_remitente
Objmail.subject = asunto
Objmail.to = direccion_destino
Objmail.body = cuerpo_del_mensaje
Objmail.send \'el fallo me da en esta linea

Gracias de antemano