Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 
Índice general » Mundo Perl » Avanzado » Problemas al enviar mail con Perl Responder al tema
Nuevo tema


Página 2 de 2  [ 23 mensajes ]  Ir a página Anterior  1, 2
 
Nota 2008-06-06 19:57 @873
Avatar de Usuario
Administrador
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Mensajes: 10270
Prueba a cambiar
Syntax: [ Download ] [ Hide ]
Using perl Syntax Highlighting
Host      => 'https://correoweb.local.com.mx/exchange/',

por
Syntax: [ Download ] [ Hide ]
Using perl Syntax Highlighting
Host      => 'correoweb.local.com.mx',


De todas formas, yo creo que con el protocolo SMTP, no funcionará el acceder a un servicio vía web de Exchange.

_________________
JF^D Perl programming


Nota 2008-06-09 12:20 @556
Avatar de Usuario
Perlero Adicto
Registrado: 2007-07-10 18:26 @810
Ubicación: MOnterrey NL
Mensajes: 244
Listo, ya quedó...

Syntax: [ Download ] [ Hide ]
Using perl Syntax Highlighting
  1. use strict;
  2. use Mail::Sendmail;
  3.  
  4. # Creamos el hash con nuestro mensajes
  5. my %mail = (
  6.     To => 'micorrreo@hotmail.com',
  7.     Cc =>  'miotrocorreo@,com.mx',
  8.     From => 'sucorreo@mexico.com.mx',
  9.     Subject => 'HOLA SOY UN EJEMPLO',
  10.     Message => 'SOY UN EJEMPLO DE Correo ',
  11.     Smtp => 'equipo.local.mx'  # Esto era lo que fallaba, hubo que cambiarlo
  12. );
  13. unless (sendmail(%mail)) {
  14.     # Error!
  15.     print "ERROR\n";
  16.     exit(1);
  17. }
  18. # Envío correcto.
  19. print "OK. Log says:\n", $Mail::Sendmail::log;
  20. #print "OK\n";
  21. #exit(1);


Y listo, era la dirección de SMTP.
:D

Encontré esta liga, y me sirvió mucho
http://cpan.uwinnipeg.ca/htdocs/Mail-Sendmail/README.html

_________________
Nunca interrumpas a tu enemigo cuando está cometiendo un error
Napoleón Bonaparte


Nota 2011-04-04 10:16 @469

