sorry, I forgot to mention that the modile was actually the MIME::Entity
module... and is called like...
use MIME::Entity;
HTH
Geoff Ellis
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Geoff Ellis
Sent: 10 April 2001 09:03
To: 'Ricardo Cumberbatch L.'; 'Perl-Unix-Users'
Subject: RE: [Perl-unix-users] How I send a Attachmnt file in perl
Here is how I send several documents in an email using the MIME module...
# Create the top-level, and set up the mail headers:
$top = MIME::Entity->build(Type =>"multipart/mixed",
From => "your_server",
To => "to_address",
Subject => "Subject_line");
# Header: a simple text document:
$top->attach(Path=> $path_to_txt_filepath);
# Part #1: XML Document:
$top->attach(Path => $path_to_xml_file,
Type => "text/xml",
Encoding => "base64");
# Part #2: Logo:
$top->attach(Path => $path_to_jpg_file",
Type => "image/jpg",
Encoding => "base64");
# Part #3: eBIS-XML Logo:
$top->attach(Path => $path_to_gif_file,
Type => "image/gif",
Encoding => "base64");
# Part #4: Stylesheet:
$top->attach(Path => $path_to_xsl_file",
Type => "text/xsl",
Encoding => "base64");
# Send it:
$top->smtpsend;
HTH
Geoff Ellis
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Ricardo Cumberbatch L.
Sent: 09 April 2001 15:47
To: Perl-Unix-Users
Subject: [Perl-unix-users] How I send a Attachmnt file in perl
Hi everyone, how i can do to attach and send mail in perl.
Thanks a lot,
R.C.L.
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
