ERREUR : [Client does not have permission to submit mail to this server]

Version imprimable

Bonjour,

j'ai un souci avec un script d'envoi de mail depuis que je viens de changer de serveur smtp :

Voila mon script :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use Net::SMTP;	#Perl librairy, to send MAIL and SMS
	my $smtpserver = "@serveur";
	my $from = "user\@serveur" ;
	my $replyaddr = "user\@serveur";			
	my $to = "user\@serveur";	#Destination mail
 
	my $smtp = Net::SMTP->new("$smtpserver", Timeout => 120, Debug => 1);
 
	$smtp->mail("$from");
	$smtp->to("$to");
	$smtp->data();
	$smtp->datasend("To: ".$to."\n");
	$smtp->datasend("From: ".$from."\n");
	$smtp->datasend("Reply-to: ".$replyaddr."\n") if $replyaddr;
	$smtp->datasend("X-Mailer: Perl Sendmail \n");
	$smtp->datasend("Subject: alarm");	#Subject of your email
	$smtp->datasend("\n");	#Use \n to skip a line									
	$smtp->datasend("My first email!\n");	#Body of the message
	$smtp->dataend();
	$smtp->quit();

et voila l'erreur que j'obtiens en activant le debug :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Net::SMTP: Net::SMTP(2.26)
Net::SMTP:   Net::Cmd(2.18)
Net::SMTP:     Exporter(5.562)
Net::SMTP:   IO::Socket::INET(1.25)
Net::SMTP:     IO::Socket(1.26)
Net::SMTP:       IO::Handle(1.21)
 
Net::SMTP=GLOB(0x8831b90)<<< 220 FRVELSBHS02.com   Mon, 23 Jun 2008 11:43:16 +0200
Net::SMTP=GLOB(0x8831b90)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x8831b90)<<< 250-FRVELSBHS02.com Hello [155.132.232.100]
Net::SMTP=GLOB(0x8831b90)<<< 250-TURN
Net::SMTP=GLOB(0x8831b90)<<< 250-SIZE
Net::SMTP=GLOB(0x8831b90)<<< 250-ETRN
Net::SMTP=GLOB(0x8831b90)<<< 250-PIPELINING
Net::SMTP=GLOB(0x8831b90)<<< 250-DSN
Net::SMTP=GLOB(0x8831b90)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x8831b90)<<< 250-8bitmime
Net::SMTP=GLOB(0x8831b90)<<< 250-BINARYMIME
Net::SMTP=GLOB(0x8831b90)<<< 250-CHUNKING
Net::SMTP=GLOB(0x8831b90)<<< 250-VRFY
Net::SMTP=GLOB(0x8831b90)<<< 250-TLS
Net::SMTP=GLOB(0x8831b90)<<< 250-STARTTLS
Net::SMTP=GLOB(0x8831b90)<<< 250-X-EXPS GSSAPI NTLM
Net::SMTP=GLOB(0x8831b90)<<< 250-AUTH GSSAPI NTLM
Net::SMTP=GLOB(0x8831b90)<<< 250-X-LINK2STATE
Net::SMTP=GLOB(0x8831b90)<<< 250-XEXCH50
Net::SMTP=GLOB(0x8831b90)<<< 250 OK
Net::SMTP=GLOB(0x8831b90)>>> MAIL FROM:<user@serveur.fr>
Net::SMTP=GLOB(0x8831b90)<<< 454 5.7.3 Client does not have permission to submit mail to this server.
Net::SMTP=GLOB(0x8831b90)>>> RCPT TO:<user@serveur.fr>
Net::SMTP: Unexpected EOF on command channel at D:\PERL_mail&sms.pl line 12

Est-ce que quelqu'un a une idée ? J'ai lu des choses sur la librairie perl TLS et c'est possible qu'elle résolve mon problème mais je ne sais pas où la télécharger pour mon pc sachant que j'ai XP pro comme OS.. ?

Merci d'avance, bap

