Envoie mail avec un fichier
Bonjour ,
Je souhaite une macro qui permet d’envoyer un mail tout les jours à une certaine heure avec un fichier joint ( ce classeur )
Pouvez vous m’aider ?
Je vous remercie par avance
Cordialement
Bonjour
A l'ouverture du fichier (qui doit donc restrer ouvert), ce code dans ThisWorkBook lance l'application On Time
A 15h30, la macro "Test" est activée.
Private Sub Workbook_Open()
Application.OnTime TimeValue("15:30:00"), "Test"
End SubCette macro envoie, via le navigateur par défaut, un mail au destinataire dont l'adresse est ici amadeus-09@wanadoo.fr
Le sujet est indiqué dans Subject.
On peut mettre ReturnReceipt à True pour demander un accusé de réception (facultatif).
En pièce jointe, c'est le classeur précisé devant Sendmail qui est envoyé. Ça peut être le classeur contenant la macro (ThisWorkbook), ou le classeur actif (ActiveWorkbook),
Sub Test()
Application.DisplayAlerts = False
ActiveWorkbook.SendMail Recipients:="amadeus-09@wanadoo.fr", _
Subject:=Range("Feuil1!B1").Value, _
ReturnReceipt:=True
Application.DisplayAlerts = True
End SubCordialement