Mandar un correo

[bersekeer]

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?