Foro - Perl en Español

por **patito** » 2007-08-08 10:06 @463

Hola, necesito habilitar la opción de envío de correos en mi programa, ya instalé Mail::sendmail ver 0.79, Mime-Lite 3.71, pero no logro enviar el mail. El código es el siguiente:
Primer código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:\perl\bin\perl.exe 

use strict;
use MIME::Lite;

$msg= MIME::Lite->new(

From =>'[email protected]',

To =>'[email protected]',

subject =>'hola',

Data =>"prueba"
);

MIME::Lite->send('smtp',"ip de mi servidor de correo", Timeout=>60);
$msg->send;Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

con el código anterior aparece mensaje indicando "global symbol $msg requires explicit package name at mail.pl y el otro código con sendmail es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:\perl\bin\perl.exe 


use strict;
use Mail::Sendmail;

my%mail=(

To=>'[email protected]',

From=>'[email protected]',

Subject=>'asunto',

Message=>'mi mensaje',

smtp=>'ip de mi server de correo'
);

unless(sendmail(%mail)){
print"eeerror\n";
exit(1);
}
print"ok\n";
exit(1);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

e imprime el mensaje de error indicando que no pudo ejecutar el programa.

Help please!.

Y del segundo programa, tengo la duda de si te refieres a que no se pudo ejecutar el programa Perl o no se pude ejecutar el sendmail. En el segundo caso, necesitarás tener instalado un sendmail en tu ordenador.

Mail::Sendmail no funciona en Windows salvo que lo hagas bajo Cygwin.

Nosotros, en Windows, usamos el módulo Mail::Sender.

por **patito** » 2007-08-08 12:10 @548

Cambié el código y puse my $msg = MIME::Lite->new( y aparece el mensaje indicando Failed to conect to mail server :unknown error.

Y sí tengo el Mail::sendmail. Lo bajé de http://ppm.activestate.com/PPMPackages/ ... ilds-only/
al parecer sí opera pero no logra enviar el mail; aparece el mensaje de error que se indica en el código al no poder enviar:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

unless(sendmail(%mail)){
print"eeerror\n";
exit(1);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2007-08-08 12:58 @582

Que tengas el Mail::Sendmail no significa que te funcione. En el enlace que te he pasado antes se demuestra que el módulo no ha sido probado nunca en Windows (salvo bajo Cygwin).

El error que te sale con MIME::Lite quiere decir que no ha podido conectarse a la máquina que le has indicado en el segunda parámetro de la función send().

por **patito** » 2007-08-08 14:15 @635

Después de varias horas de realizar pruebas y no tener éxito, deshabilité el antivirus del servidor, y ¡FUNCIONO! se logró el envío de correos electrónicos, con Mime-Lite.

Para el caso de sendmail instalé el módulo autorizado por cygwin pero no logro enviar correos aun. En fin, muchas gracias por el apoyo tan oportuno que siempre me han brindado.

Saludos.

por **explorer** » 2007-08-08 15:10 @674

Es posible que el antivirus esté haciendo de proxy de correo, por lo que en ese caso, en vez de poner la IP de un servidor público de correo, tendrías que haber puesta la IP local de tu ordenador (127.0.0.1) para que el módulo se conectase a tu antivirus y luego este se encargara de enviarlo al exterior.

Eso se puede ver en la configuración de tu cliente de correo, en la sección conexiones.

Para el otro módulo te obligará instalar Cygwin, pero con tal de que te funcione uno, ya está.

Foro - Perl en Español

Sendmail

Sendmail

Publicidad

¿Quién está conectado?