<HTML>
<?
//// function mail555のはじめ
function mail555 ( $to , $subject, $mes , $header , $from )
{
$pipe = popen ( /usr/local/bin/nkf -j | /usr/sbin/sendmail -f $from -t ,w) ;
if ( $pipe ) {; } else { print canot popen sendmail -f $from -t <BR>
; return (-1) ; }
fwrite ( $pipe , To: $to
) ;
fwrite ( $pipe , From: $from
) ;
fwrite ( $pipe , Subject: $subject
) ;
if ( $header != ) { fwrite ( $pipe , $header
) ; }
fwrite ( $pipe ,
) ;
fwrite ( $pipe , $mes
) ;
pclose ( $pipe) ;
return (0) ;
}
//// function mail555の終り
$to=user@www.yourdomain.com ;
$mes01=Sorry This test mail by http://www.yourdomain.com/.s/send1.php ;
$fromaddress=user@www.yourdomain.com ;
$header00= cc: user@www.yourdomain.com ;
$subject = Testmail sorry ;
mail555 ( $to , $subject , $mes01 , $header00, $fromaddress ) ;
print Test mail $to $subject $mes01 From: $fromaddress ;
?>
</HTML>