Discussion :

[FoxLeRenard]

Bonjours ...
Un de mes serveur bascule en PHP
pour envoyer des ajouts a ma mailing liste, j'avais ce code qui marchait bien.
Qui pourrait me le transcrire en PHP ?
J'avoues que ça me servira de modéle pour les autre ASP que j'ais à transcrire

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
30
31
32
33
 
<%
 Dim Email
 Dim objMail
 Dim NomdeDomaine ' Nom de domaine de la mailing-liste.
 Dim AdminEmail          ' Adresse Email de l'administrateur.
 Dim MailingAdresse      ' Adresse Email de votre mailing-Liste.
 ' Variable à modifier pour adapter ce code à votre mailing-liste.  
 ' ---------------------------------------------------------------
        NomdeDomaine   = "wwwwwwwwww.com"
        AdminEmail     = <a href="mailto:xxx@xxx.com">xxx@xxx.com</a>
        MailingAdresse = "<a href="mailto:mailing@xxxx.com">mailing@xxxx.com</a>"
 ' ---------------------------------------------------------------
 Email = Request.Form("Email")
 If Email<>"" then
  Set objMail = Server.CreateObject("Persits.MailSender")
                objMail.Host = "10.0.0.198"
  objMail.FromName = Trim(NomdeDomaine)
  objMail.From = Trim(AdminEmail)
  objMail.AddAddress "listserv@" & Trim(NomdeDomaine), "listserv@" & Trim(NomdeDomaine)
                objMail.Subject = "JOIN " & MailingAdresse & "," & Trim(Email)
  objMail.Body = "JOIN " & MailingAdresse & "," & Trim(Email)& ", " & vbCRLF
  If objMail.Send <>0 Then
                        response.redirect("wmailinsok.htm")
  Else
                        response.redirect("wmailinserr.htm")
  End if
  set objmail = nothing
 Else
                 response.redirect("wmailinserr.htm")
 End if
                 response.redirect("wmailinserr.htm")
%>

C'est surtout la gestion du résultat (erreurs ou ok) qui me péoccupe

Encore merci

[tthierry]

>Email = Request.Form("Email")<

si passage du formulaire en get :

Code :

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

1
2
 
$email=$_GET['Email'];

si en post :

Code :

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

1
2
 
$email=$_POST['Email']

>If Email<>"" then<

Code :

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

1
2
3
4
5
6
7
 
if ($email != "") {
    //envoi du mail
}
else {
    //pas ok
}

envoyer un mail :

Code :

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

1
2
 
mail(param1,param2,...);

>If objMail.Send <>0 Then<

Code :

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

1
2
3
4
5
6
7
 
if (mail(xxxxxx)) {
   //ok
}
else { 
    //pas ok
}

avec des vieux souvenir et pas en vb...

pour la fonction mail je te laisse voir ça :
http://fr3.php.net/manual/fr/ref.mail.php
http://fr3.php.net/manual/fr/function.mail.php

[FoxLeRenard]

>Email = Request.Form("Email")<

si passage du formulaire en get :

Code :

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

1
2
 
$email=$_GET['Email'];

si en post :

Code :

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

1
2
 
$email=$_POST['Email']

>If Email<>"" then<

Code :

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

1
2
3
4
5
6
7
 
if ($email != "") {
    //envoi du mail
}
else {
    //pas ok
}

envoyer un mail :

Code :

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

1
2
 
mail(param1,param2,...);

>If objMail.Send <>0 Then<

Code :

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

1
2
3
4
5
6
7
 
if (mail(xxxxxx)) {
   //ok
}
else { 
    //pas ok
}

avec des vieux souvenir et pas en vb...

pour la fonction mail je te laisse voir ça :
http://fr3.php.net/manual/fr/ref.mail.php
http://fr3.php.net/manual/fr/function.mail.php

Ok et mille mercis ça devrait marcher