Probleme pour envoyer un mail via vbscript

Bonjour,
je voulez envoyer un mail via un script VBS mais le script ne parvient pas en voyer l'É-mail
je me demande comment configuré mon pc ou editer le script pour effectuer cette opération


'script:

On error resume next
set cdo = CreateObject("CDO.message")
With cdo
.From = "jihedbond@gmail.com"
.to = "pegas7team@gmail.com"
.Subject = "sujet"
.TEXTBody = "body"
' Pour un contenu html utilser HTMLBody et taper le code
.Send()
if err then MsgBox "erreur", vbcritical
end with
set cdo = nothing