Discussion :

[SpaceFrog]

à priori depuis 2003 on ne peux plus faire envoyer un mail au serveur avec

Code :

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

1
2
 
	Set MyCDONTSMail = CreateObject("CDONTS.NewMail")

que faut il utiliser à la place ?

[Crazyblinkgirl]

Bonjour,

Je crois qu'il a été remplacé par CDOSYS :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim MyCDOSYSMail 
set MyCDOSYSMail = Server.CreateObject("CDO.Message") 
 
MyCDOSYSMail.From = "....." 
MyCDOSYSMail.To = "....." 
MyCDOSYSMail.Subject = "......"
MyCDOSYSMail.TextBody = "......."
MyCDOSYSMail.Send 
 
set MyCDOSYSMail = nothing

[SpaceFrog]

Merci un bouquet !

Foutu hébergeur qui ne nous a même pas prévenus ...