Envoi automatique de mail à date butoir

Bonjour,

Je suis sur un projet de logiciel pour les devis de mon entreprise (tpe), il ne me manque plus que l'envoi automatique de mail lorsque la création d'un devis est à faire au plus vite. Ma cellule F renseigne la date butoir pour envoyer le devis et lorsque cette date correspond à la date du jour (aujourd'hui), un mail doit être envoyer à une adresse.

Problème, je suis sous mac mais je peux utiliser l'app mail du mac ou outlook 2016.

Je vous envoie mon code, il y a sûrement des erreurs.

Sub mail_auto_fin_procédure()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim L As Long

With Worksheets("Devis")
derlig = .Range("F" & Rows.Count).End(xlUp).Row
For L = 1 To derlig
strbody = ""
If .Range("F500") = Now Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = ""

With OutMail
.To = " antoine.deville@ergo-motri-sante.fr"
.CC = ""
.BCC = ""
.Subject = "Dépassement échéance devis"
.Body = strbody
.Display

End With
.Range(« F » & L) = Now
On Error GoTo 0
End If
Set OutMail = Nothing
Set OutApp = Nothing
Next L
End With
End Sub