Use the Mail::Sender Module, this is part of the Mail::Sender documentation
open IN, $htmlfile or die "Cannot open $htmlfile : $!\n";
$sender->Open({ from => '[EMAIL PROTECTED]', to => '[EMAIL PROTECTED]',
subject => 'HTML test',
ctype => "text/html",
encoding => "7bit"
}) or die $Mail::Sender::Error,"\n";
while (<IN>) { $sender->SendEx($_) };
close IN;
$sender->Close();
On Tue, Jun 24, 2008 at 7:21 AM, btna <[EMAIL PROTECTED]> wrote:
> Hi all,
>
> I am trying to write a simple Perl script that will accept the HTML
> file as one argument and then send an e-mail with the HTML file. I
> don't want the HTML file attached to the e-mail but to be part of the
> body of the e-mail. In other words, I need the HTML file that I am
> sending to be the actual body of the e-mail.
> I am new to Perl so this is what I have so far:
>
> use strict;
> use MIME::Lite;
> use Date::Calc qw(:all);
>
> # SendTo email id
> my $to_id = '[EMAIL PROTECTED]';
> my $filename=$ARGV[0];
> chomp (my $date = `date +%A" "%B" "%d","%Y`);
> my $subject = sprintf("SAN Capacity Report:
> %s",Date_to_Text_Long(Today()));
>
> # create a new MIME Lite based email
> my $msg = MIME::Lite->new
> (
> From => '[EMAIL PROTECTED]',
> To => $to_id,
> Subject => $subject,
> Type => 'multipart/mixed',
> );
>
> $msg->send();
>
> I am not sure how to make the $filename which is the HTML file passed
> to the script so it gets sent as part of the body of the e-mail.
>
> Any help would be appreciate it.
>
> Thanks,
>
> BTNA
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
David Romero
www.factufacil.com.mx
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
