[Perl]Mail avec un login et mot de passe

Fermé
princessedesiles - 11 oct. 2007 à 07:21
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 11 oct. 2007 à 13:36
Bonjour,

Comment fait-on pour indiquer que pour pouvoir envoyer un mail, il faut ajouter le login et le mot de passe. Pour me connecter à ma boite mail yahoo, c'est ce qu'il faut.

Merci
A voir également:

1 réponse

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 566
11 oct. 2007 à 13:36
Salut,

je n'ai pas testé
#!/usr/bin/perl
use warnings;use strict;
use MIME::Lite;

my $sujet = "test yahoo mail";
my $texte = "Message de test avec smtp yahoo avec password";
  
MIME::Lite->send('smtp','smtpyahoo',
		        AuthUser=>"user", AuthPass=>'password');
my $msg = new MIME::Lite
          From    => 'lami20j@yahoo.fr',
	  To      => 'lami20j@domaine.fr',
	  Subject =>  $sujet,
	  Type    =>  'TEXT',
	  Data    => "$texte";
$msg->send();
  print "***** MESSAGE $sujet ENVOYE *****\n";

__END__
Voir aussi Net::SMTP
0