Mail::Sendmail

Try this:

use Mail:endmail;
# necsam.com does not appear to be an SMTP server
# doing a lookup of MX records for necsam.com I found:
#     necsam.com.  94706 IN MX 20 mail1.nec.com.
#     necsam.com.  94706 IN MX 10 dns1.nec.com.
# Assuming the latter is primarily for DNS - I used the former
my $server = q[mail1.nec.com];
# Note: mostly use single-quotes (q[]) so that the '@' is not
#       interpreted.  Used double-quotes (qq[]) for X-Mailer since you want
#       to interpret the variable $Mail:endmail::VERSION
my %mail = (
    smtp       => $server,
    to         => q[andy@necsam.com], # missing from your code
    bcc        => q[andy@necsam.com],
    from       => q[Corion (script) andy@necsam.com], # might cause problems
    subject    => q[Test 1],
    message    => q[Test number 1],
    'X-Mailer' => qq[Mail:endmail test script v0.01/$Mail:endmail::VERSION],
);
sendmail(%mail) or die $Mail:endmail::error;
print "OK. Log says:\n", $Mail:endmail::log;
exit 0;

i did this, but i did ran this file as part of the performFileUpload script. And it didn't work for me

Here is the snippet


use Mail:endmail;
# necsam.com does not appear to be an SMTP server
# doing a lookup of MX records for necsam.com I found:
#     necsam.com.  94706 IN MX 20 mail1.nec.com.
#     necsam.com.  94706 IN MX 10 dns1.nec.com.
# Assuming the latter is primarily for DNS - I used the former
my $server = q[132.24.22.19];
# Note: mostly use single-quotes (q[]) so that the '@' is not
#       interpreted.  Used double-quotes (qq[]) for X-Mailer since you want
#       to interpret the variable $Mail:endmail::VERSION
my %mail = (
    smtp       => $server,
    to         => q[andy@necsam.com], # missing from your code
    bcc        => q[andy@necsam.com],
    from       => q[andy@necsam.com], # might cause problems
    subject    => q[Test 1],
    message    => q[Test number 1],
    'X-Mailer' => qq[Mail:endmail test script v0.01/$Mail:endmail::VERSION],
# i didn't understand this X-Mailer concept
);
sendmail(%mail) or die $Mail:endmail::error;
print "OK. Log says:\n", $Mail:endmail::log;
exit 0;

Thank you

What the error message when you run the script from command line.

I always use Mail::Mailer...

use Mail::Mailer;
my $mailerObject = new Mail::Mailer('smtp', Server => 'mailserver.company.com');
$mailerObject->open(
 {
  'From' => 'someone@company.com',
  'To'   => 'someone@company.com',
  'Cc'   => 'someone@company.com',
  'Bcc'  => 'someone@company.com',
  'Subject' => 'Hello World!'
 }
);
print $mailerObject 'The sky is falling!';
$mailerObject->close();

~Jeff

I plugged Jeff's code directly into your performFileUpload.ipl file after the "upload process complete, provide some feedback to the user" line and it worked just fine after changing the servername and email address of course.

i did this, but i did ran this file as part of the performFileUpload script. And it didn't work for me

Here is the snippet
... previously posted code ...

sendmail(%mail) or die $Mail:endmail::error;
print "OK. Log says:\n", $Mail:endmail::log;

Well, your script is a CGI script - and it's quite possible that the last two lines here might have caused errors with the CGI processing.

For the first line, try adding:

use CGI::Carp qw(fatalsToBrowser);

at the beginning of your script.

For the second line - have it either write into a log file:

use File::Temp qw(tempfile);
my($fh, $fname) = tempfile();
print $fh "OK. Log says:\n", $Mail:endmail::log;
close($fh);

or ensure that the browser window is ready to accept output from the script:

print "Content-type: text/html\n\n";
print "OK. Log says:\n", $Mail:endmail::log;

does either of the above fix the problem you encountered using the code I previously posted?

