> -----Original Message-----
> From: Felix Geerinckx [mailto:[EMAIL PROTECTED]]
#!/usr/bin/perl
use Net::SMTP;
use strict;
my $server = 'LONEXC0xxxxxxxxxxxx';
my $to = '[EMAIL PROTECTED]';
my $from_name = '[EMAIL PROTECTED]';
my $from_email = '[EMAIL PROTECTED]';
my $subject = 'hello, email';
my $smtp = Net::SMTP->new($server) or die "SMTP failed: $!";
$smtp->mail($from_email);
$smtp->to($to);
$smtp->data();
> There is no line 13 in the above code.
I have replace the code with what I was trying above, all the code is the
same as the original under where it stops.
> Why don't you check the return value of the Net::SMTP call, as in:
>
> $smtp = NET::SMTP->new($server) or die "SMTP failed: $!";
>
This seems to be where it is failing. Does this mean that the exchange
server is not talking as we would expect it to. Is there any authentication
issues or does exchange use its own protocols.
Harry.
Harry
*************************************************************************************
COLT Telecommunications
Registered in England No. 2452736
Registered Office: Bishopsgate Court, 4 Norton Folgate, London E1 6DQ
Tel. +44 20 7390 3900
This message is subject to and does not create or vary any contractual
relationship between COLT Telecommunications, its subsidiaries or
affiliates ("COLT") and you. Internet communications are not secure
and therefore COLT does not accept legal responsibility for the
contents of this message. Any view or opinions expressed are those of
the author. The message is intended for the addressee only and its
contents and any attached files are strictly confidential. If you have
received it in error, please telephone the number above. Thank you.
*************************************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
