RE: Send email in ActivePerl using SMTP

[Geoff Collins]

While thinking on this topic....

Does anyone know how to achieve Authentication when connecting to an
SMTP server?
Thanks,
--geoff


-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] On Behalf Of
Toby Stuart
Sent: Wednesday, 12 June 2002 03:30
To: '[EMAIL PROTECTED]'
Subject: FW: Send email in ActivePerl using SMTP


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

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