I have run the script exclusively as an *ipl file and it doesn't send out mail.

This is error from the mailserver logs

May 11 13:28:37 gemini sendmail[18836]: [ID 801593 mail.notice] k4BISXU9018836: ruleset=check_mail, arg1=, relay=[132.24.20.148], reject=553 5.1.8 ... Domain of sender address postmaster@dlint24.necsam.com does not exist


#!c:\Interwoven\TeamSite/iw-perl/bin/iwperl.exe
use Mail::Mailer;
my $mailerObject = new Mail::Mailer('smtp', Server => 'mailserver');
$mailerObject->open(
{
  'From' => 'name@necusa.com',
  'To'   => 'name@necusa.com',
  'Cc'   => 'name@necusa.com',
  'Bcc'  => 'name@necusa.com',
  'Subject' => 'Hello World!'
}
);
print $mailerObject 'The sky is falling!';
$mailerObject->close();

It is taking postmaster@dlint24.necsam.com as to and from addressed by default. I ran this code from the command line. Doesn't throw any error. Never sends a mail either.
Thanks in advance

I have run the script exclusively as an *ipl file and it doesn't send out mail.

This is error from the mailserver logs

May 11 13:28:37 gemini sendmail[18836]: [ID 801593 mail.notice] k4BISXU9018836: ruleset=check_mail, arg1=, relay=[132.24.20.148], reject=553 5.1.8 ... Domain of sender address postmaster@dlint24.necsam.com does not exist
...
It is taking postmaster@dlint24.necsam.com as to and from addressed by default. I ran this code from the command line. Doesn't throw any error. Never sends a mail either.
Thanks in advance

The error noted in the mailserver logs is the error. Your sendmail server is configured to not pass through requests it doesn't consider valid and for one reason or another, it's configured to use an invalid (local machine) address as the default for sending and doesn't accept it.

Try explicitly specifying a From and To address and see if that works.

Thank you Adam,
as suggested i used eval{} but this doesnt' help either. I don't get any errors. I tried runing the file in debug mode, it didn't help me a lot.

Please advise


#!c:\Interwoven\TeamSite/iw-perl/bin/iwperl.exe
use Mail::Mailer;
eval{
my $mailerObject = new Mail::Mailer('smtp', Server => 'mailserver');
$mailerObject->open(
{
  'From' => 'name@necusa.com',
  'To'   => 'name@necusa.com',
  'Cc'   => 'name@necusa.com',
  'Bcc'  => 'name@necusa.com',
  'Subject' => 'Hello World!'
}
);
print $mailerObject 'The sky is falling!';
$mailerObject->close();
}

legendEntries.jpg

nipper

You are not doing anything with the eval results. Check this

nipper

Also you may want to have a some error checking on the Mailer: Smiley Surprised

pen

something like: Mailer: Smiley Surprised

pen (...) || die "Cannot open ($@)";

testchart.rptdesign

test.csv.txt

ISCBorisB

Try the following. An assumption is that your iw.cfg has mailserver
configured. If that's not the case, get smtp in some other manner.

Sure, if your mail server blocks this mail for whatever reason
it would not matter what mail Client you use.


use strict;
use TeamSite::Config;
use TeamSite::IW_cfg;
use MIME::Lite;

my $cfg = TeamSite::IW_cfg->new();
$cfg->read();
my $smtp = $cfg->lookup('iwsend_mail', 'mailserver', 'smtp_mailserver');
send_mail($smtp, 'hi', 'a@b.com,c@d.com', 'hello', 'The sky is falling!');
exit 0;

#--- Send Individual Mail ----------------------------------------------------------
sub send_mail {
   my ($smtp, $sender, $to, $subject, $note) = @_;

   # Create the mail first                                         
   my $msg = MIME::Lite->new(                                            
      From => "$sender",                                               
      To => "$to",                                                   
      Subject => "$subject",
      Type => 'multipart/mixed',
      #'Mime-Version' => '1.0',
   );

   # Attach Body
   $msg->attach(
      Type => 'text/html; charset=UTF-8',
      Data => "$note",
   );

   # And Finally...
   MIME::Lite->send('smtp', "$smtp", Timeout=>60);
   $msg->send();
}

