Problème d'envoi d'un message

Bonjour,
Je n'arrive pas à trouver l'erreur dans ce code.
Pourriez -vous SVP m'indiquer l'erreur ou une autre méthode.
le type d'erreur = "le transport a échoué dans sa connexion au serveur"

Voici mon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
set Mail=CreateObject("CDO.Message")
with Mail
.From="toto@hotmail.fr"
.To="titi@hotmail.fr"
.Subject="bonjour"
.TextBody="bonjour "
 
 
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
.Configuration.Fields.Item .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
.Configuration.Fields.Update
On error resume next
.Send
If Err.Number <>0 Then
	MsgBox Err.Description,16,"Erreur"
	msgbox "le mail n'a pas pu être envoyé"
Else
	msgbox "mail bien envoyé"
End If
On Error GoTo 0 
 
End with

Je suis débutante en VBS
Merci de m'aider.
dadaapocalypse

Bonjour,

Ton serveur smtp s'appelle "smtp" ?

Problème d'envoi de message

merci pour la réponse.
En effet, j'ai mis "stmp.free.fr"
mais ça ne marche pas et le même type d'erreur est affiché.

Merci de me donner une piste

dadaapocalypse

merci beaucoup

Citation:

Envoyé par dadaapocalypse

...
En effet, j'ai mis "stmp.free.fr"
...

:koi:

smtp.free.fr