Re: auto mail

[zentara]

Google "perl mail attachments" for hundreds of examples, or look at this simple example:

#!/usr/bin/perl 
use warnings;
use strict;
use MIME::Lite;

$MIME::Lite::AUTO_CONTENT_TYPE="true";

my $msg = MIME::Lite->new(
From    => 'zentara' ,
To      => '[e-mail]' ,
Subject => 'test attach',
Type    => 'multipart/mixed'
);

$msg->attach(
          Path => './mailbody' ,
      Filename => 'message.txt'
);

$msg->attach(
          Path => "./logfile_07-24-2005.tar.gz" ,
   Disposition => "attachment"
);

$msg->send;
print "Mission accomplished\n";