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