3/5 (4 avis)
Vue 21 075 fois - Téléchargée 1 210 fois
<% ' 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) %>
26 août 2004 à 10:23
merci
7 mai 2004 à 01:38
- http://www.asp-php.net/tutorial/asp-php/email.php?page=4
F___
6 mai 2004 à 23:25
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
13 mars 2003 à 20:58
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.