Bonjour
Pour ma part j'avais jamais utilisé cdo mais une messagerie d'entreprise.
Mais j'ai essayé comme ceci et ca fonctionne.
Sub Workbook_Open()
nbalert = 0
derlig = Sheets("Tableau suivi clients").Cells(Cells.Rows.Count, "A").End(xlUp).Row
For Each c In Sheets("Tableau suivi clients").Range("P2
" & derlig)
ecart = c - Date
c.Interior.ColorIndex = -4142
If ecart <= 15 And c.Offset(0, 2) < 2 And c <> "" Then
Call envoi(c.Offset(0, -15) & " est définie dans " & ecart & " jours")
nbalert = nbalert + 1
c.Interior.Color = RGB(255, 0, 0)
End If
Next
End Sub
Sub envoi(mess)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iConf.Fields
.Item("") = 1
.Item("") = "ton adresse mail"
.Item("") = "ton mot de passe"
.Item("") = 2
.Item("") = "le serveur smtp"
smtp.
gmail.com pour gmail il me semble mais pas sur.
.Item("") = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "adresse destinataire"
.CC = ""
.BCC = ""
.From = ""
.Subject = "Alert"
.textbody = mess
.Send
End With
End Sub