With CreateObject("CDO.Message")
.From="mail@mail.com"
.To="mail@mail.com"
.Subject="SUJET"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(TemplateFile, ForReading)
.TextBody = f.ReadAll
f.close
Set f = Nothing
set fso = Nothing
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With