Sendmail

[Bertier]

J'ai la macro suivante :

Application.DisplayAlerts = False
Sheets("Client 1").Select

ActiveWorkbook.SendMail Recipients:="monpc@mondomaine.com", Subject:="Votre document", ReturnReceipt:=True
End Sub

Hors je voudrais l'envoyer à plusieurs destinataires mais je n'y arrive pas même en mettant des points-virgules dans tous les sens
Merci de votre aide

 

[@+Thierry]

Bonjour Bertier, le Forum


Il faut utiliser un Array, comme çà :

Sub SendMailMultiDestinataires()
ActiveWorkbook.SendMail Recipients:=Array("Toto@toto.com", "zaza@zaza.com", "Thierry@xld.com"), _
Subject:="Voici le workbook " & ActiveWorkbook.Name
End Sub


Bon Aprèm
@+Thierry