FW: Send email in ActivePerl using SMTP

[Toby Stuart]

luxn.com is not running a mail service (well not on port 25 anyway)

change 
        $optServer = 'luxn.com';
to
        $optServer = 'mail.luxn.com';

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, June 07, 2002 7:00 AM
To: [EMAIL PROTECTED];
[EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: Send email in ActivePerl using SMTP


I tried the following to use SMTP to send email:


   use Net::SMTP;
   $optServer = 'luxn.com';
   $optFrom = "[EMAIL PROTECTED]";
   $optTo = "[EMAIL PROTECTED]";
   $smtp = Net::SMTP -> new ("luxn.com");
   $smtp -> mail($optFrom);
   $smtp -> to ($optTo);

   $smtp -> data();

   Send the Header

   $smtp -> datasend ("To: [EMAIL PROTECTED]\n");
   $smtp -> datasend ("From: [EMAIL PROTECTED]\n");
   $smtp -> datasend ("\n");

   Send the body

   $smtp -> datasend("hello, world!\n");
   $smtp -> dataend();
   $smtp -> quit;


It say:

Can't call method "mail" on an undefined value at 
mailtest.pl line 8

line 8 is:    $smtp -> mail($optFrom);

I tried: $smtp -> mail('[EMAIL PROTECTED]'); it did not help.

What might be wrong here?


Thanks,
Yi Zhang 

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs