Thanks to everyone who responded. I ended up having to put the SMTP server name to use into a config file. Since I couldn't figure out a way to ask Windows/Outlook in Perl what it was configured to use.
Curtis -----Original Message----- From: Octavian Rasnita [mailto:[EMAIL PROTECTED] Sent: Wednesday, April 23, 2008 12:15 PM To: Curtis Leach; activeperl@listserv.ActiveState.com Subject: Re: Getting MIME::Lite working on Windows Instead of the line: $msg->send ('smtp'); try: $msg->send ('smtp', '127.0.0.1'); and replace 127.0.0.1 with the host or IP of the SMTP server you want to use. Octavian ----- Original Message ----- From: "Curtis Leach" <[EMAIL PROTECTED]> To: <activeperl@listserv.ActiveState.com> Sent: Wednesday, April 23, 2008 7:28 PM Subject: Getting MIME::Lite working on Windows > Hi All, > > I need some help with MIME::Lite on Windows. > > I'm running ActivePerl 5.8.8 Build 817 on all my Windows boxes & I just > finished installing the MIME-Lite-3.01 from the Active State PPM > repository, along with all the pre-requisite modules. > > I'm attempting to port a perl program from AIX Unix where this program > works down to Windows where it breaks. > > I only have a requirement to send out emails, not to receive any emails. > > The program uses "use strict;" & "use warnings" so I'm assuming I didn't > get something configured correctly on Windows. > > Can someone give me a hint or two to check out? > > Here's the relevant code from my program: > > eval > { > my %mail_args = ( From => $from, > To => $mail_list, > Subject => $subject, > Type => 'TEXT', > Data => $mail_body ) ; > my $msg = MIME::Lite->new( %mail_args ); > $msg->send ('smtp'); > }; > if ($@) > { > print STDERR "Failure sending email: [EMAIL PROTECTED]"; > } > > The call to $msg->send ('smtp') is throwing the following exception: > Failure sending email: Failed to connect to mail server: Bad file > descriptor at notify.pl line 478. > > If I used the call I use for AIX unix, $msg->send ('smtp', 'localhost', > Dbug=>0); > I get the following message: > Failure sending email: Failed to connect to mail server: Unknown error > at notify.pl line 478. > > If I try just $msg->send (), I just get a message that it can't find the > sendmail program and no exception is thrown. And no email is sent out. > > So I'm assuming that it's because it can't locate the mail server to use > on the Windows platform. > > Is there any way to ask Windows what mail servers are available? I'd > hate to have to hard code one that isn't available at all the locations > this program would be installed on. I'd rather add code to ask for it. > > Curtis > > > > _______________________________________________ > ActivePerl mailing list > ActivePerl@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
