E-mail automatique
toss
-
7 juin 2001 à 11:34
bk28 Messages postés 4 Date d'inscription lundi 3 février 2003 Statut Membre Dernière intervention 20 mai 2003 - 10 juil. 2003 à 15:21
bk28 Messages postés 4 Date d'inscription lundi 3 février 2003 Statut Membre Dernière intervention 20 mai 2003 - 10 juil. 2003 à 15:21
A voir également:
- E-mail automatique
- Base de données e-commerce - Forum PHP
- Mail rappel événement ✓ - Forum PHP
- Ecriture automatique debutant - Forum IRC
- (E) devient € ✓ - Forum Visual Basic 6
- é au lieu de é - Forum PHP
2 réponses
je t'envois le bout de code qui te permet d'envoyer un email en dynamique
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "255.255.255.255" 'met ton adresse IP
Mail.From = "ton.adresse@toto.com"
Mail.FromName = " "
Mail.AddAddress "adresse.destinataire@toto.com"
Mail.Subject = " "
Mail.Body = msg 'le message
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "La lattre n'est pas partie du a l'erreur: " & Err.Description
End If
response.write("Nous vous remercions de nous avoir contacté.")
response.redirect "taPage.asp"
si tu as un probleme et que cela ne fonctionne pas c'est que tu n'as pas le composant je t'en donne un autre
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= ""
MyCDONTSMail.To= ""
MyCDONTSMail.Subject = ""
MyCDONTSMail.Body= msg
MyCDONTSMail.Send
set MyCDONTSMail=nothing
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "255.255.255.255" 'met ton adresse IP
Mail.From = "ton.adresse@toto.com"
Mail.FromName = " "
Mail.AddAddress "adresse.destinataire@toto.com"
Mail.Subject = " "
Mail.Body = msg 'le message
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "La lattre n'est pas partie du a l'erreur: " & Err.Description
End If
response.write("Nous vous remercions de nous avoir contacté.")
response.redirect "taPage.asp"
si tu as un probleme et que cela ne fonctionne pas c'est que tu n'as pas le composant je t'en donne un autre
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= ""
MyCDONTSMail.To= ""
MyCDONTSMail.Subject = ""
MyCDONTSMail.Body= msg
MyCDONTSMail.Send
set MyCDONTSMail=nothing
bk28
Messages postés
4
Date d'inscription
lundi 3 février 2003
Statut
Membre
Dernière intervention
20 mai 2003
10 juil. 2003 à 15:21
10 juil. 2003 à 15:21
OK, c'est très bien tout çà, mais comment attacher un fichier à ce mail ?
