<%
' ---------------------------------------------------------------------------
' Fonctions d'envoie de mail en ASP avec des composant gratuits
' F___ (alias fabrice69)

' ---------------------------------------------------------------------------
' Définition de toutes les variables Utilisée dans les appels des fonctions

Dim Destinataire, Origine, Message_Mail, Sujet_Mail

Destinataire = "votre@mail.com"
Origine = "destinataire@mail.com"
Message_Mail = "Bonjour "& vbcrLf &" Ceci est un test d envoie de Mail en ASP"
Message_Mail = Message_Mail & vbCrlf &"Bon Coding"& vbCrlf &"F___"
Sujet_Mail = "Test d envoi de Mail par ASP"

' ---------------------------------------------------------------------------
Fonction SendmailCdont(LeDest, Expediteur, MonSujet, MonMsg)
' Fonction d envoie de Mail avec l'Obget CDONT fourni directement avec 
' Microsoft Windows 2000 ou supérieur
Dim MonSendMail
Set MonSendMail = Server.CreateObject("CDONTS.NewMail") 
	MonSendMail.To = LeDest
	MonSendMail.From = Expediteur
	MonSendMail.Subject = MonSujet
	MonSendMail.Body = MonMsg
	MonSendMail.Send
Set MonSendMail = Nothing
End Function

' ---------------------------------------------------------------------------
Fonction SendASPeMail (LeDest, Expediteur, MonSujet, MonMsg)
' Fonction d envoie de Mail avec l'Obget ASPeMail à installer sur le serveur WEB
Dim MonSendMail
Set MonSendMail = Server.CreateObject("Persits.MailSender")
	MonSendMail.From = Expediteur
	MonSendMail.AddAddress = LeDest
	MonSendMail Subject = MonSujet
	MonSendMail.Body = MonMsg
	MonSendMail.Send
Set MonSendMail = Nothing
End Function

' ---------------------------------------------------------------------------
Fonction SendJMail (LeDest, Expediteur, MonSujet, MonMsg)
' Fonction d envoie de Mail avec l'Obget JMail à installer sur le serveur WEB
Dim MonSendMail
Set MonSendMail = Server.CreateObject("JMail.SMTPMail")
	MonSendMail.ServerAddress = "localhost:25"
	MonSendMail.Sender = Expediteur
	MonSendMail.AddRecipient = LeDest
	MonSendMail Subject = MonSujet
	MonSendMail.Body = MonMsg
	MonSendMail.Execute
Set MonSendMail = Nothing
End Function


' ---------------------------------------------------------------------------
'Appel avec JMail
SendJMail(Destinataire,, Origine, Sujet_Mail, Message_Mail)

' ---------------------------------------------------------------------------
'Appel avec ASPeMail
SendASPeMail(Destinataire,, Origine, Sujet_Mail, Message_Mail)

' ---------------------------------------------------------------------------
'Appel avec CDONT
SendmailCdont(Destinataire,, Origine, Sujet_Mail, Message_Mail)

%>