Sub aargh()
Set ws = Sheets("feuil1")
With CreateObject("Outlook.Application")
For i = 3 To ws.Cells(Rows.Count, 1).End(xlUp).Row
If ws.Cells(i, "A") + 7 < Now() And ws.Cells(i, "E") <> "fourni" Then
With .CreateItem(0)
.To = ws.Cells(i, "D")
.Subject = ""
.Body = "Bonjour, Merci ........................ "
.display
End With
End If
Next i
End With
End Sub
Bonjour,
On m'avait founi ce code qui marche super bien.
on supposera que la date se trouve dans la colonne A donc si A supérieur à 7 jours et E une colonne ou tu renseigne le statut si la personne répond a tes relances donc paas d'envoie de mail If ws.Cells(i, "A") + 7 < Now() And ws.Cells(i, "E") <> "fourni" Then
la colonne D la ou se trouve les adresses mails des personnes a qui tu veux envoyer .To = ws.Cells(i, "D")
Tu opeux les modifier ou rajouter
Je suis novice aussi et je pioche bcp sur ce forum