Bonjour,
J'ai fait un formulaire ASP
je veux envoyer un mail quand je clique sur un bouton mais rien ne se passe.
J'ai un message "objet Server requis pour Set MAILCDO = Server.CreateObject("CDO.Message")"
Poutant si je prends le code qui se trouve dans le sub Envoi_courrier()
et que je le colle seul dans une page, le courrier est bien envoyé.


Pouvez-vous m'aider
Merci.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
<!-- #include file="./adovbs.inc" -->
<html>
 
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<%
Sub Envoi_courrier()
Dim MAILCDO
Set MAILCDO = Server.CreateObject("CDO.Message") 
%>
 
Utilisation de l'objet
<%
'envoyer à qui?
MAILCDO.To = "xxxx@xxx.com"
' de la part de qui ?
MAILCDO.From = "xxxx@xxx.com"
 
' texte à envoyer
Dim CorpsDuTexte
CorpsDuTexte = "OK CA MARCHE"
 
'Sujet
MAILCDO.Subject = "Test envoi de Mail"
MAILCDO.Textbody = CorpsDuTexte
MAILCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MAILCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXXXXX.XXXX.net" 
MAILCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25	
MAILCDO.Configuration.Fields.Update
 
'on envoie
MAILCDO.Send
' on détruit l'objet créé
set MAILCDO=Nothing
End Sub
%> 
<title>Demande de Création Utilisateur</title>
</head>
 
<body>
</body>
<p align="center"><font class='Title'>
<font size="6">Demande de Création Utilisateur</font></font><body></p>
<table width=100% border='0' cellpadding='0' cellspacing='0'>
<tr>
<td width="642">&nbsp;</td>
</tr>
<tr>
<td width="642">
<LEFT>
<FIELDSET>
<LEGEND>Demandeur</LEGEND>
&nbsp;<p>Nom du Demandeur<input type="text" name="T5" size="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
Prénom <input type="text" name="T12" size="30"></p>
<p>Adresse Mail du 
Demandeur<input type="text" name="T6" size="20"></p>
<p>Envoi au Responsable?<input type="radio" value="V1" checked name="R4">Oui<input type="radio" value="V1" checked name="R4">Non&nbsp;&nbsp;&nbsp;</p> 
<p>Adresse Mail du Responsable<input type="text" name="T7" size="20"></p>
</FIELDSET>
<FIELDSET>
<LEGEND>Utilisateur</LEGEND>
<p>&nbsp;</p>
<p>Nom de Naissance<input type="text" name="NomNaiss" size="50"></p>
<p>Nom Marital<input type="text" name="T1" size="20"></p>
<p>Prénom<input type="text" name="T2" size="20"></p>
<p>Etablissement<select size="1" name="D1">
</select></p>
<p>Fonction<input type="text" name="T3" size="20"></p>
<p>Service
<p>Autre Nom pour copie droits réseau<input type="text" name="T8" size="20"></p>
</FIELDSET>
</td>
<td>
<FIELDSET>
<LEGEND>Contrat</LEGEND>
<p>C.D.I.<input type="radio" value="V1" checked name="R1">Oui<input type="radio" value="V1" checked name="R1">Non</p>
<p>C.D.D.<input type="radio" value="V1" checked name="R2">Oui<input type="radio" value="V1" checked name="R2">Non</p>
<p>Date de debut de Contrat<input type="text" name="T9" size="20"></p>
<p>Date de Fin de Contrat<input type="text" name="T10" size="20"></p>
</FIELDSET>
<FIELDSET>
<LEGEND>Axya</LEGEND>
<p>Utilisateur Axya<input type="radio" value="V1" checked name="R3">Oui<input type="radio" value="V1" checked name="R3">Non</p>
<p>Autre utilisateur Axya pour copie<input type="text" name="T11" size="20"></p>
<p>Accés:&nbsp;&nbsp;&nbsp;</p>
<p><input type="checkbox" name="C1" value="ON">Base Séjours</p>
<p><input type="checkbox" name="C2" value="ON">Base Médicale Rendez-vous</p>
<p><input type="checkbox" name="C3" value="ON">Base Médicale Documentaire</p>
<p><input type="checkbox" name="C4" value="ON">Rsys</p>
<FIELDSET>
<LEGEND>Internet</LEGEND>
<p>Droits Internet<input type="radio" value="V1" checked name="R6">Oui<input type="radio" value="V1" checked name="R6">Non</p>
<p>&nbsp;</p>&nbsp;
</FIELDSET>
</td>
 
</table>
<p><center></center><input type="button" value="Bouton" name="B1" onclick="Envoi_courrier()"></p>
 
 
 
</body>
 
</html>
Merci de ne pas oublier les balises de code.