un autre exemple trouvé sur geckozone
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & Dest & "'"
strcommand = strcommand & "," & "subject=" & Sujt & ","
strcommand = strcommand & "body=" & Msg
strcommand = strcommand & "," & "attachment=file:///" & TheFile
et un commentaire :
en reprenant la variable Dest :
Dim Dest as String, Destinataire1 as String, Destinataire2 as String,
Destinataire3 as String
Destinataire1= "Mail1"
Destinataire2= "Mail2"
Destinataire3= "Mail3"
Dest = Destinataire1 & "," & Destinataire2 & "," & Destinataire3
Nota: J'ai eu un bug lorsque la virgule est utiliser dans le body ;
effectivement thunderbird l'interprète comme fin de body.
Je remplace donc ' , ' par un ' ; ' lorsque je teste le body.
Cordialement
Mr Sandy-Pascal Andriant
Le 10/03/2014 16:29, Conil26 a écrit :
Sinon,
un exemple :
|Sub Mail()
Dim destinataire, sujet, fichierjoint, As String
destinataire = 't...@orange.fr,t...@orange.fr'
sujet = " fichiers"
body = "Veuillez trouver ci-joint fichier des données ; Cordialement"
fichierjoint = "C:\donnees1.xls"
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
MsgBox strcommand
Call Shell(strcommand, vbNormalFocus)
End Sub
Il est bien précisé dans les pages de lignes de commande :
https://developer.mozilla.org/en-US/docs/Mozilla/Command_Line_Options?redirectlocale=en-US&redirectslug=Command_Line_Options
que
|
* |les options multiples sont séparées par une virgule.
|
* |La virgule ne peut pas être précédée par une espace.|
* |les options multiples doivent être encadrées par des simple
quote. ex : ||to='f...@nowhere.net,f...@foo.de'|
|
|
Cordialement
Mr Sandy-Pascal Andriant
Le 10/03/2014 16:14, Andriant Sandy-Pascal a écrit :
Peut-être essayer de définir une variable leMail$ et un bout de
script qui définit
leMail$= "t...@mail.fr"
leMail$ = leMail$ & "," & "t...@mail.com"
puis dans le code :
With iMsg
Set .Configuration = iConf
...
.To = leMail$
Cordialement
Mr Sandy-Pascal Andriant
Le 10/03/2014 15:51, Andriant Sandy-Pascal a écrit :
Alors essaie de te débrouiller avec la commande CC: en plus de To:
Et il y a de nbx exemples sur cette page, qu'il te faudra adapter en
fonction de ta config.
http://www.rondebruin.nl/win/s1/cdo.htm
Cordialement
Mr Sandy-Pascal Andriant
Le 10/03/2014 15:16, turtly a écrit :
Cela ne fonctionne pas mieux...
--
View this message in context:
http://nabble.documentfoundation.org/Envoi-d-un-mail-thunderbird-tp4100758p4100803.html
Sent from the Users mailing list archive at Nabble.com.
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
