Poser une question

Re: mail formulaire

Oui, désolé pour le code.
ça ne fonctionnais pas en plus j'ai donc déclaré chacun de mes champs pour les afficher ça donne celà :
Le seul problème est que la valeur des champs n'est pas envoyé dans le mail.
Le mail est envoyé par contre avec les intitulés des champs.
D'autre part j'aurai voulu pouvoir choisir le destinataire d'après une liste déroulante de mon formulaire.
Mais le "mail.to" ne veux pas accepter de variable apparement.
Merci pour ta reponse


<%
'Récupération des champs du formulaire et envoi par mail
function MailBody ()



' mise en forme des données dans le mail
Dim affiche
affiche = VbTab + "Coordonnées" + VbCr + _
VbTab + "***********" + VbCr + _
"Nom de l'ordinateur: " + request("nomordi") + VbCr + _
"Modèle : " + request("modele") + VbCr + _
"Type : " + request("type") + VbCr + _
"Nom utilisateur : " + request("nom") + VbCr + _
"Login : " + request("login") + VbCr + _
"Type 2 : " + request("type2") + VbCr + _
"N° serie : " + request("serial") + VbCr + _
"Code barre : " + request("codebar") + VbCr + _
"Serveur de télédiff : " + request("nserveur") + VbCr + _
"Profil metier : " + request("pmetier") + VbCr + _
"Logiciels : " + request("logs") + VbCr + _
"Code Barre écran cathodique : " + request("codebarc") + VbCr + _
"N° Serie Ecran plat : " + request("serialp") + VbCr + _
"Code Barre Ecran plat : " + request("codebarp") + VbCr + _
"N° serie Scanner : " + request("serials") + VbCr + _
"Code Barre Scanner : " + request("codebars") + VbCr + _
"Clavier : " + request("clavier") + VbCr + _
"Souris : " + request("souris") + VbCr + _
"Module CD-Rom Portable : " + request("modulecdrom") + VbCr + _
"Carte PC-Mcia : " + request("pcmcia") + VbCr + _
"Valise : " + request("valise") + VbCr + _
"Type Imprimante : " + request("imprimante") + VbCr + _
"N° serie Imprimante : " + request("seriali") + VbCr + _
"Code Barre Imprimante : " + request("codebari") + VbCr + _
"Date enregistrement fiche : " + request("dat1") + VbCr + _
"Remarque / historique : " + request("remarque") + VbCr + VbCr + _
VbTab + "Message" + VbCr + _
VbTab + "*******" + VbCr + _
request("message") + VbCr + VbCr + _

VbTab + "****************" + VbCr + _
strLabelDevis1 + strLabelDevis2 + strLabelDevis3 + strLabelDevis4 + strLabelDevis5 + strPreciser + VbCr + VbCr + _

VbTab + "************************" + VbCr + _
strDoc1 + strDoc2 + strDoc3
MailBody = affiche
end function

Dim objMail
Set objMail = Server.Createobject("CDONTS.NewMail")
objMail.From = "laboinfo"
objMail.To = "jrenaut@groupama-ge.fr"
objMail.Subject = "Formulaire"
objMail.Body = MailBody
'objMail.AttachFile(request("FichierJoint"))
objMail.Send
Set objMail = Nothing

%>

Réponses

Aucune réponse à ce message...