Re: [MacPerl] A problem with mail

["Scott R. Godin" <mactech@webdragon.net>]

on 11/20/2000 09:47 PM, Vic Norton at norton@tweney.com wrote:

> Hello all,
> 
> I've just tried to install Graham Barr's "MailTools-1.1002" from the
> MacPerl CD-ROM. I dropped the "Mail" folder into my "site_perl"
> folder. "Mail" contains both "Header.pm" and "Internet.pm".
> 
> However I haven't been able to send any mail. Every time I try I get
> the error message
> # Can't locate auto/Mail/Internet/smtpsend.al in @INC.
> File 'IntHD:Languages:MacPerl Ÿ:lib:AutoLoader.pm'; Line 38
> ( Line 38 is:   eval {require $name}; )
> 
> What is the problem? I can't figure it out. Does anyone have any ideas?
> 
> I'm attaching the script I was trying to execute below. It is
> modelled on a script from "How do I send/read mail?" in
> "perlfaq9.pod".
> 
> Thanks for your help.
> 
> Regards,
> 
> Vic
> 
> ---------------------- my script follows -------------------------
> use Mail::Internet;
> use Mail::Header;
> $ENV{SMTPHOSTS} = 'mail.dacor.net';
> 
> my ($header, $body, $mail);
> 
> # create headers
> $header = new Mail::Header;
> $header->add('To', 'Vic Norton <norton@bgnet.bgsu.edu>');
> $header->add('From', 'Vic Norton <norton@tweney.com>');
> $header->add('Subject', 'Mail::Test');
> $header->add(undef, 'X-Norton-URL: <http://www.tweney.com/norton/>');
> 
> # create body
> $body = 'This is a test, ignore';
> 
> # create mail object
> $mail = new Mail::Internet(undef, Header => $header, Body => \[$body]);
> 
> # send it
> $mail->smtpsend or die;  # this is where the problem is
> 

you might find this script simpler and easier for SMTP

#!perl
# use the -w switch and Types.pm under MacPerl complains of an uninitialized
# value. (commenting out the use Net::SMTP; line eliminates the error when
# syntax checking. This is a known issue. you can use -w and ignore
# the warning if you like.)
use strict;
use Net::SMTP;
use Mac::InternetConfig;
my($smtp, $email, @emails, $subject, $message);

$smtp    = Net::SMTP->new();
$email   = $InternetConfig{kICEmail()}; # my address
@emails  = 'nowhere@devnull.com';
$subject = "Subject: testing MacPerl SMTP access\n\n";
$message = <<EOM;
 
MacPerl sent this message.  Nifty, eh? :-)

Just another Perl Hacker hard at work. =]

EOM

$smtp->mail($email)       or warn('failure'); #simple fail msg
$smtp->to(@emails)        or warn('failure'); #use what you like
$smtp->data()             or warn('failure');
$smtp->datasend($subject) or warn('failure');
$smtp->datasend($message) or warn('failure');
$smtp->dataend()          or warn('failure');
$smtp->quit()             or warn('failure');

__END__

-- 
Scott R. Godin            | e-mail : mactech@webdragon.net
Laughing Dragon Services  |    web : http://www.webdragon.net/



# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org