[EMAIL PROTECTED] wrote:
> 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?
Start by escaping your @s inside "s or change "s to 's.
Try a: use strict; at the top
Check your new call for errors.
--
,-/- __ _ _ $Bill Luebkert ICQ=14439852
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl)
-/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
