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: 3 jours

Statistiques

La présente page de téléchargement a été vue 470 fois depuis l'envoi du fichier

Page de téléchargement

https://www.petit-fichier.fr/2017/06/15/test-smtp/   Copier

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