Envoi d'un mail thunderbird

fr-users
#1

Bonjour,
Je souhaiterais envoyer un fichier en pièce jointe d'un mail à plusieurs
destinataires.
Or j'ai beau séparer les destinataires par un point virgule ou une virgule cela
ne fonctionne pas.
La séparation avec la virgule ne prend en compte que mon premier destinataire.
La séparation par le point virgule ajoute une double quote entre le prénom et le
nom du premier destinataire et fait suivre le tout par le second destinataire
tel que :
toto.machin"@truc.fr;titi.bidule@truc.fr

Je vous remercie pour votre aide.

Voici mon code avec le point virgule

sub mail2
Dim Sujet as String, Corps as String 'Utilisé pour l'enoovi par mail
dim PropFich() 'Utilisée pour enregistrer un fichier
dim oFichier as string 'Utilisée pour un fichier

'Alimentation avec le nom du fichier à enregistrer
oFichier="file:///C:/essai.ods"
   Sujet = "Coucou"
   Corps = "Bonjour" & "%2C" & "%0A" & "%0A" & "Vous trouverez ci-joint un
fichier." & "%0A" & "%0A" & "Cordialement"
   Des1 = "toto.machin@truc.fr;titi.bidule@truc.fr"
   shell(ConvertToURL("D:\Thunderbird\thunderbird.exe"),3, "-compose body=" &
Corps & ",subject=" & Sujet & ",to=" & Des1 & ",attachment=" & oFichier)

end sub

#2

Bonjour,

Je pense qu'il faut "encadrer" la virgule/le point-virgule par des quotes.

Ex:

Des1 = "toto.machin@truc.fr";"titi.bidule@truc.fr"

Cordialement
Mr Sandy-Pascal Andriant

#3

Helas non cela ne fonctionne pas ni sous la forme que vous indiquée ni sous
la forme
"toto.machin@truc.fr"&"\,"&"titi.bidule@truc.fr"
ou
"toto.machin@truc.fr"";""titi.bidule@truc.fr"

#4

Bon,

Essaie :

"toto.machin@truc.fr" & ";" & "titi.bidule@truc.fr"

en maintenant bien une espace avant et après chaque &

Cordialement
Mr Sandy-Pascal Andriant

#5

Cela ne fonctionne pas mieux...

#6

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

#7

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

#8

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

#9

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

#10

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