Re: [fr-users] Re: Envoi d'un mail thunderbird

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 = 'toto@orange.fr,tata@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='foo@nowhere.net,foo@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$= "titi@mail.fr"
> > leMail$ = leMail$ & "," & "toto@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+unsubscribe@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