Re: sendmail not returning error info

[sam_bakki]

Hi

I have been using module Mail::Sendmail . With this module, we can error handle better and very easy to send mail via SMTP. See my sample code below,

use strict;
use warnings;
use Mail::Sendmail;
 

my %mail = (
      To      => 'Bakkiaraj Murugesan <[e-mail]>'
+,
      From    => 'Bakkiaraj Murugesan <[e-mail]>'
+,
      #Bcc     => 'Someone <[e-mail]>, Someone else [e-mail]
+',
      # only addresses are extracted from Bcc, real names disregarded
      #Cc      => 'Yet someone else <[e-mail]>',
      # Cc will appear in the header. (Bcc will not)
      Subject => 'Test message - Bakki',
      'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
  );
  $mail{Smtp} = '<mysmtp>.<mydomain>'; 
#  $mail{'X-custom'} = 'My custom additionnal header';
  $mail{'message : '} = "Test Message";
  # cheat on the date:
  $mail{Date} = Mail::Sendmail::time_to_date( time() );
  if (sendmail(%mail)) 
  { 
      print "Mail sent OK.\n" 
  }
  else 
  { 
      print "Error sending mail: $Mail::Sendmail::error \n" 
  }
  print "\n\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log;

[gsee]

Ill take a look at this if I can (at work where getting modules added is a little tricky)