Nos partenaires et nous-mêmes utilisons différentes technologies, telles que les cookies, pour personnaliser les contenus et les publicités, proposer des fonctionnalités sur les réseaux sociaux et analyser le trafic. Merci de cliquer sur le bouton ci-dessous pour donner votre accord. Vous pouvez changer d’avis et modifier vos choix à tout moment. Informations RGPD
#!usr/bin/perl -w use strict; use Net::SMTP; #Étape 1 my $smtp = Net::SMTP->new('smtp.gmail.com') or die 'Impossible de se connecter au serveur : ' . $!; #Étape 2 $smtp->mail(tflucie@gmail.com') or die 'Un problème est survenu avec la méthode mail() !'; #Étape 3 $smtp->to('tflucie@gmail.com') or die 'Un problème est survenu avec la méthode to() !'; #$smtp->cc('*****@hotmail.fr') or die 'Un problème est survenu avec la méthode cc() !'; #$smtp->bcc('*****@hotmail.fr') or die 'Un problème est survenu avec la méthode bcc() !'; #Étape 4 $smtp->data() or die 'Un problème est survenu avec la méthode data() !'; $smtp->datasend('J\'apprends à envoyer des mails en Perl !') 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() !'; #Étape 5 $smtp->quit() or die 'Un problème est survenu avec la méthode quit() !';