open (FILE, "$datadir/sendme.txt") || &error_message("Can't file temp file for sending mail - $datadir/sendme.txt.");
$sendthis = <FILE>;
close(FILE);

 if ($action eq 'moremail')
         {
         $osubject = $INFO{'osubject'};
         $usename = $INFO{'usename'};
         $obname = $INFO{'obname'};
         $oaname = $INFO{'oaname'};
         $list = $INFO{'list'};
         $osubject =~ s/_/ /g;
         $osubject =~ s/%26/\&/g;
         $oaname =~ s/_/ /g;
         $oaname =~ s/%26/\&/g;
         $obname =~ s/_/ /g;
         $obname =~ s/%26/\&/g;
         }
 else
         {
         $startat = 0;
         }

 open (FILE, "$datadir/$list\.txt") || die "Can't open $datadir/lists\.txt\n";
 @info = <FILE>;
 close(FILE);
 $num = @info;
 $endat = $startat + $increment;
 $lastone = 0;
 if ($num < $endat)
         {
         $endat = $num;
         $lastone = 1;
         }
 for ($a = $startat; $a < $endat; $a++)
         {
         ($name,$recipient,$nochop) = split(/,/,$info[$a]);
         if ($recipient =~ /.*\@.*\..*/)
                 {


                 open (MAIL, "|$mailprog") || die "Can't open $mailprog!\n";
                 print MAIL "To: $recipient\n";
                 print MAIL "From: $omultiname < $omultimail >\n";
                 print MAIL "Subject: $osubject\n";
                      		print MAIL "Content-type: text/html;\n\n";
                 if ($usename eq 'yes')
                         {
                         print MAIL "$obname $name$oaname<BR>\n\n";
	           $sendthis=~s/\[NAME\]/$name/gie;
                         }

                 print MAIL $sendthis, "\n";
                 close (MAIL);
                 }
         }