XL 2019 Envoyer un mail sous condition

[jerome3131]

Bonjour,

Je souhaiterai créer une macro pour envoyer un mail de relance à mes fournisseurs suivant une date de commande dépassée de 5 jours par rapport a la date du jour
avec 1 seul mail de relance par semaine
Dans mon tableau excel j'ai une colonne date ( ou les commandes ont été passées ) et une colonne avec l'adresse des mes fournisseurs

Merci pour votre aide ( je ne suis pas un expert du tout de excel pour information )

 

[jerome3131]

Pour le moment j'en suis là mais je n arrive pas a mettre la condition pour mes dates de commande antérieur à 5 jours :


' relance Macro
'

Dim LeMail As Variant
Set LeMail = CreateObject("Outlook.Application")
With LeMail.CreateItem(olMailItem)
.Subject = "relance"
.To = ("fournisseurs@gmail.com") 'Pour exemple
.Body = "Pouvez vous nous donner un délais concernant notre commande "
.Display
End With

'
End Sub