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