Gracias.
Esto funciona bien.
La única cosa que falta y era importante respecto a Shellexecute, es la firma del usuario que envía el email, antes salía automáticamente y ahora no sale.
¿Sabes si es posible?.
Por cierto he tenido que bloquear la línea:
Código SQL
[-]Resultado := GetActiveObject(CLASS_OutlookApplication, nil, Unknown);
porque me da error al compilar y no se que unit necesito.