Envoie de courriel automatique à la date d'échéance

Bonjour,

je suis très nouveau en VBA et j'aimerais faire en sorte que mon fichier Excel envoie un courriel à la date d'échéance de la colonne C au courriel de la personne responsable en colonne D.

Pouvez-vous m'aider?

voici le code que j'ai pour le moment...

Sub envoiClasseur()

Dim Fichier As Variant

'le programme ouvre une fenêtre où l'on va sélectionner le fichier'

Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")

MsgBox Ficher

'ici on demande d'utiliser Outlook comme client de messagerie'

Dim MaMessagerie As Object

Dim MonMessage As Object

Set MaMessagerie = CreateObject("Outlook.application")

Set MonMessage = MaMessagerie.Createitem(0)

'ici nous définissons les champs du mail'

'entre guillemet il faut indiquer les adresses mails'

MonMessage.to = "p.ferlandperron@laval.ca"

'ici nous commençons la rédaction du mail'

MonMessage.attachments.Add Fichier

'sujet du mail'

MonMessage.Subject = "Échéance à venir"

'Corps du mail'

contenu = "Bonjour,"

contenu = contenu & Chr(10) & Chr(13)

'les caractères CHr indiquent un saut de ligne'

contenu = contenu & "Une tâche assignée arrive à échéance"

contenu = contenu & Chr(10) & Chr(13)

contenu = contenu & "Veuillez voir le fichier Excel en pièce jointe"

contenu = contenu & Chr(10) & Chr(13)

contenu = contenu & "Merci!"

contenu = contenu & Chr(10) & Chr(13)

contenu = contenu & "Pierluc"

MonMessage.body = contenu

'ici on provoque l'envoi du mail et de sa pièce jointe'

MonMessage.Send

'réinitialisation de la messagerie'

Set MaMessagerie = Nothing

'boite de dialogue qui confirme l'envoi du message et de sa pièce jointe'

MsgBox "Votre mail a bien été envoyé"

End Sub