Try this...
use strict;
use MIME::Lite;
my $mailhost = '216.26.153.13';
my $msg = MIME::Lite->new(
From =>'[EMAIL PROTECTED]',
To =>'[EMAIL PROTECTED]',
Subject =>'test',
Type =>'TEXT/HTML',
Data =>'Test text'
);
MIME::Lite->send('smtp', $mailhost , Timeout=>60);
eval {$msg->send;};
if ($@) {
print "Message Failed\n";
print "Error = '$@'\n";
}
else {
print "Message Sent\n";
}
print "last line\n";
[Bullock, Howard A.]
Thanks this solved the problem.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
