Re: file to join

[deny]

Jenda Krynicky a écrit :

From:   deny <[EMAIL PROTECTED]>
Subject:                file to join
"attach", not "join" :-)

ok sorry for my bad english

 

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.

Je

ok i try this

#!/usr/bin/perl -w

use strict;
use MIME::Lite;
use Getopt::Std;
#------------------------------
# main
#------------------------------
sub main {
   my %opts;
   my $subj = "hello world";
   ### Create a message:
   my $msg = MIME::Lite->new(From    => '[EMAIL PROTECTED]',
                             To      => '[EMAIL PROTECTED]',
                             Subject => $subj,
                             Type    => 'TEXT',
                             Data    => ["This is the original message.\n",
                                         "Let's see if we can embed 
it!\n"]);
}
exit (&main ? 0 : -1);

__END__



but no message or no mail is send to [EMAIL PROTECTED]
perhaps someone has a better documentation than the file example 
attached to this module ?

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