Delphi - Problemas con keybd_event

Estoy mandando un correo con shellexecute('mailto:') y consigo montar el correo pero no consigo enviarlo. He tratado de simular la pulsacion de alt+N para que se envie el mensaje pero lo consigo.

//Montar correo
shellexecute(handle,pchar('mailto:'+correo+'?subject:'+asunto+'?body:'+cuerpoMensaje));

//Simular teclas Alt+N para enviar

//Pulsar Alt
keybd_event(vk_menu,0,0,0);
//Pulsar N
keybd_event(VkKeyscan('N'),0,0,0);
//Soltar N
keybd_event(VkKeyscan('N'),0,0,keyeventf_keyup);
//Soltar Alt
keybd_event(vk_menu,0,0,keyeventf_keyup);

El resultado de todo esto es que el mensaje se queda en pantalla, es como si el Alt+N no funcionara o no se aplicara sobre la ventana del correo. ¿Se me olvido algo?

la instruccion keyeventf_keyup va en la 3er posicion

keybd_event(VkKeyscan('N'), 0, KEYEVENTF_KEYUP, 0)