Email automatico con Thunderbird (Solucionado)

[hmpaquito]

Hola a todos,

Intento enviar emails, sobre unos 150 de golpe, con Cdosys me falla y ademas no deja rastro en la bandeja de enviados de Thunderbird.
La idea es que el usuario no tenga que pulsar 150 clicks, esperando como los mails, uno a uno, van saliendo. Intento hackear el archivo de la bandeja de salida de Thunderbird y tiene un formato de lo mas complicado, Mork. Hackearlo hubiera sido lo suyo para asi subir todos los emails y luego desde la bandeja de salida darle a enviar una sola vez.


Ahora estoy pensando en captura el hWnd de ThunderBird y enviarle el Control+ Shift+ Enter para que lo lleve a bandeja salida y asi enviarlos todos de golpe y no tener que esperar.

Seria algo asi:

hWnd:= FindWindow(0, "Escribir el_asunto_email - Thunderbird"
Sendkey(hWnd, VK_CONTROL)
SendKey(hWnd, VK_SHIFT)
Sendkey(hWnd, VK_ENTER)

Pero me falla en los Sendkey(). Alguna pista ?

Gracias