23/06/2008, 15h48
Jedai

Lis la FAQ pour savoir comment installer des modules sur Windows avec ActivePerl (utilises PPM), Net::SMTP::TLS ou Net::SMTP::SSL devrait faire l'affaire selon le schéma d'authentification supporté par ton serveur. (http://trouchelle.com/ppm/ est un repository contenant ces modules).

--
Jedaï

Re-bonjour,

je me suis penché un peu sur le problème et il semblerait que le nouveau serveur que j'utilise requiert une authentification. J'ai donc modifié mon code en utilisant la librairie TLS :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use Net::SMTP::TLS;	#Perl librairy, to send MAIL and SMS
	my $smtpserver = "@serveur";
	my $from = "user\@serveur" ;
	my $replyaddr = "user\@serveur";			
	my $to = "user\@serveur";	#Destination mail
 
	my $smtp = Net::SMTP::TLS->new("$smtpserver", user => 'domain\user', password => 'password', Timeout => 120, Debug => 1);
 
	$smtp->mail("$from");
	$smtp->to("$to");
	$smtp->data();
	$smtp->datasend("To: ".$to."\n");
	$smtp->datasend("From: ".$from."\n");
	$smtp->datasend("Reply-to: ".$replyaddr."\n") if $replyaddr;
	$smtp->datasend("X-Mailer: Perl Sendmail \n");
	$smtp->datasend("Subject: alarm");	#Subject of your email
	$smtp->datasend("\n");	#Use \n to skip a line									
	$smtp->datasend("My first email thru TLS!\n");	#Body of the message
	$smtp->dataend();
	$smtp->quit();

Et voila les erreurs issues du mode debug :

Code:

1
2
3
 
Can't locate auto/Net/SSLeay/autosplit.ix [....]
Can't locate loadable object for module Net::SSLeay [...]

Merci d'avance pour le coup de pouce, bap

23/06/2008, 16h03
Jedai

Et je suppose que tu as suivi les conseils de la FAQ et utilisé ppm pour installer Net::SMTP::TLS ?

--
Jedaï

Bonjour Jedai, le forum,

j'ai bien suivi ce qu'il y a d'écrit dans la FAQ mais j'ai une erreur :
Code:

1 2 3 4 5 6 7 8 ppm> install Net-SMTP-TLS.ppd Error: Package 'Net-SMTP-TLS' not found. Please 'search' for it before. ppm> search Net-SMTP-TLS.ppd Searching in Active Repositeries. Error: No valid repositeries: Error: 407 Proxy Authentification Required Error: 407 Proxy Authentification Required
j'ai donc fait la manip à la mano en téléchargeant Net-SMTP-TLS-0.12.tar.gz sur le site http://search.cpan.org

Merci, bap

23/06/2008, 17h29
Jedai

C'est pour ça que je t'ai suggéré un repository à ajouter, fais :

Code:

rep add http://trouchelle.com/ppm/ trouchelle

avant de faire ta recherche.

Par ailleurs tu sembles avoir un proxy, règle la variable d'environnement HTTP_PROXY (avec set dans le shell windows) avant de lancer PPM.

--
Jedaï
23/06/2008, 17h34
babap1
OK pour le répertoire et mon proxy. J'ai ajouté le répertoire et voila une autre erreur qui apparait :
Code:

1 2 3 ppm> install Net-SMTP-TLS Error: Failed to dowload URL http://trouchelle.com/ppm/Net-SSLeay.ppd: 404 Not Found
24/06/2008, 09h33
babap1

Bonjour Jedai,

merci pour le coup de pouce, j'ai maintenant bien compris comment ajouter des répertoires pour l'installation de modules. J'ai pu trouver ce que je cherchais en ajoutant également le répertoire suivant dans lequel j'ai trouvé Net-SSLeay qui dépend de Net-SMTP-TLS :

Code:

ppm> rep add http://www.open.com.au/radiator/free-downloads/

Encore merci et bonne journée :king:, bap