Discussion :

[sebastien00]

Bonjour,

Je viens d'hériter d'un programme Perl qui a pour but de créer une page html.
Fichier en sortie : Page.html
Le code de la page html est stockée dans une variable ($PAGE).

Je souhaiterai envoyer cette page html par email ou carrément l'afficher dans le corps du mail.
Pour les envoies de mail, je peux utiliser que la bibliothèque Net::SMTP.

Est ce possible d'envoyer par email une page HTML et que le contenu de cette page soit affichée dans le corps du email? si ce n'est pas possible,merci de me montrer comment envoyer une pièce jointe par email avec NET:SMTP

Merci de votre aide.

Mon code ressemble à ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
......
#La variable qui contient tout le code HTML
$PAGE;
 
my $sender = 'seb@hotmail.com';
my @to = ('x@toto.com');
my $smtp = Net::SMTP->new('smtpmail.mail');
$smtp->mail($sender);
$smtp->to(@to);
$smtp->data();
$smtp->datasend("To: Destinataires\n");
$smtp->datasend("Subject: Objet du mail\n");
 
# Là je ne sais pas trop comment envoyer un fichier attaché
$smtp->datasend('PAGE.html');
 
$smtp->dataend();
$smtp->quit;

[Jedai]

Il faut utiliser MIME::Lite ou autre module d'envoi de mail, MIME::Lite devrait être suffisant pour toi. (Net::SMTP se charge uniquement de l'envoi, donc sauf si tu connais les RFC sur l'email et MIME par coeur...)

--
Jedaï

[laurent33500]

bonjour

Pourquoi ne pas utiliser mail::sender.
Ci joint un bout de script que j'utilise régulièrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use Mail::Sender;
 
        $sender = new Mail::Sender {smtp => 'nom serveur smtp.', from => 'expediteur'};
        $sender->MailFile(
	{
	to => 'destinataire',
	subject => 'objet de l envoie',
	msg => "Corps du message.\012\015\012\015",
	file => 'c:\\piece jointe'
	}
	);

A+