Sub Envoi_Mail()
Dim olApp As Object
Dim olMail As Object
Dim StrBody As String
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
StrBody = "Bonjour Monsieur," & vbCrLf & "Vous avez un nouveau message !"
With olMail
.To = ""
.CC = ""
.Subject = "Message rappel"
.Body = StrBody
.Display
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub