Email list home
Rate this script at hotscripts.com

Source code for mailing list script

<?php
/*
Email list script
by phptutorial.info
*/

// to avoid showning errors (change to 1 to show them). For security
error_reporting(0);

// if info is posted, show the form and die
// the form is in the bottom of the page
if (!$_POST){print_form();die();}

// when info is posted you will be here
?>

<html>
<head>
  <title>Email list</title>
</head>
<body bgcolor=FFFFFF>
<?php

// GET EMAIL
        $email=$_POST["email"];
        // To avoid problems, only lower case is used
        $email=strtolower($email);
        // Check whether email is correct by using a function
        //  function requires the email address and the error message
        check_email ($email, "Error: email is not valid.");

// GET VALUE FOR action : subc (subscribe) or unsubc (unsubscribe)
$action=$_POST["action"];

// this is the file with the info (emails)
//    When using the link in the top to download the complete script, a new name for this file
//    will be generated (p.e.: emaillist-2ax1fd34rfs.txt), so users will be unable to find it
$file = "emaillist-G4XwB21OHW.txt";

// lets try to get the content of the file
if (file_exists($file)){
        // If the file is already in the server, its content is pasted to variable $file_content
        $file_content=file_get_contents($file);
}else{
        // If the file does not exists, lets try to create it
        //   In case file can not be created (probably due to problems with directory permissions),
        //   the users is informed (the first user will be the webmaster, who must solve the problem).
        $cf = fopen($file, "w") or die("Error: file does not exits, and it can not be create.<BR>Please check permissions in the directory or create a file with coresponding name.");
        fputs($cf, "Mailing list subscribers\n");
        fclose($cf);
}

// IF REQUEST HAS BEEN TO SUBSCRIBE FROM MAILING LIST, ADD EMAIL TO THE FILE
if ($action=="subc"){
        // check whether the email is already registered
        if(strpos($file_content,"<$email>")>0){die("Error: your email is already included in this mailing list");}
        // write the email to the list (append it to the file)
        $cf = fopen($file, "a");
        fputs($cf, "\n<$email>");       // new email is written to the file in a new line
        fclose($cf);
        // notify subscription
        print "Your email has been added to our mailing list.<br>Thanks for joining us.";
}
// IF REQUEST HAS BEEN TO UNSUBSCRIBE FROM MAILING LIST, REMOVE EMAIL FROM THE FILE
if ($action=="unsubc"){
        // if email is not in the list, display error
        if(strpos($file_content,"<$email>")==0){die("Error: your email is not included in this mailing list");}
        // remove email from the content of the file
        $file_content=preg_replace ("/\n<$email>/","",$file_content);
        // print the new content to the file
        $cf = fopen($file, "w");
        fputs($cf, $file_content);
        fclose($cf);
        // notify unsubscription
        print "Your email has been removed from our mailing list. ";
}

?>
</body>
</html>

<?php
// THIS FUNCTION WILL CHECK WHETHER AN EMAIL IS CORRECT OR NOT
//      FIRST, BASIC ARCHITECTURE IS CHECKED
//      THEM, EXISTANCE OF THE EMAIL SERVER IS CHECKED
// If email is not correct, the error message is shown and page dies
function check_email ($email, $message){
        // check if email exists
           if ($email==""){die($message);}
        // check whether email is correct (basic checking)
           $test1=strpos($email, "@");                                     //value must be >1
           $test2=strpos(substr($email,strpos($email,"@")), ".");          //value must be >1
           $test3=strlen($email);                                          //value must be >6
           $test4=substr_count ($email,"@");                               //value must be 1
           if ($test1<2 or $test2<2 or $test3<7 or $test4!=1){die($message);}
        // check whether email is correct (advance checking)
           // extracts whatever is after "@" to variable $email_server
           $email_server=substr($email,strpos($email, "@")+1);
           // Check DNS records (0 => the server exists; 1=> the server does not exist)
           if (checkdnsrr($email_server)!=1){die ($message);}
}

