Discussion :

[magicbisous-nours]

Bonjour à tous !

Je suis en train de m'initier au Perl et j'ai besoin d'envoyer un mail en passant par un serveur SMTP depuis un script.
Je suis sous Windows 2008 server R2 avec ActiveState Perl.
J'ai le module libnet installé.

Voici mon code :

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
# Connexion au serveur SMTP
my $smtp = Net::SMTP->new('casnlb.corp.local') or die 'Impossible de se connecter : '.$!;
 
# Enregistrement de l'adresse de l'expéditeur
$smtp->mail('<no-reply@vordoc1.corp.local>') or die 'Un problème est survenu avec la méthode mail() !';
 
# Enregistrement de l'adresse du destinataire
$smtp->to($smail) or die 'Un problème est survenu avec la méthode to() !';
 
# Création du corps du message
$smtp->data() or die 'Un problème est survenu avec la méthode data() !';
$smtp->datasend('Test Mail') or die 'Un problème est survenu avec la méthode datasend() !';
$smtp->dataend() or die 'Un problème est survenu avec la méthode dataend() !';
 
$smtp->quit() or die 'Un problème est survenu avec la méthode quit() !';

J'ai effectué plusieurs essais et j'ai systématiquement
[quote]
Un problème est survenu avec la méthode mail() ![quote]
suivi du numéro de la ligne sur laquelle j'appelle mail().

Je n'ai pas plus de trace que ça. Quelqu'un aurait une idée ou saurait comment je peux avoir plus de traces ?
J'ai déjà

Code :

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

1
2
3
 
use strict;
use warnings;

au début de mon code....

Merci d'avance

[EDIT] Apparemment ça viendrait de l'authentification...
Sauf que lorsque j'utilise la méthode auth j'ai ceci :

No SASL mechanism found

alors que j'ai bien le module Authen::SASL d'installé.
J'ai vu sur le net qu'il faudrait un autre module en plus mais que ça dépendait du serveur... Il y a un moyen de savoir quel module je devrais installer ?

[magicbisous-nours]

Problème résolu : j'en ai touché deux mots à l'admin du serveur SMTP (un exchange), et il avait oublié de déclarer que le poste sur lequel je travaille avait le droit de se connecter au serveur SMTP.