Ben Eagle wrote:
>  I am trying to get mail working but I have yet been able to get tit to 
>  work properly, I am using MIME::Lite

Worked for me with my own to, from, file and email server.  Try running
this one as is and if it still fails, set debug to 1 and check for diag msgs.
Make sure you have the right smtp mail host.

use strict;
use warnings;
use MIME::Lite;

my $debug = 0;	# set to 1 to get diags

my $to = 'beagle@[...].com, beneagle@earthlink.net';
my $from = 'me@example.com';
my $subject = "Email Sent via Perl";
my $message = "This email was sent using Perl.";
my $file = "graph1.jpg";

email ($to, $from, $subject, $message, $file);
exit;

sub email {
	my ($to, $from, $subject, $message, $file) = @_;

MIME::Lite-> send('smtp', 'email01.alinean.com', Timeout => 60, Debug => $debug);

my $msg = MIME::Lite-> new(From => $from, To => $to, Subject => $subject,
   Data =>  $message) or die "new MIME::Lite: $! ($^E)";

$msg-> attach(Type => 'image/jpeg', Path => $file, Filename => $file,
   Disposition =>  'attachment') or die "attach $file: $! ($^E)";
$msg-> send or die "send: $! ($^E)";

}

__END__
_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs