Hébergeur de fichiers indépendant

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 jours
Statistiques
La présente page de téléchargement a été vue 235 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)