Problemas con el mail

[molinero1]

He leído en varios hilos como enviar correo a varias direcciones, con documentos adjuntos, etc...
Yo lo que intento es simplemente mandar un correo con un poco de texto que tenga por ejemplo en un memo y nada mas, tan dificil es? las opciones q veo tienen muchas lineas de codigo, si alguien me pudiera ayudar, se agradece.

[defcon1_es]

Si no tienes que enviar ningun archivo adjunto, esto puede servirte:ShellExecute(GetDesktopWindow,nil,pChar('mailto:'+'direccion@dominio.com'+'?subject=asunto' ),nil,nil,SW_SHOWNORMAL);

Debes incluir la unidad ShellAPI en el uses de la unit.

Lo he sacado de este hilo: http://www.clubdelphi.com/foros/showthread.php?t=32756&highlight=mailto

[gulder]

hola señores del foro como andan

[B]defcon1_es esto lo que hace es utilizar o mostrarme desde outlook para enviar el mensaje pero en el caso que tenga que enviar un correo de manera que el usuario no se diera cuenta o que lo mande la aplicacion por si sola como seria, he probado y he buscado en el foro y siempre me carga outlook grasias de antemano gulder :confused:

[defcon1_es]

defcon1_es esto lo que hace es utilizar o mostrarme desde outlook para enviar el mensaje
Correcto. Lo que hace es usar el gestor de correo que tengas predeterminado.

pero en el caso que tenga que enviar un correo de manera que el usuario no se diera cuenta o que lo mande la aplicacion por si sola como seria
En este enlace tienes varios ejemplos con las librerias INDY:
http://www.indyproject.org/Sockets/Demos/index.aspx

[gulder]

gracias defcon1_es esoy bajando los examples salu2