sending an email

[idorjee]

Hi,
Can anyone please tell why can't send an email with the following script. I'm using mac os x (tiger)'s terminal application. Do I need to change any configuration files?

Thanks a lot in advance.

#!/usr/bin/perl -w
use strict;
use MIME::Lite;
 
# SendTo email id
my $email = "friend\@hotmail.com";
 
# create a new MIME Lite based email
my $msg = MIME::Lite->new(
        Subject => "HTML email test",
        From    => "me\@somewhere.com",
        To      => $email,
        Type    => "text/html",
        Data    => qq{<H1>Hello</H1><br>This is a test email. Please visit our site <a href="http://cyberciti.biz">online</a><hr>}
);
 
$msg->send();
 

[eWish]

I an not sure if the OS is causing you problems or not. Read the documentation regarding Sending and see if the defaults work with your system. Also, you can add die if it won't send.

#!/usr/bin/perl -w
use strict;
use MIME::Lite;
 
# SendTo email id
my $email = '[e-mail]';
 
my $message = qq{<H1>Hello</H1><br>This is a test email. Please visit our site <a href="http://somesite.com">online</a><hr>};
 
# create a new MIME Lite based email
my $msg = MIME::Lite->new(
          Subject => 'HTML email test',
          From    => '[e-mail]',
          To      => $email,
          Type    => 'text/html',
          Data    => $message
);
 
$msg->send() || die "Can't send email"'; 

--Kevin

[KevinADC]

You need an email application to send the mail. MIME::Lite does not do that, it constructs an email, but it needs something, like sendmail, to do the actual sending.