[PL/Perl] procédure d'envoie de mail
Salut
Dans mes projets sur PostgreSQL sous windows, je voudrais mettre en place un système d’envois de mail. Ainsi PostgreSQL m'enverrait les problèmes et d'autres statistiques vers mon mail yahoo.
J'ai trouvé un code que j'ai voulu adapter mais pour le moment le mail n'est pas envoyé
Voici mon code.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
CREATE OR REPLACE FUNCTION envoiemail() RETURNS smallint
AS
$BODY$
use strict;
use warnings;
use Carp;
use MIME::Lite; # Pour envoyer des emails
my $from = 'allhassane@yahoo.fr';
my $to = 'diakitealhassane@gmail.com';
my $subject = 'Etat demarrage';
my $message;
$message = 'essai';
my $mail = new MIME::Lite
From => $from,
To => $to,
Subject => $subject,
Type => 'text',
Data => $message;
eval
{$mail->send or die(0);};
if ($@){return 0;}
else {return 1;}
$BODY$
LANGUAGE plperlu VOLATILE
COST 100; |
A savoir que je ne connais pas perl!!! Mais puisse que c'est l'alternative la plus simple alors...
Je essayé du coté de VBscript+batch cela marche bien mais j'ai mes infos (login+mot de passe) en claire sur le fichier VBS. Alors je me dis:s'il marche sur vbs avec login+mot de passe; c'est qu'il faut le login+mot de passe dans Perl. Mais je ne sais vraiment pas où il faut mettre ces infos.
Si vous avez des idées.
Merci d'avance
