Bonjour,
 
Mon besoin de base est le suivant : j'ai besoin d'être prévenu lorsqu'un fichier situé sur un lecteur réseau est modifié par qq'un dans le but de publier le fichier ailleurs. Pour me prévenir, j'ai pensé à faire envoyer un mail via Excel. Ma contrainte est que je ne peux rien installer sur mon poste ou le poste des utilisateurs. Les seules solutions possible sont parmi les suivantes :
- installer dans le fichier excel une librairie d'envoi de mail,
- utiliser thunderbird en ligne de comamnde,
- utiliser une fonction d'excel que je ne n'aurais pas encore trouver.
 
Concernant la solution thunderbird, j'ai essayé avec ce style de ligne de commande, mais ça n'envoie pas le mail J'ai essayé ces différentes solutions :

 
avec l'option -compose, ça m'ouvre thunderbird, le corps du mail n'est pas renseigné, mais de toute façon, ça n'envoie pas le mail, ça le prépare juste... Je suis en thunderbird 3.05.
 
Merci.

http://www.rondebruin.nl/sendmail.htm
 
ça peut t'aider...

à priori ce serai ça en VBA :
 
 
ActiveWorkbook.FollowHyperlink "mailto:" & "****@*****.***" & "?" & "cc=" & "****@*****.***" & "&Subject=" & "le sujet" "&Body=" &
"le message, malheureusement très limité"
 
 le message ne doit pas comporter plus de quelques centaines de caractères !

 
J'avais déjà vu cette page mais je ne peux ni utiliser outlook ni la fonction sendmail car la commande application.mailsystem renvoie 0 (pas de client mail installé, en tout cas pas défini comme tel dans le système bien que j'ai thunderbird et pas la version portable).

 
Comprends pas, ça m'ouvre thunderbird, mais le mail n'est pas envoyé automatiquement et le corps du message n'apparaît pas

regarde ça, un ancien sujet sur un autre site, et ya deux liens qui devraient t'intéressé ....
 
http://www.developpez.net/...
 
http://kb.mozillazine.org/Command_ [...] underbird)
 
Code :
Sub envoi_mails()
 
destinataire = mail
sujet = "Salut!"
 
body = "Comment ca va ?"
fichierjoint = fichier
 
strCommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strCommand = strCommand & " -compose " & "mailto:" & destinataire & "?"
strCommand = strCommand & "&" & "subject=" & sujet & "&"
strCommand = strCommand & "body=" & body & "&"
strCommand = strCommand & "attachment=" & fichierjoint
 
Call Shell(strCommand, vbNormalFocus)
 
End Sub

le premier lien marche pas, mais bon, vue al structure, c'est logique. Le 2ième lien, je connais, j'ai testé mais comme dit dans mon premier post, je n'arrive pas à faire en sorte que le mail soit envoyé.
 
Le bout de code en VBA, je l'avais trouvé aussi, mais même pb qu'avec la ligne de commande (du reste, c'est jamais que la création par du VBA de la ligne de commande)...  
 
C'est pour ça que je galère. Avant de poster ce topic, j'ai pas mal cherché (c'est pour ça que j'ai mentionné toutes les lignes de commandes que j'ai pu tester pour montrer que j'avais cherché).
 
Edit : maintenant, ce qui serait intéressant, c'est de savoir pourquoi la ligne de commande qui devrait marcher marche pas mais je suis pas un spécialiste de Thunderbird. C'est aussi pour ça que j'ai précisé la version de mon thunderbird, vue que dans la faq, y'a une ligne de commande spéciale thunderbird 1.5.x.