Mostrando Codigo - Perl & Cgi
Envio de correo usando Mime::Lite
Metodo para enviar emails usando Mime::Lite y archivo adjunto
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')
or die "No se puede conectar al servidor: $@";
$@='';
$mailer->attach(
Type => $content_type,
Id => $file_name,
Disposition => 'attachment',
Data => $body);
$mailer->send();
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
vane
probando este envio de correo via cgi
victor 01-10-2007 08:23:43
que es bien y espero que no cambie
INSERTAR COMENTARIO