Apertura client di posta. Solo finestra messaggio

[maxrome84]

Salve a tutti, ho questa macro che apre il client di posta predefinito del sistema (Thunderbird nel mio caso) e prepara una email con destinatario , allegato , titolo e corpo del messaggio già impostati.Funziona tutto benissimo, ma quando apre il client di posta, oltre alla finestra del messaggio pronto ad essere inviato apre anche l'interfaccia principale di thunderbird.
Io vorrei che aprisse solamente il messaggio da inviare.è possibile?
Ho visto che nel foglio di calc utilizzanto la funzione mailto fa esattamente questo, cioè apre solamente la finestra del messaggio.
Ho provato anche nelle impostazioni di thunderbird ma non mi sembra di aver trovato niente.
Grazie a tutti.




Sub email
Dim eMailer as object
Dim eMailClient as object
Dim eMailMessage as object


Email = prova@info.it
UltimoPdf = sommario.getcellbyposition(1,11).string

'creazione di servizio mail
eMailer = createUnoService( "com.sun.star.system.SystemMailProvider" )
eMailClient = eMailer.queryMailClient
eMailMessage = eMailClient.createMailMessage()
eMailMessage.Recipient = Email
eMailMessage.Subject = "prova"
eMailMessage.Body = "Salve."
eMailMessage.Attachement= Array("file:///C:/" & UltimoPdf & ".pdf" )
eMailClient.sendMailMessage(eMailMessage,0)
end sub