| ACCUEIL   CONTACTS   LIENS
Informatique
EXPERTISE, CONSEILS, FORMATION,
ACCOMPAGNEMENT AU CHANGEMENT
Solution Intranet, Extranet et Internet
Accompagnement et formation au travail collaboratif
Accès à la rubrique

Formation
FORMATION SALARIES ETUDIANTS APPRENTIS.
Bureautique,
Internet,
Sciences de la vie,
Mathématique, Physiques
Aéronautique
Accès à la rubrique

Biologie
RECHERCHE
Biologie cellulaire
Biologie moléculaire
Génétique
Accès à la rubrique

Aéronautique
PILOTE PRIVE D'AVION
Enseignant
  - aéronautique
  - aéromodélisme
en savoir plus


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")
%>

  Internet
  Extranet
  Intranet

  Développement
  - Scripts Asp
 - Script PHP
 - Script CSS 

  Logiciels

  Articles

LOI n°2004-575 du 21 juin 2004

 

 
 
eric desrentes : Informations légales

Hit-Parade