Try the following. An assumption is that your iw.cfg has mailserver configured. If that's not the case, get smtp in some other manner.
...
use strict;
use TeamSite::Config;
use TeamSite::IW_cfg;
use MIME::Lite;

my $cfg = TeamSite::IW_cfg->new();
$cfg->read();
...

At least two things to point out here:

Thank you Adam,
as suggested i used eval{} but this doesnt' help either. I don't get any errors. I tried runing the file in debug mode, it didn't help me a lot.

Please advise

;

As indicated by Nipper - your coding could use some improvement.
As indicated by ISCBorisB - you (or we) are assuming that you have your mailserver identified correctly (which you did not in your original code posting as I pointed out)
The time you tried it and reported messages in the mailserver log - where was that log located? On the TS server or on the actual mail server?
The fact that you received those messages in the mailserver log indicates that Mail:endmail (or Mail::Mailer, or ...) Managed to successfully connect to an SMTP server / service - so you are probably not going to get any errors from eval{...} because the handoff was successful - only the delivery failed and none of these modules track delivery
You need to
Verify your mailserver is defined correctly
Work with your local Mail Admin (IT, Ops, Sys Admin, Net Admin, whatever) to figure out what's happening on the SMTP server side of things
I still think you're connecting to the wrong server -or- not configuring the From or Sender information correctly - you may need to add the following code before the mailer->open call:
Code:
$ENV{MAILADDRESS} = $ENV{USER} || $ENV{LOGNAME} || desired-from-address;__________________
--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

I have checked with the mail server. The server specified is correct.
The log which i have posted are not on the TS server, they are from the mail server.
The logs were with the Mail::Mailer module , this as you said is a clear indication that it is recognizing the mail server. But an effort to collect the From and to fields is not occuring correctly. Since it always send it to postmaster@localmachine.domain.com

As i said using eval too did not solve the issue, i don't see any error. Is there a very simple module which mandates a mail push to a To address?
Thank you

I have checked with the mail server. The server specified is correct.
The log which i have posted are not on the TS server, they are from the mail server.
The logs were with the Mail::Mailer module , this as you said is a clear indication that it is recognizing the mail server. But an effort to collect the From and to fields is not occuring correctly. Since it always send it to postmaster@localmachine.domain.com

As i said using eval too did not solve the issue, i don't see any error. Is there a very simple module which mandates a mail push to a To address?
Thank you

Please re-read the mailserver log message again - carefully:[indent]May 11 13:28:37 gemini sendmail[18836]: [ID 801593 mail.notice] k4BISXU9018836: ruleset=check_mail, arg1=, relay=[132.24.20.148], reject=553 5.1.8 ... Domain of sender address postmaster@dlint24.necsam.com does not exist[/indent]It is not the To address that is being complained about it - it is the From or Sender address which is being complained about - and therefore you need to verify that you are setting that (or those) address(es) correctly as per the constraints on your SMTP server.

True, even though i am specifying the right FROM address , it is always going back to postmaster@......
Thats why i wanted to try so thing like this, but alas this doesn't throw any error either.


#!c:\Interwoven\TeamSite/iw-perl/bin/iwperl.exe
use Mail::Mailer;
my $mailerObject = new Mail::Mailer 'smtp', Server => 'mymailserver';
$mailerObject->open(
{
  To   => 'andy@necsam.com',
  Subject => 'Hello World!'
}
) || die "could Not Open";

print $mailerObject 'The sky is falling!';
$mailerObject->close();

Can we run a Mail::Mailer from a command line with To address as an argument?
Thank you

