Utilisation de SendObject avec Mozilla

Bonjour

Avec Mozilla Thunderbird, je n'ai pas le problème que tu soulèves en
m'inspirant de l'exemple fourni dans l'aide.

Sub xx()
DoCmd.SendObject acSendTable, "Buveur", acFormatXLS, _
"xyz.abcd@free.fr", , , _
"Feuille de calcul Buveur", , False
End Sub

Par contre, l'avertissement de la réception n'est pas immédiat. La pièce
jointe apparait avec l'extension .tmp

Je ne parviens à utiliser l'instruction SendObject avec le gestionnaire de
messagerie Mozilla. La zône "destinataire" n'est pas remplie.
Je ne peux donc pas envoyer de message électronique depuis access.
SendObject fonctionne en revanche parfaitement avec Outlook Express.
Y-at-il un moyen pour résoudre ce problème ? En utilisant une autre
instruction par exemple ?
Merci par avance pour votre assistance.

--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Ci-après la solution que j'ai trouvée et qui marche chez moi.
Elle résoud le problème du nom du destinataire qui n'est pas transmis à
Mozilla avec SendObject.

On crée une procédure envoiMail que l'on place dans un module.

Sub envoiMail(leDestinataire As String, Objet As String, leMessage As
String)
'ouvre la fenêtre de Mozilla de composition d'un message
appel = Shell("C:Program Filesmozilla.orgMozillamozilla.exe -compose",
1)

' permet d'attendre que Mozilla soit chargé pour pouvoir recevoir les
SendKeys
' adapter le nombre de secondes en fonction de la vitesse de chargement de
Mozilla

Attendre (2)
AppActivate appel
SendKeys leDestinataire, True
SendKeys "%S", True
SendKeys Objet, True
SendKeys "{TAB}", True
SendKeys leMessage, True
SendKeys "%F", True
SendKeys "V", True
End Sub

Sub Attendre(Secondes As Integer)
Dim Début As Long, Fin As Long, Chrono As Long
Début = Timer
Fin = Début + Secondes
Do Until Timer >= Fin
DoEvents
Loop
End Sub

Pour utiliser la procédure envoiMail :

Dim lemail, lobjet, monmessage as String
lemail = "monnom@......."
lobjet = "......"
monmessage="...."
Call envoiMail(lemail, lobjet, monmessage)

Merci à ceux qui m'ont fourni quelques pistes pour écrire ces ligne.