Après pas mal de recherches sur différents forums, je n'ai pas trouvé l'ultime étape : l'envoi automatique du message depuis Calc (OpenOffice 4.1.4) et thunderbird 52.5.2
par macro (compte Orange configuré dans thunderbird).Actuellement, la macro ouvre thunderbird et me présente le message tel que je l'ai préparé.
Il me reste à appuyer sur "Envoi" pour que le message soit émis.
C'est cette dernière étape que je voudrais automatiser ! et là je coince ;-(
Est-ce possible ? (depuis un compte Orange)
Si oui qu'est-ce qui manque à ma macro ?
Ou est-ce un problème de configuration de thunderbird ?
Merci pour votre aide.
Geronimo
Voilà le code de la macro :
sub mail_thunderbird
Dim Sujet as String, Corps as String, Des as String, ligne as String, LigneDeCommande as String
Dim oFichier as string, Fichier as String 'Utilisée pour un fichier
oFichier="file:///c:/Pointage_3.ods"
Sujet = "Pointage"
Corps = "Bonjour"
Des = "mon_nom@mon_fai"
ligne = "-compose body=" & Corps & ",subject=" & Sujet &_
",to=" & Des & ",attachment=" & oFichier
LigneDeCommande = "-mail -compose body=" & Corps
LigneDeCommande = LigneDeCommande & ",subject=" & Sujet
LigneDeCommande = LigneDeCommande & ",to=" & Des
Fichier="file:///C:/Documents and Settings/...../Bureau/essai.odt"
LigneDeCommande = LigneDeCommande & ",attachment=" & Fichier
' msgbox("LigneDeCommande" & LigneDeCommande)
call shell(ConvertToURL("C:\Program Files\Mozilla Thunderbird\thunderbird.exe"),0, LigneDeCommande)
End Sub
