% Dim MonMail dim Texte Set MonMail = CreateObject("CDONTS.NewMail") MonMail.To = "marc.bonpain@industrie.gouv.fr" MonMail.From = request("mel") MonMail.Subject = "Remarques-Suggestions" Texte = "Remarques concernant: " & vbCrLf & request("HORAIRES") & vbCrLf & request("ACCES") & vbCrLf & request("ACCTEL") & vbCrLf & request("CONNAC") & vbCrLf & request("INFEXP") & vbCrLf & request("RAP") & vbCrLf & request("Autre") & vbCrLf & "Obs: " & request("Obs") & vbCrLf & "coordonnées de la personne: " & vbCrLf & request("Nom") & vbCrLf & request("prenom") & vbCrLf & request("ad1") & vbCrLf & request("ad2") & vbCrLf & request("cp") & vbCrLf & request("ville") & vbCrLf & "Tél: " & request("Tel") & vbCrLf & "Fax: " & request("Fax") & vbCrLf & "Portable: " & request("port") MonMail.Body = Texte MonMail.Send Set MonMail = Nothing %>
|
|
DRIRE Nord - Pas-de-Calais Fiche de remarques et de suggestions Vous avez des remarques, des suggestions... Exprimez-les ! Nous sommes à votre écoute. |