Recherche:

pour que ça marche chez vous, il faut adapter les lignes suivantes que j'ai mis en dur pour le moment:

#smtp

my $smtpnom = 'smtp.vtxnet.ch'; # serveur smtp du réseau
my $smtpto =...

mon problème se situe dans la fonction clic au niveau de l'envoie du mail à la ligne:
$smtp->send("smtp");

J'ai essayé:
$smtp->send();

mais la non plus ça ne marche pas.

Alors je vous...

voici le code:

#!/usr/local/bin/perl

use Tk; #Utilisation de Tk
use MIME::Lite;
#use Net::SMTP;

#Création de la fenêtre principale
$fen = MainWindow->new();

j'ai un problème avec l'envoie de mail avec "Lite" dans une interface graphique avec "TK".

Mon programme liste les fichier, dans un fichier, tout les fichiers qui se trouvent dans le dossier ainsi...