enviar emails
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
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
