Bonjour à tous,
J'ai un petit problème qui est constamment resté sans solution sur le net.
L'exploit est donc possible!
Tous à vos neurons!
Voilà mon code
Code :
- #!/usr/bin/perl
- use warnings;use strict;
- use MIME::Lite;
- my $log="d.b";
- my $pass="123456";
- my $sujet = "testage";
- my $texte = "Tain comme ça marche bien salette!\nZorro";
-
- MIME::Lite->send('smtp','smtp.laposte.net',
- AuthUser=>$log, AuthPass=>$pass);
- my $msg = MIME::Lite->new(
- From => 'd.b@laposte.net',
- To => 'r.t@laposte.net',
- Subject => $sujet,
- Type => 'TEXT',
- Data => "$texte" );
- $msg->send();
- print "***** MESSAGE $sujet ENVOYE *****\n";
|
Et l'erreur sortie dans le terminal :
SMTP Failed to connect to mail server: Invalid argument
at mailer.pl line 19
La line 19 étant $msg->send();
Merci pour votre aide précieuse, c'est un gros blocage pour moi...
Message édité par ledzep2 le 24-10-2007 à 17:39:52