• Publicidad

Envío de emails con Perl

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Notapor explorer » 2008-01-07 14:56 @664

Cabe la posibilidad de que sea un filtrado del servidor de correo. Haz una prueba: envía los correos pero con unos segundos entre ellos, no enviarlos de forma inmediata. Prueba con diez segundos y vete aumentando o reduciendo según falle (si falla).

Para lo que quieres... yo hubiera escogido una solución de "lista de correo".
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Publicidad

Notapor explorer » 2008-01-07 15:27 @685

Otra cosa que se me ocurre: se pueden poner varios destinatarios, en el campo CCO, pero aquí también puede existir una limitación. Por ejemplo, a nuestros clientes le ponemos un límite de 600 direcciones.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor teamvipconnectz » 2008-01-07 15:32 @689

Pues estoy intentando enviar SOLAMENTE UN EMAIL con el script que puse en el último post, no creo que influya en algo el tiempo de espera si solo quiero enviar un email, ¿o si?

De cualquier manera lo probé cambiando los tiempos de esta manera y siguió exactamente con el mismo error:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
MIME::Lite->send('smtp', $host, Timeout=>60, AuthUser=>$user, AuthPass=>$pass);
$msg->send;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


¿Cómo es lo de la lista de correo? ¿Sabes en dónde hay información sobre eso? para ver si logro adaptarlo a todo lo que ya tengo.
teamvipconnectz
Perlero nuevo
Perlero nuevo
 
Mensajes: 20
Registrado: 2008-01-02 20:33 @898

Notapor explorer » 2008-01-07 16:28 @727

No, no puede ser por uno...

Una cosa... la línea que pones (MIME::Lite->send()) deberías ejecutarla UNA sola vez.

Para empezar... Lista de correo.

Suele ser un servicio ofrecido por el hosting, aunque no les gusta mucho...
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor explorer » 2008-01-07 16:46 @740

Prueba con esto:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use lib('lib');
use CGI::Carp qw(fatalsToBrowser);
use MIME::Lite;

my $usuario  = '[email protected]';
my $password = 'mipass';
my $host     = '00.00.00.000';

my $msg = MIME::Lite->new(
    From    => '[email protected]',
    To      => '[email protected]',
    Subject => 'CGI email',
    Data    => "FUNCIONA",
);

$msg->send('smtp', $host, AuthUser=>$usuario, AuthPass=>$password, Debug => 1);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

He hecho un par de cambios... entre ellos, activar el Debug, por si así te da más pistas.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor teamvipconnectz » 2008-01-07 16:47 @741

Este es el script, solo tengo una dirección de correo en el destinatario, por eso digo que solo estoy intentando enviar un solo email, para probar que realmente funcione mi script:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl

use lib('lib');
use CGI::Carp qw(fatalsToBrowser);
use MIME::Lite;
use Authen::SASL;
use strict;

my($user)='[email protected]';
my($pass)='mipass';
my($host)='00.00.00.000';

my $msg = MIME::Lite->new(
From =>'[email protected]',
To =>'[email protected]',
Subject =>'CGI email',
Data =>"FUNCIONA"
);

MIME::Lite->send('smtp', $host, AuthUser=>$user, AuthPass=>$pass);
$msg->send;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


¿Cómo puedo saber si estoy ejecutando la línea (MIME::Lite->send()) solo una vez? ¿Así como tengo el script se está ejecutando una sola vez?
teamvipconnectz
Perlero nuevo
Perlero nuevo
 
Mensajes: 20
Registrado: 2008-01-02 20:33 @898

Notapor explorer » 2008-01-07 17:24 @767

Pero ¿has visto mi anterior mensaje? Puedes quitar la línea MIME::Lite->send() y juntarla con la de $msg->send();
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor teamvipconnectz » 2008-01-07 17:26 @768

ok, no lo había visto, pero ahorita mismo pruebo eso a ver qué tal.
teamvipconnectz
Perlero nuevo
Perlero nuevo
 
Mensajes: 20
Registrado: 2008-01-02 20:33 @898

Notapor teamvipconnectz » 2008-01-07 17:33 @773

Lo he probado como dices explorer y sale exactamente el mismo error:

Código: Seleccionar todo
Unknown callback: 'authname'. (user|auth|language|pass)


No tengo ni la más mínima idea de qué trata este error porque por más que busco información acerca de él no encuentro nada claro.
teamvipconnectz
Perlero nuevo
Perlero nuevo
 
Mensajes: 20
Registrado: 2008-01-02 20:33 @898

Notapor explorer » 2008-01-07 18:33 @814

Yo sí que he encontrado algo:
http://search.cpan.org/src/PBOETTCH/Aut ... r/Cyrus.xs

Es un mensaje que sale cuando se ha llamado a una función llamada 'authname' pero solo están disponibles en el módulo las 4 indicadas en el par de paréntesis.

Es decir: le hemos pasado un atributo 'AuthName' a MIME::Lite y éste lo ha intentado pasar a los módulos de autenticación del SMTP. Uno de ellos, entonces, ha intentado ejecutar la función 'authname' para pasarle al protocolo el valor correspondiente, pero la función responde diciendo que esa función no existe. Como mucho, que existe algo llamado auth.

Sigo buscando... en un foro comentaban el uso Email::Send y en otro, el uso de Net::SMTP::TLS, pero creo que no es sobre esto.

Decir, además, que este error está marcado en la lista de errores de Net::SMTP_auth.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14482
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

AnteriorSiguiente

Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron