envoi automatique d'un e-mail

**salmer** · 09/05/2006, 13h43

je veux envoyer un mail automatique, lorsque j'accepte une demande de réservation, un mail de confirmation est envoyé.
je ne sais pas du tout comment procéder
quelqu'un peut-il me guider?

**ahage4x4** · 09/05/2006, 19h42

Envoyé par salmer

je veux envoyer un mail automatique, lorsque j'accepte une demande de réservation, un mail de confirmation est envoyé.
je ne sais pas du tout comment procéder
quelqu'un peut-il me guider?

Ca va etre du style suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
If commandevalidee = true then
 
'traitement du mail
'Dans mon cas j'utilise le composant JMAIL
Set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.ServerAddress = "localhost:25"
objJMail.Sender = "upload@ehdenoffroad.com"
objJMail.SenderName = "Le nom de la personne"
objJMail.AddRecipient "ehdenoffroad@gmail.com  Adresse mail de la personne"
objJMail.Subject =  " Sujet de ton mail " 
objJMail.HTMLBody ="Contenu de ton mail ici en HTML"
objJMail.Priority = 3
on error resume next
objJMail.Execute
if err then 
Response.Write("<h2>An error has occured. The notification has not been sent</h2>")
end if
Set objJMail = Nothing
 
end if

N'hesite pas si tu as besoin d'autres explications.

**salmer** · 10/05/2006, 09h23

merci,
mais j'ai essayé avec ça mais je ne sais pas d'où ramener ce composant JMail?
j'ai eu l'erreur suivante:

[FONT=Times New Roman]Type d'erreur :
Objet Server, ASP 0177 (0x800401F3)
ProgID non valide Pour de plus amples informations relatives à ce message, veuillez visitez le site du Support technique en ligne Microsoft sur : http://www.microsoft.com/contentredirect.asp.[/FONT]
[FONT=Times New Roman][/FONT]
[FONT=Times New Roman]je pense que c'est lié à ce composant n'est ce pas?[/FONT]

**ahage4x4** · 10/05/2006, 21h03

Salmer mets nous ton code, tu dois utiliser CDONTS aparement comme composant mail.

**salmer** · 10/05/2006, 21h53

g essayé avec CDONTS au lieu de JMAIL, c'est pareil
mon code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
<body>
<!--#include file="connexion.asp" -->  
<%  
 id=Request.Querystring("id")
 reponse1=Request.form("reponse1")
 reponse2=replace(reponse1, "'", "$$$")
 reponse3=replace(reponse2, vbcrlf, "$$")
   Set RS = server.createobject("ADODB.Recordset")
    SQL="SELECT * FROM FAQ where id=" & id
 if Request.form("reponse1") <> "" then 
 RS.Open sql, conn, 1, 3, 1 
 RS.movefirst
 RS.fields("reponse")=reponse3
 RS.update
 RS.close
%>
 <script language=javascript>
alert('Les informations ont été enregistrées');
window.opener.location.reload()
window.close(); 
</script>
 <% else%>
  <script language=javascript>
alert('Veuillez remplir le champ Réponse');
history.back(); 
</script>
<% end if%>   
<%conn.close : Set conn=nothing%>

je veux envoyer le mail après le update des informations
c'est une page de vérification

**ahage4x4** · 10/05/2006, 22h25

Envoyé par salmer

g essayé avec CDONTS au lieu de JMAIL, c'est pareil
mon code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
<body>
<!--#include file="connexion.asp" -->  
<%  
 id=Request.Querystring("id")
 reponse1=Request.form("reponse1")
 reponse2=replace(reponse1, "'", "$$$")
 reponse3=replace(reponse2, vbcrlf, "$$")
   Set RS = server.createobject("ADODB.Recordset")
    SQL="SELECT * FROM FAQ where id=" & id
 if Request.form("reponse1") <> "" then 
 RS.Open sql, conn, 1, 3, 1 
 RS.movefirst
 RS.fields("reponse")=reponse3
 RS.update
 RS.close
%>
 <script language=javascript>
alert('Les informations ont été enregistrées');
window.opener.location.reload()
window.close(); 
</script>
 <% else%>
  <script language=javascript>
alert('Veuillez remplir le champ Réponse');
history.back(); 
</script>
<% end if%>   
<%conn.close : Set conn=nothing%>

je veux envoyer le mail après le update des informations
c'est une page de vérification

Mais es tu sur que JMAIL est installé sur le serveur?

**Immobilis** · 10/05/2006, 23h36

http://www.google.fr/search?hl=fr&q=cdosys&meta=
http://www.google.fr/search?hl=fr&q=cdonts&meta=

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim mailer
Set Mailer = Server.CreateObject("CDONTS.NewMail") 
 Mailer.To = "Nom complet<<a href="mailto:adresse@domaine.com">adresse@domaine.com</a>>"
 Mailer.Cc = "Nom complet<<a href="mailto:adresse@domaine.com">adresse@domaine.com</a>>"
 Mailer.Bcc = "Nom complet<<a href="mailto:adresse@domaine.com">adresse@domaine.com</a>>"
 Mailer.From = "Nom complet<<a href="mailto:adresse@domaine.com">adresse@domaine.com</a>>"
 Mailer.Subject = "Ceci est un test"
 Mailer.Body = "Voic mon message"
 ' Pour envoyer un mail au format HTML, ajouter ces 2 lignes :
 ' Pour laisser le mail en format PlainText, mettez des 1 pour ces 2 lignes
 Mailer.BodyFormat = 0
 Mailer.MailFormat = 0
 ' importance : 0 = normal, 1 = urgent, 2 = très urgent
 Mailer.Importance = 2
 
 if not Mailer.Send then
  response.write ("Mail sent to " & mailto & "<br>")
 else
  response.write ("Mail non envoyé. Erreur : ") & Err.Description
 end if
Set Mailer = Nothing

A+

envoi automatique d'un e-mail

ASP

Discussions similaires

Partager

Partager