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 = '[EMAIL PROTECTED], [EMAIL PROTECTED]';
my $from = '[EMAIL PROTECTED]';
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
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
