Asp - article et fichier exemple pour l'envoi de mail avec les composants gratuits

Télécharger le projet
Commenter

Description

Dans le cadre de la mise en place d'une solution d'envoi de Mail via une page ASP, plusieurs solutions existent, je vais donc dans cet exemple vous présenter les solutions via les composants gratuits du marché :
- l'Objet CDONT
- l'Objet ASPeMail
- l'Objet JMail

Ces fonctions sont courament présentées dans différents articles ou exemples sur le NET, mais dans celui-ci les trois sont expliqués et un fichier ASP regroupe les 3 fonctions.

Vous avez d'ailleurs un PDF téléchargeable ici :
http://fromelard.free.fr/Scripts/ASP_Mail

Source / Exemple : 


<%
' Liste des 3 fonctions :

' ---------------------------------------------------------------------------
' Fonctions d'envoi de mail en ASP avec des composant gratuits

' ---------------------------------------------------------------------------
' Définition de toutes les variables Utilisées 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 envoi de Mail avec l'Objet 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 envoi de Mail avec l'Objet 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 envoi de Mail avec l'Objet 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)

%>

Conclusion :


Bon coding

Romelard Fabrice (Alias F___)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_fabrice69)