Mostrando Codigo - Perl & Cgi
EXPLICACION
my $mailer=MIME::Lite->new(
para mas informacion:
http://www.tutores.org/public/google/?REQ=Mime::Lite
my $mailer=MIME::Lite->new(
From => "Mi amigo <$admin>",
To => $mail,
Subject => $subj,
Type =>'text/plain; charset=iso-8859-1',
Description=> 'Mail message body',
Data=> ' usuario: '.$user.' have a nice day')
or die "No se puede conectar al servidor: $@";
$@='';
$mailer->attach(
Type => $content_type,
Id => $file_name,
Disposition => 'attachment',
Data => $body);
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
COMENTARIOS
Comentario usuario
4
5
probando este envio de correo via cgi
Comentario usuario
3
5
que es bien y espero que no cambie