From:   deny <[EMAIL PROTECTED]>
Subject:                file to join

"attach", not "join" :-)

> good evening
> 
> i want to add a file in  a mail i send to someone
> for example , i wwant to add the file "inscription.txt"
> to a mail
> 
> here is the first line to send a mail
> 
> open(MAIL, "|mail [EMAIL PROTECTED]");
> print MAIL "Reply-To: $champs[1]\n";
> print MAIL "sujet: Soumission du formulaire monaco teleformation2!\n";
> print MAIL "nom utilisateur: $champs[4]\n";
> 
> the problem is to send the file ...

You would have to print all the mail and part headers and encode the 
file. It's easier and safer to leave this task to one of the modules 
you can download from CPAN. Try either Mail::Sender or MIME::Lite.

Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed 
to get drunk and croon as much as they like.
        -- Terry Pratchett in Sourcery


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to