Sub EnvoiMail(Sujet As String, Deadline As Date, MailDest As String)
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) & _
"Ben alors, la deadline c'est le " & Format(Deadline, "dd/mm/yyyy") & Chr(10) & _
"T'en est où ?"
.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Sub test()
EnvoiMail "", #1/1/2015#, "toto@toto.fr"
End Sub