Discussion :

[PsiKAmel]

Bonjour,

j'ai un script qui me permet d'envoyer des messages. Le souci, c'est que je vais en envoyer beaucoup à la suite (environ 50000), et donc, j'aimerais pouvoir avoir un rapport sur les mails envoyé ou non.

J'ai un peu fouillé, mais je n'ai pas trouvé comment savoir si un mail avait été envoyé avec succès ou non via MIME::Lite. (j'ai testé le die, mais même si je met un destinataire avec des espaces et sans @, je n'ai pas d'erreur).

Sauriez-vous comment faire ?

(j'ai aussi vu la méthode last_send_successful(), mais elle n'est pas reconnue chez moi)

[Invité]

J'ai un peu fouillé, mais je n'ai pas trouvé comment savoir si un mail avait été envoyé avec succès ou non via MIME::Lite. (j'ai testé le die, mais même si je met un destinataire avec des espaces et sans @, je n'ai pas d'erreur).

Tu peux faire une routine de vérification de syntaxe des adresses destinataires (pas d'espace, un @ suivi d'un domaine, d'un point et d'un TLD).

(j'ai aussi vu la méthode last_send_successful(), mais elle n'est pas reconnue chez moi)

Code Perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if ($msg->last_send_successful) {
       print "message envoye\n";
} else {
       print "message pas envoye\n";
}

[PsiKAmel]

Tu peux faire une routine de vérification de syntaxe des adresses destinataires (pas d'espace, un @ suivi d'un domaine, d'un point et d'un TLD).

En fait, c'est justement ce que je voulais éviter... ça me semblait logique que ce soit inclus dans le package

Code Perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if ($msg->last_send_successful) {
       print "message envoye\n";
} else {
       print "message pas envoye\n";
}

C'est justement ce que j'ai déjà fait, mais la méthode last_send_successful n'est pas reconnue. En regardant la doc du MIME::Lite installé sur ma machine, elle n'est pas présente. Et je ne peux pas changer cette version :S

[Invité]

Si tu ne peux pas changer de version, je n'ai pas d'autre idée alors, à part la routine que je t'ai conseillée.

[PsiKAmel]

ok, merci beaucoup

du coup, c'est ce que j'ai fait, tout simplement !

pour ceux qui sont intéressés, mon bout de code :

Code Perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
#variables pour la vérification des mails
my $atom = '[-a-z0-9!#$%&\'*+/=?^_`{|}~]';
my $domain = '([a-z]([-a-z0-9]*[a-z0-9]+)?)';
my $regex = '^'.$atom.'+'.'(\.'.$atom.'+)*'.'@'.'('.$domain .'{1,63}\.)+'.$domain.'{2,63}$';    
if ($dest =~ /$regex/){
}else{
}