I tried this piece of code it worked on Thunderbird 17.0 version in my network.
The code actually open Compose window
But does not sends the mail.
Is any addition code is required to send the mails
So I think there must one additional line of code after
Call Shell(strMozillaThunderbird , vbNormalFocus)
which does Send functionality