Ver Mensaje Individual
  #2  
Antiguo 15-06-2006
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Reputación: 22
ixMike Va por buen camino
Wink por si sirve

Hola,

Pues verás, eso ya lo he tenido que hacer, pero la verdad nunca he necesitado mandar el email a una lista de contactos, sino solo a uno. El código (bastante sencillo) lo saqué de Trucomanía (por si no lo conoces: www.q3.nu/trucomania).

Añade "ShellApi" a la uses y pon esta línea de código

Código Delphi [-]
ShellExecute(GetDesktopWindow,nil,pChar('mailto:'+'direccion@dominio.com'+'?subject=asunto'),nil,nil  ,SW_SHOWNORMAL);

Supongo que si quieres mandarlo a varias personas, pues donde escribes las direcciones tienes que escribirlas todas (separadas por puntocoma, creo).

Con esta línea se abre el programa de correo electrónico por defecto del sistema.

Espero que te sea de ayuda

Salu2
Responder Con Cita