CREER UN MAIL EN ASP

CREER UN MAIL EN ASP	Aéronautique	Astronomie	Géologie	Météorologie	Végétaux
	Animaux	Biologie Santé	Informatique	Paléontologie
	Archéologie	Chimie	Mathématiques	Physique

<%
Dim MAILCDO
Set MAILCDO = Server.CreateObject ("CDONTS.NewMail")
strnom = Request.Form("nom")
strprenom = Request.Form("prenom")
stremail = Request.Form ("email")
strobjet = Request.Form("objet")
strtexte = Request.Form("texte")

'destinataire
MAILCDO.To = "ericdesrentes@hotmail.com"
MAILCDO.From = stremail

MAILCDO.Subject = "Foire aux questions"
MyBody = "Nom :"&" "&strnom
MyBody = MyBody & vbCrLf
MyBody = MyBody & "prénom :"&" "& strprenom & vbCrLf
MyBody = MyBody & "E.mail :"&" "& stremail & vbCrLf
MyBody = MyBody & "Objet :"&" "& strobjet & vbCrLf
MyBody = MyBody & "Texte :"&" "& strtexte & vbCrLf
MAILCDO.Body= Mybody

'Importance du message dans l'ordre d'importance0,1ou 2
MAILCDO.Importance = 1 'Normal
'on envoie
MAILCDO.Send

'on détruit l'objet créé
set MAILCDO=Nothing
%>

Deuxième exemple

<%
strFrom = "webmaster@domaine.fr" 'à modifier (expéditeur)
strTo = ""

filiere = Request.Form("filiere")

select case filiere
case "Administration & Gestion des Entreprises"
strTo = "nom@domaine.fr"

case "Commerce, Distribution, Marketing, Services (DIPLOMES)"
strTo = "nom2@domaine.fr"

case "Commerce, Distribution, Marketing, Services (METIERS)"
strTo = "nom3@domaine.fr"

case "Informatique"
strTo = "nom4@domaine.f"

end select

strSubject = "Demande d'informations depuis le site domaine.fr"

if Len(Trim(strTo)) > 0 then

'Construction du mail
'--------------------
Set mailObj = CreateObject("CDONTS.NewMail")
mailObj.MailFormat = 0 'Format MIME
mailObj.BodyFormat = 0 'Format HTML
lngImportance = 1 'Niveau d'importance du mail

strMessage = "<html><head></head><body><table width='100%' border='0' cellspacing='0' cellpadding='0'>" _
& "<tr><td></td><td>Bonjour,</td></tr>" _
& "<tr><td colspan='2'> </td></tr>" _
& "<tr><td colspan='2'>Voici les coordonnées d'un visiteur du site.fr qui a demandé à recevoir des informations sur nos formations:</td></tr>" _
& "<tr><td colspan='2'> </td></tr>" _
& "<tr><td width='17%'>Nom : </td><td width='83%'> " & Request.Form("txtNom") & "</td></tr>" _
& "<tr><td>Prénom : </td><td> " & Request.Form("txtPrenom") & "</td></tr>" _
& "<tr><td>Adresse : </td><td> " & Request.Form("txtAdresse") & "</td></tr>" _
& "<tr><td>Code postal : </td><td> " & Request.Form("txtCodepostal") & "</td></tr>" _
& "<tr><td>Ville : </td><td> " & Request.Form("txtVille") & "</td></tr>" _
& "<tr><td>E-mail : </td><td><a href='mailto:" & Request.Form("txtEmail") & "'> " & Request.Form("txtEmail") & "</a></td></tr>" _
& "<tr><td>Téléphone : </td><td> " & Request.Form("txtTelephone") & "</td></tr>" _
& "<tr><td>Portable : </td><td> " & Request.Form("txtPortable") & "</td></tr>" _
& "<tr><td>Niveau d'études : </td><td> " & Request.Form("niveau") & "</td></tr>" _
& "<tr><td>Filière choisie : </td><td> " & filiere & "</td></tr>" _
& "<tr><td colspan='2'> </td></tr>" _
& "<tr><td colspan='2'>Bien cordialement,</td></tr>" _
& "<tr><td colspan='2'> </td></tr>" _
& "<tr><td colspan='2'>Votre administrateur du <a href='http://www.ciefa.com'>www.ciefa.com</a></td></tr>" _
& "</table></body></html>"

'Envoi du mail
'-------------
mailObj.Send strFrom, strTo, strSubject, strMessage, lngImportance
Set mailObj = Nothing

end if
%>

Remarque : tout le message est construit en HTML dans la variable strMessage.

_ permet de couper une ligne. Il faut mettre un espace avant l'underscore

& permet de reprendre le ligne.

exemple

"eee" _
& "rrrrr"

équivaut à écrire "eeerrrrr"

Stocker des données sur le Web

Rechercher sur le Web

Créer votre boîte aux lettres

Vous avez besoin d'un hébergeur gratuit pour votre site ?

Déclarer son site à la CNIL

Mon audience Xiti