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

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($handlefilesize($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.