CGI que envíe un mail multipart
Publicado: 2016-05-12 05:38 @276
¡Buenos días!
Estoy tratando de programar un CGI que, entre otras cosas, envíe un correo con determinado texto y con una imagen a modo de firma.
Mi código es este:
Pero no lo consigo. Me llega solo la segunda parte y mal: ayer llegué a recibir la imagen sola. Hoy (que no he tocado nada) me llega el icono de cuando muestras una imagen de una dirección que no existe. La imagen firma.png está en el mismo directorio que el CGI.
Cualquier ayuda, indicación, recomendación, etc ¡será bienvenida!
¡Muchas gracias!
Cristina
Estoy tratando de programar un CGI que, entre otras cosas, envíe un correo con determinado texto y con una imagen a modo de firma.
Mi código es este:
Using perl Syntax Highlighting
- my $correo = Email::MIME->create(
- attributes => {
- content_type => 'multipart/alternative',
- },
- header_str => [
- From => 'usuario',
- To => join(',', @direcciones),
- Subject => encode('MIME-B', $asunto),
- ],
- parts => [
- Email::MIME->create(
- attributes => {
- content_type => 'text/plain' ,
- encoding => 'quoted-printable',
- charset => 'utf-8',
- },
- body => $cuerpoCorreo,
- ),
- Email::MIME->create(
- attributes => {
- content_type => 'text/html'
- },
- body => '<img src="firma.png">',
- )
- ],
- );
- my $transporte = Email::Sender::Transport::SMTP::TLS->new(
- host => 'servidor.correo.es',
- port => 587,
- username => 'usuario',
- password => 'contraseña',
- );
- try {
- sendmail( $correo, {transport => $transporte} );
- }
- catch {
- print "<br><b>Error enviando datos: $_</b><br><br>";
- };
Coloreado en 0.008 segundos, usando GeSHi 1.0.8.4
Pero no lo consigo. Me llega solo la segunda parte y mal: ayer llegué a recibir la imagen sola. Hoy (que no he tocado nada) me llega el icono de cuando muestras una imagen de una dirección que no existe. La imagen firma.png está en el mismo directorio que el CGI.
Cualquier ayuda, indicación, recomendación, etc ¡será bienvenida!
¡Muchas gracias!
Cristina