Problème lors de l'envoi d'un mail

ricki · 30/10/2006, 16h24

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.

Immobilis · 07/11/2006, 23h58

Salut,

As-tu trouvé une réponse?

A+

ricki · 15/11/2006, 16h53

C'est bon!
Merci.

Immobilis · 15/11/2006, 21h54

On clique sur le bouton

en bas à gauche alors.

Merci

07/11/2006, 23h58	#2
Immobilis Expert Confirmé Sénior Inscription : mars 2004 Messages : 5 849 Détails du profil Informations forums : Inscription : mars 2004 Messages : 5 849 Points : 5 965 Points : 5 965	Salut, As-tu trouvé une réponse? A+ __________________ Twitter widget Minichat multicast UDP sous Mango Linq to SQL vs SQL vs Entity Framework C# Google Distance Matrix Import/export de données en ASP.Net, L'architecture multicouche, Internationalisation en ASP.Net
	00

15/11/2006, 21h54	#4
Immobilis Expert Confirmé Sénior Inscription : mars 2004 Messages : 5 849 Détails du profil Informations forums : Inscription : mars 2004 Messages : 5 849 Points : 5 965 Points : 5 965	On clique sur le bouton en bas à gauche alors. Merci __________________ Twitter widget Minichat multicast UDP sous Mango Linq to SQL vs SQL vs Entity Framework C# Google Distance Matrix Import/export de données en ASP.Net, L'architecture multicouche, Internationalisation en ASP.Net
	00

15/11/2006, 16h53	#3
ricki Invité de passage Inscription : octobre 2006 Messages : 2 Détails du profil Informations forums : Inscription : octobre 2006 Messages : 2 Points : 0 Points : 0	C'est bon! Merci.
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email