Discussion :

[dadaapocalypse]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pc75]

Bonjour,

Ton serveur smtp s'appelle "smtp" ?

[dadaapocalypse]

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

[SfJ5Rpw8]

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

smtp.free.fr