Email automatique
Bonjour a tous,
J'ai realise un programme au permet d'envoyer un mail via un bouton avec ce programme :
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:F10").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Be careful ! this events arrive soon !!! Your bro is a God
.Item.To = "totototo@hotmail.fr"
.Item.Subject = "Events"
.Item.Send
End With
End Sub
Mais avec ce programme je suis oblige de cliquer chaque fois pour que ca envoie le mail.
Aurait-il quelque chose a ajouter par exemple pour que le mail s'envoi automatiquement chaque matin a 7h par exemple?
Merci d'avance,
Toria