<%
'Variables locale
dim cnxBase
dim SimpleMail
dim MailMessage
dim Prm
dim occ
'Création des objets
Set SimpleMail = Server.CreateObject("SMSMTP.SMSMTP.1")
Set MailMessage = Server.CreateObject("SMMailMessage.SMMailMessage.1")
'Mise en forme du texte
Dim Fichier
' Fichier = "" + vbCrLF
' Fichier = Fichier + " " + vbCrLF
Fichier = ""
for each prm in Request.form
if prm <> "Dest" then
for each occ in Request.form (prm)
' Fichier = Fichier + "" + prm + "=" + occ + " "
Fichier = Fichier + prm + "=" + occ + vbCrLf
next
end if
next
' Fichier = Fichier + " " + vbCrLF
' Fichier = Fichier + "" + vbCrLF
'Mise en place des informations pour l'envoi
Dim EMailSender
EMailSender = request.form ("Email")
MailMessage.From = EMailSender
for each Prm in Request.form ("Dest")
MailMessage.To.AddRecipient Prm
next
'MailMessage.To.AddRecipient "maison.natale@charles-de-gaulle.org"
' MailMessage.CustomHeader = "CONTENT-TYPE: text/html" & vbCrlf
MailMessage.Subject = "[SITE WEB - Demande de Contact]"
MailMessage.Body = Fichier
'Envoi
SimpleMail.ServerName = "cerbere-01"
SimpleMail.ServerPort = 25
SimpleMail.Connect
SimpleMail.SendMessage MailMessage
SimpleMail.Disconnect
'Fin
Set SimpleMail = Nothing
Set MailMessage = Nothing
%>