Insérer plusieurs destinataires dans un envoi mail par macro

[Mister alex]

Bonjour à tous,
Je fais appel à vous car j'ai un petit soucis avec une macro me permettant d'envoyer un mail.
Je ne trouve pas la syntaxe pour ajouter un ou plusieurs destinataires supplémentaires. Je ne pense pas que ca soit sorcier, j'espère que quelqu'un aura la solution à ce petit problème.
Je vous post le code que j'ai trouvé (grâce au forum) pour l'envoi du mail (à seulement un destinataire).

Dim wbk As Workbook
    Set wbk = ActiveWorkbook
  ActiveWorkbook.SendMail "alex@fr.com", "Passage commande"
  ActiveWorkbook.Close savechanges:=False

Merci par avance,
Alex

 

[Mister alex]

Re : Insérer plusieurs destinataires dans un envoi mail par macro

Autant pour moi,
En approfondissant mes recherches sur le forum j'ai trouvé ma réponse.
Je la poste au cas où ca interesserait quelqu'un qui aurait rencontré le même problème.

Dim wbk As Workbook
    Set wbk = ActiveWorkbook
  ActiveWorkbook.SendMail Recipients:=Array("alex@fr.com", "cat@fr.com"), Subject:="Passage commande"
  ActiveWorkbook.Close savechanges:=False

A+ le forum

 

[fredl]

Re : Insérer plusieurs destinataires dans un envoi mail par macro

Dim Dest(4) As String 'Nombre de destinataires possibles : 5 Dim Sujet As String Dest(0)="xxx1.xxx.com" ' 1er destinataire Dest(1)="xxx2.xxx.com" ' 2ème destinataire .......... etc Sujet = "Laboratoire de test : Nouvelle demande " & nomfichier ActiveWorkbook.SendMail Dest(), Sujet, True