For someone: untested should work.
use Mail::Sender;
sub sendmail { my ($subject,$from, $rep, $to, $cc) = (@_);
my $sender = new Mail::Sender {
smtp => $SMTP_SERVER_NAME,
from => $MAIL_RETURN_ADDRESS,
};
die $Mail::Sender::Error if not ref $sender;
$_ = $sender->MailMsg({
$Bill Luebkert in <[EMAIL PROTECTED]>:
> [EMAIL PROTECTED] wrote:
>
> > I tried the following to use SMTP to send email:
> >
> >use Net::SMTP;
> >$optServer = 'luxn.com';
> >$optTo = "[EMAIL PROTECTED]";
> >
> > Can't call method "mail" on an undefined value at
> > mailtest.pl line
On 06/06/2002 22:00:09 Yi Zhang 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);
[snip rest of script]
>What m
http://www.faqs.org/rfcs/rfc2487.html
-Original Message-
From: Geoff Collins [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 12, 2002 1:38 PM
To: [EMAIL PROTECTED]
Subject: RE: Send email in ActivePerl using SMTP
While thinking on this topic
Does anyone know how to achieve
ECTED]'
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
L 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]";
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 Head
robably a
few people here who can put me straight,
Regards
Marty
- Original Message -
From: "Morse, Richard E." <[EMAIL PROTECTED]>
To: "'$Bill Luebkert'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Thursda
From: [EMAIL PROTECTED]
> 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);
> ...
>
> It say:
>
>
$Bill Luebkert [mailto:[EMAIL PROTECTED]] wrote:
> [EMAIL PROTECTED] wrote:
>
> > I tried the following to use SMTP to send email:
> >$smtp = Net::SMTP -> new ("luxn.com");
> >$smtp -> mail($optFrom);
> >
> > Can't call method "mail" on an undefined value at
> > mailtest.pl line 8
> >
[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 ($
11 matches
Mail list logo
