Hi ALL,
I am trying to send a mail using MIME::Lite
I am trying to connect to port 26 of smtp server instead of 25 , but no
luck
I am not able to see anything wrong in this script , I hope I could get
some inputs
Thanks
Ram
------------------ My script is here
#!/usr/bin/perl
use strict;
use MIME::Lite;
my $str= <<EOHTML;
This is a test mail
Please ignore
EOHTML
my $msg = MIME::Lite->new(
To => $ARGV[0],
From => $ARGV[1],
Subject => 'Test Mail',
Type => 'multipart/related'
);
$msg->attach( Type => 'text/plain', Data => $str );
$msg->send_by_smtp("192.168.2.65",Port=>26);
-----------------------
This is the output I get
Failed to connect to mail server: Bad file descriptor
at perl/smtp26 line 17
----------------------------------------------------------
Netcore Solutions Pvt. Ltd.
Website: http://www.netcore.co.in
Spamtraps: http://cleanmail.netcore.co.in/directory.html
----------------------------------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
