Having problem in Email::Send through windows ?

[vijayarl]

Hi All,

I need to send a email based on the flag value, am using Email::Send module(CPAN).
Requirement :
1.Based on the $email_flag, call the send_email function so, script goes like this:

## In main function ##
 
if($email_flag == 1){
   &send_email; ## calling the send_email sub-function
   }
  else{
print "There is some problem for process execution\n please check the script\n";
       }
 
### sub - function ####
sub send_email {
my $msg = q(From: [e-mail]
    To:[e-mail]
    Subject:Time to Analyse - Report !!!
    );
        Email::Send->new({mailer => 'Sendmail'})->send($msg);
    }
 

When i run this script, it goes to the sen_email sub function but only problem is
not getting the mail.
don't know where is the mistake nor the script give any clue while running...
Am using Acitvestate perl v5.10.0 & OS is win2k.
Is there any other method where i can send simple mail ???

Regards,
Vijayarl

[Icecrack]

so when you call the function you should place debug method

&send_email || die "Error: $!"; 

or try this,

if (my $error = $sender->send($message)) {
    die $error;
}
 

this should give you more detail.

also i don't think that this is for Windows OS,

but please try printing this out

use Email::Send;
 
my @available = $sender->all_mailers;

this would print if you have any mailers that can send the mail with this module