[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
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
A voir également:
- [Perl]Mail avec un login et mot de passe
- Piratage facebook changer mot de passe - Guide
- Mettre un mot de passe sur un dossier - Guide
- Voir mot de passe wifi android - Guide
- Identifiant et mot de passe - Guide
- Mot de passe administrateur - Guide
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 567
11 oct. 2007 à 13:36
11 oct. 2007 à 13:36
Salut,
je n'ai pas testé
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
