Perl & Cgi - Envio de correo usando Mime::Lite
Códigos Perl & Cgi
Metodo para enviar emails usando Mime::Lite y archivo adjunto
Tutores.org
Mostrando Codigo - Perl & Cgi
EXPLICACION
my $mailer=MIME::Lite->new(
para mas informacion:
http://www.tutores.org/public/google/?REQ=Mime::Lite
CODIGO
// Codigo ofrecido por Tutores.org
- 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')
- $@='';
- $mailer->attach(
- Type => $content_type,
- Id => $file_name,
- Disposition => 'attachment',
- Data => $body);
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Envio de correo usando Mime::Lite" href="http://www.tutores.org/codigo/569/" target="_blank">Envio de correo usando Mime::Lite</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Envio de correo usando Mime::Lite" href="http://www.tutores.org/codigo/569/" target="_blank">Envio de correo usando Mime::Lite</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS