Alerte maintenance véhicule par mail

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.

Bonjour,

Je suppose que tu lances la macro VerifEnvois

Or dans la macro que tu appelles Mail_Outlook alors, quand il n'y a pas de croix en colonne M, tu ne transmets pas a minima le numéro de la ligne concernée à la macro Mail_Outlook qui devrait reprendre dans la variable strbody les éléments de la ligne concernée !