Envoie mail Automatique

Bonjour,

j'ai créer un premier programme qui permet d'envoyer un mail outlook en appuyant sur un bouton, cepandant j'aimerai automatiser l'envoie du mail. j'aimerai que lemail s'envoie automatiquement selon la dates prévu

Voici mon premier programme:

Sub EnvoieMail()

Dim mavaleur As Variant

Dim Mail As Variant

mavaleur = InputBox("Rentrer le nombre de fichier à reclamer :", "Saisir une valeur")

If mavaleur = False Then Exit Sub

If mavaleur = "" Then

MsgBox "Vous devez entrer une valeur", vbInformation + vbOKOnly

Exit Sub

End If

Set Mail = CreateObject("Outlook.application")

With Mail.CreateItem(olMailItem)

.Subject = "Demande de fichier "

.To = Range("E3")

.Body = "Bonjour," & Chr(13) & Chr(10) & " Pour cette semaine vous devais nous envoyer " & mavaleur & " Fichier" & Chr(13) & Chr(10) & " Cordialement"

.Display

End With

End Sub

Bonjour et bienvenue,

Peux-tu rependre ton énoncé et le reste,et corriger toutes les fautes d'orthographe ?

A l'aide d'un correcteur automatique !...

Cdlt.

Voici ma demande:

j'ai créé un premier programme qui permet d'envoyer un mail Outlook en appuyant sur un bouton, cependant j'aimerais automatiser l'envoi du mail. j'aimerais que l'email s'envoie automatiquement selon le numéro de la semaine correspondante.