Perlero Frecuente
Registrado: 2011-04-04 10:06 @462
Mensajes: 133
Re: Problemas al enviar mail con Perl
Hola tengo un problema al enviar un e-mail.
Probé este código:
Syntax: [ Download ] [ Hide ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use Mail::Sendmail;
  5.  
  6. open (MAIL,"|/usr/lib/sendmail -t");
  7. print MAIL "To: to\@e.mail\n";
  8. print MAIL "From: from\@e.mail\n";
  9. print MAIL "Subject: Asunto del mensaje\n\n";
  10. print MAIL "Cuerpo del mensaje\n";
  11. close(MAIL);
  12.  
  13. exit(1);



pero me da el siguiente error:
"Global symbol "@hotmail" requires explicit package name at EnviarPrueba"

Alguien podría ayudarme, por favor.

Gracias.


Nota 2011-04-04 11:00 @500
Avatar de Usuario
Administrador
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Mensajes: 10270
Re: Problemas al enviar mail con Perl
Bienvenido a los foros de Perl en español, Txemaracas.

El código que muestras no genera ese mensaje de error. No aparece @hotmail por ningún sitio.

Lo más seguro es que tengas una línea con un @hotmail dentro de un entrecomillado doble. Perl estará entonces buscando la variable @hotmail, y no la encuentra.

Lo puedes solucionar poniendo un '\' delante de la '@'.

_________________
JF^D Perl programming


Nota 2011-04-04 15:20 @680

Perlero Frecuente
Registrado: 2011-04-04 10:06 @462
Mensajes: 133
Re: Problemas al enviar mail con Perl
Hola. Si pongo lo que me dijiste me dice lo siguiente:

Syntax: [ Download ] [ Hide ]
Using bash Syntax Highlighting
@ubuntu:~/Escritorio$ perl EnviarPrueba
sendmail: fatal: open /etc/postfix/main.cf: No such file or directory


Syntax: [ Download ] [ Hide ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2.  
  3.  
  4. use strict;
  5. use Mail::Sendmail;
  6.  
  7.  
  8.  
  9. open(SENDMAIL, "| /usr/sbin/sendmail -t");
  10. print SENDMAIL "Reply-to: pedro\@hotmail.com";
  11. print SENDMAIL "Subject: Mensaje con perl";
  12. print SENDMAIL "To: pedrito\@hotmail.com";
  13. print SENDMAIL "Content-type: text/plain";
  14. print SENDMAIL "\n\n";
  15. print SENDMAIL "Este es el texto del mensaje";
  16. print SENDMAIL "\n\n";
  17. close(SENDMAIL);


Nota 2011-04-04 16:43 @738
Avatar de Usuario
Administrador
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Mensajes: 10270
Re: Problemas al enviar mail con Perl
El error, ahora, se refiere a que no tienes configurado, correctamente, tu sistema de envío de correos.

No se trata de un problema de Perl, sino de que configures bien el sistema de transporte de correo postfix en tu sistema operativo.

_________________
JF^D Perl programming


Nota 2011-04-05 05:19 @263

Perlero Frecuente
Registrado: 2011-04-04 10:06 @462
Mensajes: 133
Re: Problemas al enviar mail con Perl
Hola, muchas gracias por tu ayuda. Espero no ser muy pesado. Es que estoy aprendiendo poco a poco tanto a usar Linux como Perl y estoy un poco perdido, a veces. He encontrado una guía para configurar el postfix pero, la verdad, hay alguna cosa que no entiendo muy bien. Por ejemplo, esto:

root@regocorreo:~# cd /etc/postfix/
root@regocorreo:~# nano main.cf

(Archivo principal de configuración
donde definiremos los parámetros que este servidor tendrá)

Nos dirigimos a las últimas líneas donde se encontraran las variables a modificar:
myhostname regocorreo.lucas.com

(Nombre del host que tiene el servidor de correo, recuerde
que este nombre debe de ser el que hemos configurado en el DNS)


mydomain lucas.com
(Dominio para el cual recibiremos correos electronicos)
¿Aquí sería hotmail o algo?

mydestination lucas.com
(Podremos recibir correos para la máquina local, donde realizaremos
nuestras primeras pruebas)

mynetworks 192.168.1.0/24, 127.0.0.0/8
(Definiremos la dirección de red, de donde queramos que puedan salir o
entrar los correos) ¿esto lo dejo así?

Sino puedes ayudarme, no pasa nada.
Muchas gracias.


Nota 2011-04-05 05:51 @285
Avatar de Usuario
Administrador
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Mensajes: 10270
Re: Problemas al enviar mail con Perl
Me parece que estás un poco perdido... No tienes que configurar un servidor de recepción de correo (MSA), sino un agente de transporte de correo (MTA).

No conozco postfix, pero, en principio, te valdría con configurarlo con el nombre del servidor de correo al que tiene que conectarse para poder reenviarle los correos que le vas a enviar.

_________________
JF^D Perl programming


Responder al tema  [ 23 mensajes ]  Ir a página Anterior  1, 2

Reglas del Foro
No puedes abrir nuevos temas en este Foro
No puedes responder a temas en este Foro
No puedes editar tus mensajes en este Foro
No puedes borrar tus mensajes en este Foro
No puedes enviar adjuntos en este Foro

Publicidad

Socializa

Síguenos por Twitter

Suscríbete GRATUITAMENTE al Boletín de Perl en Español

Saltar a:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traducción al español por Huan Manwë para phpbb-es.com
phpBB SEO