Sommaire

Générer un e-mail en ASP VBScript

<%response.write("test040604")

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

response.write(strnom)

'destinataire
MAILCDO.To = "destinataire@domaine.com"
MAILCDO.From = "dev2_intranet@hotmail.com"

MAILCDO.Subject = "Site-ciefa"
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

response.write("lecture OK")
%>