Foro - Perl en Español

por **explorer** » 2006-01-04 07:54 @370

reggiebcn escribiste:El mail no se llega a enviar, se keda en la cola asi:

EC1F923C37 488 Wed Jan 4 00:46:00 [email protected]
(connect to relay.upc.es[147.83.2.51]: Connection timed out)
[email protected]

A ver... el mensaje dice que ha ocurrido un timeout en la conexión con el servidor... puede ser porque ese servidor no responda o que esté esperando la autenticación para poder enviar.
¿Has conseguido alguna vez enviar correo desde esa máquina? Si no es así, primero tienes que averiguar cuál es tu servidor de correo más cercano que puedas utilizar -tener una cuenta de correo en él-.
Luego, podrás usar el módulo Email::Send para enviarle.
Para enviar un correo sólo necesitas saber 3 detalles: nombre del servidor de correo, nombre del usuario con el que te vas a identificar en él y la contraseña de ese usuario.

Código: Seleccionar todo: use Email::Send; my $message = <<'__MESSAGE__'; From: [email protected] To: [email protected] Subject: Nuevo boletin Hay un nuevo boletín __MESSAGE__ my $mailer = Email::Send->new( { mailer => 'SMTP', mailer_args => [ Host => 'relay.upc.es', username => 'regglebcn', password => 'sdfhc334', ] } ); $mailer->send($message);

Si el servidor de correo que vas a usar no necesita autenticación, más fácil todavía, porque no necesitas indicar username y password.

Vale, así que he de instalarme por ejemplo Postfix... En mi Ubuntu viene por defecto, pero no sé configurarlo, la verdad.

Y el programa sendmail que está incluido en la distro, ¿es el mismo que el Sendmail que se puede usar como servidor de correo? (por lo que he leído buscando por Google, muy difícil de configurar).

por **Kiloko** » 2008-06-06 17:56 @789

Yo tengo una duda sobre el programa que planteas,
Trabajo bajo Ubuntu, pero mi correo es Evolution que se basa en Exchange, pero ejecuto el programa y no aparece nada...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Email::Send;

my$message=<<'__MESSAGE__';

From: g@hotmail.com

To: g@hotmail.com

Subject: Nuevo boletin


Hay un nuevo boletín

__MESSAGE__

my$mailer= Email::Send->new(
{

    mailer =>'SMTP',

    mailer_args =>
[

      Host      =>'https://correoweb.local.com.mx/exchange/',

      username =>'usuario',

      password =>'pasword',
]
}
);
$mailer->send($message);Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Mencionas

Para enviar un correo sólo necesitas saber 3 detalles: nombre del servidor de correo, nombre del usuario con el que te vas a identificar en él y la contraseña de ese usuario.

Supongo que te refieres a mi servidor de correo en este caso Exchange, ¿usuario y pasword? ¿y esa parte de SMTP que utilizan otros programas? ¿a qué se refiere, no logro entender eso?

Aquí la pregunta sería ¿cómo puedo saber la IP de mi servidor de correo electrónico?

por **explorer** » 2008-06-06 19:57 @873

Prueba a cambiar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

Host      =>'https://correoweb.local.com.mx/exchange/',Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

Host      =>'correoweb.local.com.mx',Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

por **Kiloko** » 2008-06-09 12:20 @556

Listo, ya quedó...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use Mail::Sendmail;
 
# Creamos el hash con nuestro mensajes
my %mail = (
    To => '[email protected]',
    Cc =>  'miotrocorreo@,com.mx', 
    From => '[email protected]',
    Subject => 'HOLA SOY UN EJEMPLO',
    Message => 'SOY UN EJEMPLO DE Correo ',
    Smtp => 'equipo.local.mx'  # Esto era lo que fallaba, hubo que cambiarlo
);
unless (sendmail(%mail)) {
    # Error!
    print "ERROR\n";
    exit(1);
}
# Envío correcto.
print "OK. Log says:\n", $Mail::Sendmail::log;
#print "OK\n";
#exit(1);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y listo, era la dirección de SMTP.

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

por **Txemaracas** » 2011-04-04 10:16 @469

Hola tengo un problema al enviar un e-mail.
Probé este código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use strict;
use Mail::Sendmail;
 
open (MAIL,"|/usr/lib/sendmail -t");
print MAIL "To: to\@e.mail\n";
print MAIL "From: from\@e.mail\n";
print MAIL "Subject: Asunto del mensaje\n\n";
print MAIL "Cuerpo del mensaje\n";
close(MAIL);
 
exit(1);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

Alguien podría ayudarme, por favor.

Gracias.

por **explorer** » 2011-04-04 11:00 @500

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 '@'.

por **Txemaracas** » 2011-04-04 15:20 @680

Hola. Si pongo lo que me dijiste me dice lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

@ubuntu:~/Escritorio$ perl EnviarPrueba
sendmail: fatal: open /etc/postfix/main.cf: No such file or directoryColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
 
 
use strict;
use Mail::Sendmail;
 
 
 
open(SENDMAIL, "| /usr/sbin/sendmail -t"); 
print SENDMAIL "Reply-to: pedro\@hotmail.com"; 
print SENDMAIL "Subject: Mensaje con perl"; 
print SENDMAIL "To: pedrito\@hotmail.com"; 
print SENDMAIL "Content-type: text/plain"; 
print SENDMAIL "\n\n"; 
print SENDMAIL "Este es el texto del mensaje"; 
print SENDMAIL "\n\n"; 
close(SENDMAIL);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problemas al enviar mail con Perl

Re: Problemas al enviar mail con Perl

Publicidad

Re: Problemas al enviar mail con Perl

Re: Problemas al enviar mail con Perl

Re: Problemas al enviar mail con Perl

Re: Problemas al enviar mail con Perl

¿Quién está conectado?