Another simple test since you are running on Windows is to open Outlook Express on the server (usually installed) and configure it so that you can send email to your smtp server with your email address as the sender. Then, send an email to the address that you are trying to get to. If it fails, then talk to your email admin.

logFile.txt

testhidebasedonsubtables.rptdesign

No sending email to in my case "user@necsam.com" never fails. I have the outlook express using the same mail server as i have defined in the code. i have checked with my mail admin, he doesn't have any clue either. he says that for some reason any request which is coming form this code is taking from address as postmaster@..../
I also checked if my local machine is part of the DNS, and it is. So there seems to be something more peculiar than the mail server which is failing.
Thanks

Have you tried what I suggested earlier - adding the following code before the mailer->open call:

$ENV{MAILADDRESS} = $ENV{USER} || $ENV{LOGNAME} || desired-from-address;

True, even though i am specifying the right FROM address , it is always going back to postmaster@......
Thats why i wanted to try so thing like this, but alas this doesn't throw any error either.
#!c:\Interwoven\TeamSite/iw-perl/bin/iwperl.exe
use Mail::Mailer;
my $mailerObject = new Mail::Mailer 'smtp', Server => 'mymailserver';
$mailerObject->open(
{
  To   => 'andy@necsam.com',
  Subject => 'Hello World!'
}
) || die "could Not Open";

print $mailerObject 'The sky is falling!';
$mailerObject->close();
Can we run a Mail::Mailer from a command line with To address as an argument?
Thank you

Where are you "specifying the right from address". You're missing the from option. The default of the Mailer module is to use postmaster@yourdomain.com. Since you probably don't have such and email address on that server it is being rejected. Add the From into your code like below. I tested it with and without and without gives me mydomain.com>postmaster@mydomain.com if I don't specifiy a From.


#!c:\Interwoven\TeamSite/iw-perl/bin/iwperl.exe
use Mail::Mailer;
my $mailerObject = new Mail::Mailer 'smtp', Server => 'mymailserver';
$mailerObject->open(
{
  To   => 'andy@necsam.com',
  Subject => 'Hello World!',
  From => 'andy@necsam.com'
}
) || die "could Not Open";

print $mailerObject 'The sky is falling!';
$mailerObject->close();

I have tried with ENV and also with From address, no luck yet.
Thanks


#!c:\Interwoven\TeamSite/iw-perl/bin/iwperl.exe
use Mail::Mailer;
$ENV{'andy@necsam.com'} = $ENV{doughta} || $ENV{doughta} || 'andy@necsam.com';
my $mailerObject = new Mail::Mailer 'smtp', Server => 'mailserver';
$mailerObject->open(
{
  To   => 'andy@necsam.com',
  Subject => 'Hello World!',
  From => 'andy@necsam.com'
}
) || die "could Not Open";

print $mailerObject 'The sky is falling!';
$mailerObject->close();

You misunderstood the code segment - only the last part was non-literal - see highlighted code below

I have tried with ENV and also with From address, no luck yet.
Thanks


#!c:\Interwoven\TeamSite/iw-perl/bin/iwperl.exe
use Mail::Mailer;
$ENV{MAILADDRESS} = $ENV{USER} || $ENV{LOGNAME} || 'andy@necsam.com';
my $mailerObject = new Mail::Mailer 'smtp', Server => 'mailserver', Debug => 1;
$mailerObject->open(
{
  To   => 'andy@necsam.com',
  Subject => 'Hello World!',
  From => 'andy@necsam.com',
  Sender =>'TestingForAndy@necsam.com',
}
) || die "could Not Open";

print $mailerObject 'The sky is falling!';
$mailerObject->close();

The Debug => 1 addition will help, from the command line, to tell you what's happening with the SMTP connection.

You can also try adding the Sender line as shown above to see if that helps, though I don't think it will.

Also - just to make sure we're on the same page here - where you have: Server => 'mailserver' - can we assume that your actual code uses the actual mailserver's hostname or IP address?