Помогите со скриптом

Discussion in 'PHP' started by T40, 26 May 2008.

  1. T40

    T40 Member

    Joined:
    10 May 2008
    Messages:
    3
    Likes Received:
    5
    Reputations:
    -1
    Нужен обычный, не навороченный скрипт отправления писем на мыло в формате html... корояче спама.. Я уже столько всего перепробовал, всё полное г***О..
    Разве нет обычного скрипта в которого вогнать базу, написать тему и всё??
    Помогите Уважаемые!
     
    4 people like this.
  2. .:KeepeR:.

    .:KeepeR:. Banned

    Joined:
    18 Feb 2008
    Messages:
    25
    Likes Received:
    43
    Reputations:
    0
    PHP:
    <?php

    function send_mail($MailTo = "", $SenderName = "Sender", $SenderMail = "no@reply.error", $Subject = "", $Mailcontent = "no.file", $Attachment = "no.file", $Servername = "PHPMAILSERVER", $nohtml  = "[ This message should be viewed in HTML. This is a degraded version! ]") {
        if(
    strtoupper(substr(PHP_OS,0,3)=='WIN')){
          
    $eol="\r\n";
          
    $sol="\n";
        }elseif(
    strtoupper(substr(PHP_OS,0,3)=='MAC')){
          
    $eol="\r";
        }else{
          
    $eol="\n";
        }
        if(!isset(
    $sol)){
            
    $sol = $eol;
        }
        
    $Momentn = mktime().".".md5(rand(1000,9999));
        
    $f_name       = $Attachment;
        
    $handle       = fopen($f_name, 'rb');
        
    $f_contents   = @fread($handle, filesize($f_name));
        
    $f_contents   = @base64_encode($f_contents);
        if(
    $handle){
            
    $sendfile = true;
            if(
    ini_get('mime_magic.debug')){
                
    $Bestype = @mime_content_type($Attachment);
            }else{
                
    $Bestype = 'application/octet-stream';
            }
            if(!
    $Bestype){
                
    $Bestype = 'application/octet-stream';
            }
            
    $file_realname = explode("/", $Attachment);
            
    $file_realname = $file_realname[count($file_realname)-1];
            
    $file_realname = explode("\\", $file_realname);
            
    $file_realname = $file_realname[count($file_realname)-1];
        }
        @
    fclose($handle);
        
    $Mailcontentstri  = explode($sol, $Mailcontent);
        
    $Mailcontentstrip = strip_tags($Mailcontentstri[0]);

        if(@
    file_exists($Mailcontentstrip)){
            
    ob_start();
            if(require(
    $Mailcontent)){
                
    $body  = ob_get_contents();
            }
            
    ob_end_clean();
        }else{
            if(
    count($Mailcontentstri) < 2){
                
    $body  = "Error loading file!";
                
    $error = true;
            }else{
                
    $body  = $Mailcontent;
            }
        }

        
    $Textmsg = eregi_replace("<br(.{0,2})>", $eol, $body);
        
    $Textmsg = eregi_replace("</p>", $eol, $Textmsg);
        
    $Textmsg = strip_tags($Textmsg);
        
    $Textmsg = $nohtml.$eol.$eol.$Textmsg;
        
    $headers      = 'To: '.$MailTo.' <'.$MailTo.'>'.$eol;
        
    $headers      .= 'From: '.$SenderName.' <'.$SenderMail.'>'.$eol;
        
    $headers      .= "Message-ID: <".$Momentn."@".$Servername.">".$eol;
        
    $headers      .= 'Date: '.date("r").$eol;
        
    $headers      .= 'Sender-IP: '.$_SERVER["REMOTE_ADDR"].$eol;
        
    $headers      .= 'X-Mailser: iPublications Adv.PHP Mailer 1.6'.$eol;
        
    $headers      .= 'MIME-Version: 1.0'.$eol;
        
    $bndp          = md5(time()).rand(1000,9999);
        
    $headers      .= "Content-Type: multipart/mixed; $eol       boundary=\"".$bndp."\"".$eol.$eol;
        
    $msg           = "This is a multi-part message in MIME format.".$eol.$eol;
        
    $msg          .= "--".$bndp.$eol;
        
    $bnd           = md5(time()).rand(1000,9999);
        
    $msg          .= "Content-Type: multipart/alternative; $eol       boundary=\"".$bnd."\"".$eol.$eol;
        
    $msg          .= "--".$bnd.$eol;
        
    $msg          .= "Content-Type: text/plain; charset=iso-8859-1".$eol;
        
    $msg          .= "Content-Transfer-Encoding: 8bit".$eol.$eol;
        
    $msg          .= $Textmsg.$eol;
        
    $msg          .= "--".$bnd.$eol;
        
    $msg          .= "Content-Type: text/html; charset=iso-8859-1".$eol;
        
    $msg          .= "Content-Transfer-Encoding: 8-bit".$eol.$eol;
        
    $msg          .= $body.$eol;
        
    $msg          .= "--".$bnd."--".$eol.$eol;
        if(isset(
    $sendfile)){
            
    $msg          .= "--".$bndp.$eol;
            
    $msg          .= "Content-Type: $Bestype; name=\"".$file_realname."\"".$eol;
            
    $msg          .= "Content-Transfer-Encoding: base64".$eol;
            
    $msg          .= "Content-Disposition: attachment;".$eol;
            
    $msg          .= "       filename=\"".$file_realname."\"".$eol.$eol;
            
    $f_contents    = chunk_split($f_contents);
            
    $msg          .= $f_contents.$eol;
        }
        
    $msg          .= "--".$bndp."--";
        if(!isset(
    $error)){
            if(@
    mail($MailTo, $Subject, $msg, $headers)){
                return 
    true;
            }else{
                return 
    false;
            }
        }else{
            return 
    false;
        }
    }

    $subject = file_get_contents ("mails_sub.txt");
    $mails = file_get_contents ("mails.txt");
    $mail_arr = explode(" ",$mails);

    while (list (
    $key, $val) = each ($mail_arr)) {

        
    send_mail($MailTo = $val,
              
    $SenderName = "Sender",
              
    $SenderMail = "no@reply.error",
              
    $Subject = $subject,
              
    $Mailcontent = "mails_mes.txt",
              
    $Attachment = "script.html",
              
    $Servername = "PHPMAILSERVER",
              
    $nohtml  = "[ This message should be viewed in HTML. This is a degraded version! ]");

        
    //mail($val,$subject,$message);
    }

    ?>

    mails_sub.txt - тут тема письма
    mails.txt - список мыл
    mails_mes.txt - текст письма
    script.html = прикрепленный файл
     
  3. T40

    T40 Member

    Joined:
    10 May 2008
    Messages:
    3
    Likes Received:
    5
    Reputations:
    -1
    Спасибо тебе добрый человек! буду пробовать!
     
  4. .:KeepeR:.

    .:KeepeR:. Banned

    Joined:
    18 Feb 2008
    Messages:
    25
    Likes Received:
    43
    Reputations:
    0
    в mail_sub.txt - тема письма - любьые слова пиши - в mail_mes.тхт - мессага письма - а в mails.тхт - список почтоьых ясчиков через пробел...



    PHP:
    <?php

    $subject 
    = file_get_contents ("mails_sub.txt");
    $message = file_get_contents ("mails_mes.txt");
    $mails = file_get_contents ("mails.txt");
    $mail_arr = explode(" ",$mails);

    while (list (
    $key, $val) = each ($mail_arr)) {
        
    mail($val,$subject,$message);
    }

    ?>
     
  5. T40

    T40 Member

    Joined:
    10 May 2008
    Messages:
    3
    Likes Received:
    5
    Reputations:
    -1
    А в столбик базу мыльников пускать мона?
     
    1 person likes this.