Discussion :

[Morphine.Nw]

Voila, je cherche un moyen d'envoyer un mail à partir d'un formulaire.
Jusque la ce n'est pas tres compliqué.
La ou ça se complique, c'est que je dois envoyer les données du formulaire sous format excel.

Si quelqu'un a une petite idée, ça serait cool

[Morphine.Nw]

pour faire le fichier excel, c'est bon, par contre, pour l'envoie, j'ai trouvé un bout de script:

<% Mailer.Send "morphine.nw@gmail.com","destinataire@email.com","Titre du message","Le texte Ã* envoyer"
%>
<% Set Mailer = Nothing %>

Mais je me prends une belle erreur dans la tete...

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur de compilation Microsoft JScript error '800a03ec'

';' attendu

/03annuaire/envoi_mail.asp, line 151

Mailer.Send "morphine.nw@gmail.com","destinataire@email.com","Titre du message","Le texte à envoyer"

[Immobilis]

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur de compilation Microsoft JScript error '800a03ec'

Salut,
Mets un retour à la ligne avant
A+

[Morphine.Nw]

ça marche pas....
en fait le soucis est que ma page est en asp - javascript
et que le script d'envoie a l'air d'etre en VBScript...

Il faut que j'arrive a le mettre en javascript en fait...

[Immobilis]

Le script que j'utilise

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
Dim mailer,item
Dim Arr_Attachement
 
Set Mailer = Server.CreateObject("CDONTS.NewMail") 
	'Mailer.To = mailto
	Mailer.To = "Nom Complet<tonadresse@domaine.com>"
	'Mailer.Cc = mailcc
	'Mailer.Bcc = ""
	Mailer.From = SenderName & SenderEmail
	Mailer.Subject = emailsubject
	Mailer.Body = emailbody
	' importance : 0 = normal, 1 = urgent, 2 = très urgent
	Mailer.Importance = 2
 
	Arr_Attachement = split(attachement, ", ")
	on error resume next
	FOR EACH item in Arr_Attachement
		Mailer.AttachFile Server.MapPath("../data/upload/" & item) 
	NEXT
 
	if Err.Description <> "" then
		response.Write("An error occured. Maybe, files do not exist anymore.")
	end if
 
	' Pour envoyer un mail au format HTML, ajouter ces 2 lignes :
	' Pour laisser le mail en format PlainText, mettez des 1 pour ces 2 lignes
	Mailer.BodyFormat = 0
	Mailer.MailFormat = 0
 
	if not Mailer.Send then
		response.write ("Mail sent to " & mailto & "<br>")
	else
		response.write ("Mail non envoyé. Erreur : ") & Err.Description
	end if
Set Mailer = Nothing

A+