// THIS FUNCTION WILL SHOW THE FORM
// MODIFY IT AS REQUIRED
function print_form(){
?>

<html>
        <head>
                <title>My mailing list</title>
        </head>
        <body style="background-color: rgb(255, 255, 255);">
        <center>
        <p>&nbsp;<p>&nbsp;
        <form action="<?php $PHP_SELF; ?>" method="post">
          <table>
             <tr>
             <td>
                <div style="text-align: center;">
                        <big style="font-weight: bold;">Join my mailing list </big><br>
                        </div>
                        &nbsp;<input name="email" size="30" type="text"> <br>
                        <div style="text-align: center;">
                        <input name="action" value="subc" checked="checked" type="radio">Subscribe
                        <input name="action" value="unsubc" selected="" type="radio">Unsubscribe
                        <br>
                </div>
                <div style="text-align: center;">
                        <input value="Submit" type="submit">
                </div>
              </td>
              </tr>
          </table>
        </form>
        
        <font size="2">Script provided by <a href="http://www.phptutorial.info/">PhpTutorial.info</a>.
        </font></center>
        </body>
        </html>

<?php
} // the function finishes here
?>

NOTES

Copy the code in the textarea to "whatever.php" and place it in your server.
If you are working in a Windows server, you may have problems with command checkdnsrr. Remove into the code the line containig this command and try again. In linux there are no problems.
This code will create a file named "emaillist-G4XwB21OHW.txt" in your server. In case this action is not allowed, check permissions in the directory, or create a file with this name and place it in the server.
You may remove the link to this site from the code, but please consider maintainig it.

Source code to send emails to emailing list

<?php
error_reporting(0);
//#############################################################
//#################   CONFIGURATION  ##########################

// choose a password
$my_password="G4XwB21OHW";
// the email from which emails are send
//  mydomain.com must be your real domain, otherways,
//  the server will not send any emails
$from_email="John Smith <me@mydomain.com>";
// Your replay to email (whatever you want).
$replayto="me@mydomain.com";
// A message to be attached to the bottom of the message
//   We recommend to add a link to subscription page
$message_at_bottom="
------------------------------------------------------------
P.D.: To remove from this list go to...
http://www.mydomain.com/emaillist/
";
// The file where emails are stored
$emails_file="emaillist-G4XwB21OHW.txt";

//###############   END CONFIGURATION  ########################
//#############################################################

// IF INFO IS NOT POSTED, PRINT THE FORM AND DIE
if (!$_POST["mensaje"]){
        print_form();
        die();
}

// IF INFO IS POSTED YOU WILL BE HERE
// Check whether the password is correct
//  (only webmaster is supposed to know the password, which has been specified above)
if ($_POST["p"]!=$my_password){die("Incorrect password");}

// Get the subject of message
$subject =$_POST["subject"];
// Get the body of message
$message=$_POST["mensaje"];
// Add to body of message the bottom
$message.=$message_at_bottom;
// Read the file with emails to variable $emails_file
$emails_file=file_get_contents($emails_file);
// Extract list of emails to array $emails_array
preg_match_all("/<.{0,100}?>/",$emails_file,$emails_array);

// Start output
print "<b>Sending messages...</b>";

// Send email to each email
foreach ($emails_array[0] as $email){
        // remove "<" and ">" from each email
        $email=substr($email,1,strlen($email)-2);
        // Next line is the one sending the email: the key command of this script
        mail($email, $subject, $message,"From: $from_email\nReply-To: $replayto\nContent-Type: text/plain");
        // Each time an email is send, output it
        print "<br>$email\n";
        // After sending each email, send previous line (the email) to the browser
        flush();
}

</body>
</html>

<?php
// THIS FUNCTION WILL SHOW THE FORM
// MODIFY IT AS REQUIRED
function print_form(){
?>

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta content="text/html; charset=ISO-8859-1"  http-equiv="content-type">
  <title>My email list</title>
</head>
<body style="background-color: rgb(255, 255, 255);">
<center>
<h2>Form to send email to the mailing list</h2>
<table style="font-family: times new roman;" border="0" cellpadding="0" cellspacing="0">
  <tbody>
    <tr>
      <td style="vertical-align: top;">
                <form method=POST action="<?php $PHP_SELF; ?>".php>
                Subject
                <br><input type=text name=subject size=40>
                <br>Message
                <br><textarea name=mensaje cols=50 rows=8></textarea>
                <br>Password <input type=password name=p size=10>
                <br><input type=submit value=Send>
                </form>
      </td>
    </tr>
  </tbody>
</table>
</center>
</body>
</html>

<?php } ?>

NOTES

Copy the code in the textarea to "whatever2.php" and place it in your server.
Configurate the script (customize your information in top the code).
The code of this script is describer here.

PHPTutorial.info