Macro

Bonjour,

Je viens de découvrir la macro et je cherche à automatisé l'envoi d'un mail une fois un document rempli.
J'ai écrit ma macro mais celle ci est fausse. Quelqu'un pourrait il m'aider ? Merci d'avance


"feuil15"
derlig = Range("C65").End(xlUp).Row
For L = 1 To derlig
strbody = ""
If Range("A65") = "complet" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = .Range("A" & L) & " et " & .Range("B" & L) & " sont disponibles"
'On Error Resume Next
With OutMail
.To = "xxxxxx@lxxxxxxx"
.CC = ""
.BCC = ""
.Subject = "A vérifier"
.Body = strbody
.Display 'visu @Mail
'.Send '
End With
On Error GoTo 0
End If
Set OutMail = Nothing
Set OutApp = Nothing
Next L
End With
End Sub