XL 2016 Envoi des mails d'après Excel en fonction des dates

EL MOKADEM

XLDnaute Nouveau
Bonjour,
Je dois mettre en place une alerte avant sur les dates de maintenance des véhicules pour un fichier Excel. Ceci afin de bien suivre la maintenance des véhicules .
Pourtant mon code ne marche pas avec toutes les lignes du tableau excel.

Sub Mail_Outlook()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim strsubject As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strsubject = "ALERTE MAINTENANCE VEHICULE OU MATERIEL "


strbody = "Bonjour, " & vbNewLine & vbNewLine & _
"Ceci est la ligne 1" & vbNewLine & _
"Ceci est la ligne 2" & vbNewLine & _
"Ceci est la ligne 3" & vbNewLine & _
"C'est la ligne 4"



With OutMail
.To = "Test@gmail.com"
.CC = ""
.BCC = ""
.Subject = strsubject
.Body = strbody
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Sub VerifEnvois()
Dim i As Long
With ThisWorkbook.Worksheets("Feuil1")
For i = 5 To .Range("A" & .Rows.Count).End(xlUp).Row
If CDate(.Range("G" & i).Value) <= Date And .Range("M" & i).Value <> "x" Then
.Range("M" & i).Value = "x"
Mail_Outlook

End If
Next i
End With
End Sub

Merci d’avance pour votre aide et vos propositions.
 

Pièces jointes

  • Capture111.PNG
    Capture111.PNG
    65.2 KB · Affichages: 27
  • Capture112.PNG
    Capture112.PNG
    47.9 KB · Affichages: 25