Sendmail

Bertier · 9 Mars 2004

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 · 9 Mars 2004

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

Sendmail

Bertier

Guest

@+Thierry

Guest

Discussions similaires