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

Soyez le premier à donner votre avis sur cette source.

Vue 20 758 fois - Téléchargée 1 133 fois

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___)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

icvpong
Messages postés
7
Date d'inscription
vendredi 19 mars 2004
Statut
Membre
Dernière intervention
26 août 2004
-
Cela fonctionne mais comment faire pour l'envoyer en meme temps que l'on valide un formulaire qui insere des données dans une base access ?
merci
cs_fabrice69
Messages postés
1766
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
4 -
ranouf
Messages postés
237
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
31 août 2009
-
j'ai APSemail installé : et ça donne ceci comme message d'erreur :
Cet objet ne gère pas cette propriété ou cette méthode: 'MonSendMail.AddAddress'
si tu vois d'ou viens l'erreur tiens moi aucourant merci
Nop90
Messages postés
3
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
13 mars 2003
-
merci /// tjrs bien de detailler surtt pr ceux qui commencent kom moi :)

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.