sursan has asked for the wisdom of the Perl Monks concerning the following question:
The output is this:#!/usr/bin/perl use strict; use warnings; use Email::Sender::Simple qw(sendmail); use Email::Sender::Transport::SMTPS; use Email::Simple::Creator; my $transport = Email::Sender::Transport::SMTPS->new( host => '192.168.130.22', port => 465, ssl => 'ssl', sasl_username => 'me', sasl_password => 'mypasswd', debug => 1 ); my $message = Email::Simple->create( header => [ From => 'Me <me@me.com>', To => 'Me <me@me.com>', Subject => "Simple Test", ], body => "Simple test body", ); try { sendmail($message, { transport => $transport }); } catch { die "Error sending email: $_"; };
Can anybody help me understand where the problem might be? Thank you in advance!W:\Development\Eclipse\FIM Send UE Data Status>perl SimpleMail.pl Net::SMTPS>>> Net::SMTPS(0.04) Net::SMTPS>>> IO::Socket::INET6(2.72) Net::SMTPS>>> IO::Socket(1.38) Net::SMTPS>>> IO::Handle(1.35) Net::SMTPS>>> Exporter(5.72) Net::SMTPS>>> Net::SMTP(3.06) Net::SMTPS>>> Net::Cmd(3.06) Net::SMTPS>>> IO::Socket::IP(0.37) DEBUG: .../lib/Net/SMTPS.pm:136: global error: Socket has no fileno unable to establish SMTP connection Trace begun at C:\Strawberry\perl\site\lib\Email\Sender\Transport\SMTP +S.pm line 98 Email::Sender::Transport::SMTPS::_throw('Email::Sender::Transport::SMT +PS=HASH(0x5bc488)', 'unable to establish SMTP connection') called at +C:\Strawberry\perl\site\lib\Email\Sender\Transport\SMTPS.pm line 60 Email::Sender::Transport::SMTPS::_smtp_client('Email::Sender::Transpor +t::SMTPS=HASH(0x5bc488)') called at C:\Strawberry\perl\site\lib\Email +\Sender\Transport\SMTPS.pm line 107 Email::Sender::Transport::SMTPS::send_email('Email::Sender::Transport: +:SMTPS=HASH(0x5bc488)', 'Email::Abstract=ARRAY(0x494ce8)', 'HASH(0x2c +52658)') called at C:\Strawberry\perl\vendor\lib\Email\Sender\Role\Co +mmonSending.pm line 45 Email::Sender::Role::CommonSending::try {...} at C:\Strawberry\perl\v +endor\lib\Try\Tiny.pm line 77 eval {...} at C:\Strawberry\perl\vendor\lib\Try\Tiny.pm line 72 Try::Tiny::try('CODE(0x2e50960)', 'Try::Tiny::Catch=REF(0x2e3af40)') c +alled at C:\Strawberry\perl\vendor\lib\Email\Sender\Role\CommonSendin +g.pm line 58 Email::Sender::Role::CommonSending::send('Email::Sender::Transport::SM +TPS=HASH(0x5bc488)', 'Email::Abstract=ARRAY(0x494ce8)', 'HASH(0x2e507 +c8)') called at C:\Strawberry\perl\vendor\lib\Email\Sender\Simple.pm +line 119 Email::Sender::Simple::send_email('Email::Sender::Simple', 'Email::Abs +tract=ARRAY(0x494ce8)', 'HASH(0x2c54358)') called at C:\Strawberry\pe +rl\vendor\lib\Email\Sender\Role\CommonSending.pm line 45 Email::Sender::Role::CommonSending::try {...} at C:\Strawberry\perl\v +endor\lib\Try\Tiny.pm line 77 eval {...} at C:\Strawberry\perl\vendor\lib\Try\Tiny.pm line 72 Try::Tiny::try('CODE(0x2c52688)', 'Try::Tiny::Catch=REF(0x2c2af30)') c +alled at C:\Strawberry\perl\vendor\lib\Email\Sender\Role\CommonSendin +g.pm line 58 Email::Sender::Role::CommonSending::send('Email::Sender::Simple', 'Ema +il::Simple=HASH(0x2c526d0)', 'HASH(0x2c4ec30)') called at C:\Strawber +ry\perl\vendor\lib\Sub\Exporter\Util.pm line 18 Sub::Exporter::Util::__ANON__('Email::Simple=HASH(0x2c526d0)', 'HASH(0 +x2c4ec30)') called at SimpleMail.pl line 29
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Cannot connect to SMTP Server from Windows 8.1 Pro x64
by Anonymous Monk on Dec 13, 2016 at 22:19 UTC | |
by noxxi (Pilgrim) on Dec 14, 2016 at 18:21 UTC |