Bonjour,
je voudrais adapter ce code afin d'envoyer un mail pour dire que le document expire dans 15 jours.
Merci d'avance.
Cordialement
Sub MailOutlook()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Bonjour" & vbNewLine & vbNewLine
With Sheets("Feuil1")
For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
If Date - .Range("D" & i) > 15 Then
strbody = strbody & vbNewLine & _
"l'ordonnance de " & .Range("A" & i) & " " & "arrive à sa fin de validité"
End If
Next i
End With
On Error Resume Next
With OutMail
.to = "machin@gmail.com"
.CC = ""
.BCC = ""
.Subject = "fin de validité de l'ordonnance"
.Body = strbody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub