test smtp.txt
À propos
- Type de fichier
- Fichier TXT de < 1 Ko (text/x-perl)
- Confidentialité
- Fichier public, envoyé le 15 juin 2017 à 13:08, depuis l'adresse IP 165.225.x.x (France)
- Sécurité
- Ne contient aucun Virus ou Malware connus - Dernière vérification: 2 heures
- Statistiques
- La présente page de téléchargement a été vue 241 fois depuis l'envoi du fichier
- Page de téléchargement
-
Aperçu du fichier
#!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() !';
Partager le fichier
Télécharger test_smtp.txt
Télécharger le fichier (< 1 Ko)
