Bonjour,
à tester,
Sub EnvoiMail(Sujet As String, Deadline As Date, MailDest As String, commentaire)
Dim OutlookApp As Object, OutlookMail As Object
On Error Resume Next
Set OutlookApp = GetObject(, "outlook.application")
Do While OutlookApp Is Nothing
MsgBox "Veuillez ouvrir Outlook puis cliquer sur Ok"
Set OutlookApp = GetObject(, "outlook.application")
Loop
On Error GoTo 0
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.Subject = Sujet
.To = MailDest
.Body = "Bonjour," & Chr(10) & Chr(10) & _
"la deadline pour la tache qui est en objet de ce mail est le " & Format(Deadline, "dd/mm/yyyy") & Chr(10) & _
"Controler ou executer cette tache: " & commentaire
.display
' .Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Sub VerifEnvois()
Dim i As Long
With ThisWorkbook.Worksheets("TABLEAU TACHES-CONTROL")
For i = 5 To .Range("B" & .Rows.Count).End(xlUp).Row
If CDate(.Range("G" & i).Value) <= Date And CDbl(.Range("F" & i).Value) < 1 And .Range("J" & i).Value <> "x" Then
' .Range("J" & i).Value = "x"
EnvoiMail "Tâche " & .Range("B" & i).Value, CDate(.Range("E" & i).Value), .Range("C" & i).Value, .Range("I" & i).Value
End If
Next i
End With
End Sub