Hola
El problema del indy es que necesitas conocer el nombre de servidor de correo. Usando mailto usas la configuracion del cliente de correo y te olvidas.
Ahora mismo el codigo que uso es:
//Montar correo
ShellExecute (Handle, 'open',pchar('mailto:'+correo +'?Subject='+Asunto+'&Body='+CuerpoCorreo), nil, pchar(camino), 1);
//Simular combinacion de teclas "Alt+a"(archivo) y "e"(enviar)
KeybdInput(VK_MENU, 0); // Alt
KeybdInput(VkKeyScan('a'), 0); // a
KeybdInput(VkKeyScan('a'), KEYEVENTF_KEYUP); // a
KeybdInput(VK_MENU, KEYEVENTF_KEYUP); // Alt
KeybdInput(VkKeyScan('e'), 0); // e
KeybdInput(VkKeyScan('e'), KEYEVENTF_KEYUP); //e
SendInput(KeyInputCount, KeyInputs[0], SizeOf(KeyInputs[0]));
con keybdinput para cargar los arrays pero no funciona pues lo unico que consigo es escribir la letra e tras la direccion del destinatario
Codigo de
http://blog.csdn.net/safef8/archive/...24/266477.aspx
¿Podeis echarme una mano?