Bonjour le forum,

j'ai un soucis avec mon serveur SMTP qui a changé; C'est à dire que j'ai maintenant une autorisation requise que je ne sais pas gérer....!

voila les traces de ma demande :

Net::SMTP>>> Net::SMTP(2.31)
Net::SMTP>>> Net::Cmd(2.29)
Net::SMTP>>> Exporter(5.62)
Net::SMTP>>> IO::Socket::INET(1.31)
Net::SMTP>>> IO::Socket(1.30_01)
Net::SMTP>>> IO::Handle(1.27)
Net::SMTP=GLOB(0x19b696c)<<< 220 FRVELSBHS04.ad2.ad.com Tue, 3 Jun 2008 11:14:12 +0200
Net::SMTP=GLOB(0x19b696c)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x19b696c)<<< 250-FRVELSBHS04.ad2.ad.com Hello [155.132.232.243]
Net::SMTP=GLOB(0x19b696c)<<< 250-TURN
Net::SMTP=GLOB(0x19b696c)<<< 250-SIZE
Net::SMTP=GLOB(0x19b696c)<<< 250-ETRN
Net::SMTP=GLOB(0x19b696c)<<< 250-PIPELINING
Net::SMTP=GLOB(0x19b696c)<<< 250-DSN
Net::SMTP=GLOB(0x19b696c)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x19b696c)<<< 250-8bitmime
Net::SMTP=GLOB(0x19b696c)<<< 250-BINARYMIME
Net::SMTP=GLOB(0x19b696c)<<< 250-CHUNKING
Net::SMTP=GLOB(0x19b696c)<<< 250-VRFY
Net::SMTP=GLOB(0x19b696c)<<< 250-TLS
Net::SMTP=GLOB(0x19b696c)<<< 250-STARTTLS
Net::SMTP=GLOB(0x19b696c)<<< 250-X-EXPS GSSAPI NTLM
Net::SMTP=GLOB(0x19b696c)<<< 250-AUTH GSSAPI NTLM
Net::SMTP=GLOB(0x19b696c)<<< 250-X-LINK2STATE
Net::SMTP=GLOB(0x19b696c)<<< 250-XEXCH50
Net::SMTP=GLOB(0x19b696c)<<< 250 OK
Net::SMTP=GLOB(0x19b696c)>>> MAIL FROM:<Alert@>
Net::SMTP=GLOB(0x19b696c)<<< 454 5.7.3 Client does not have permission to submit mail to this server.
Net::SMTP=GLOB(0x19b696c)>>> RCPT TO:<DestinationMail@>
Net::SMTP: Unexpected EOF on command channel
et voila mon script PERL :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
use Net::SMTP;	#Perl librairy, to send MAIL and SMS
 
	my $smtpserver = "frmail30.netfr";	#smtp server
	my $from = "Alert\@" ;
	my $replyaddr = "Alert\@";			
	my $to = "DestinationMail\@";	#Destination mail
	my $smtp = Net::SMTP->new("$smtpserver");
 
	$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();
 
	my $sms = "sms.XXXXXXXXXX\@faxsms.com" ;	#faxsms server
	$smtp->to("$sms");
	$smtp->datasend("To: ".$sms."\n");
	$smtp->dataend();
	$smtp->quit();


Merci d'avance,
Bap