Perl and SMTP mail problems

[dchirica]

Hello I tryied to send messaged from a Perl script running on win32.

I have the following script modified for privacy reasons

########################################################
use Net::SMTP;

$smtp = Net::SMTP->new('my.domain.com', debug => 1);

print $smtp->domain, "\n";

$smtp->mail($ENV{USER});

$smtp->to('(e-mail address removed)');

$smtp->data();

$smtp->datasend("To: my.email\@yahoo.com\n");
$smtp->datasend("From: email\@my.domain.com\n");
$smtp->datasend("\n");

# Send the body.
#
$smtp->datasend("Just a test message!\n");

$smtp->dataend();
$smtp->quit;
####################################################################

When I run the script from command prompt with -w option I get the
output from the print statement:

my.domain.com

with no other errors.

Now, the problem is that I never received the messages I send to
(e-mail address removed) (or other external email addresses).
If I change the (e-mail address removed) with my local email address, local
to my.domain.com I do receive the messages.

Does anyone know what is the problem? I am inclined to believe is
something with my mail server which is a micro$soft exchange 5.5
running on windows server 2000

Thank you,
Dan

 

[Larry]

Probably the smtp server is rejecting the sender ($ENV{USER}). The
best way I've found to debug SMTP problems is using the telnet command
(avail. in Unix and Windows command prompt).

Here's how to use it:

http://www.yuki-onna.co.uk/email/smtp.html