Timothy Johnson wrote at Sat, 06 Jul 2002 02:58:40 +0200:
> use Net::SMTP; > use strict; > > my %contact_info{ > name => 'John Smith', > title => 'Hard Worker', > email => '[EMAIL PROTECTED]', > pager => '1234567' > } > } > my $data = ''; > $data .= "To: Primary Contact"; ^^^ That won't work. The \n is necessary. (and of course a valid email adress :-)) > $data .= "Subject Automated Alert\n"; ^ We need a : after the Subject. > $data .= "\n"; > $data .= "Hello, $contact_info{name},\n"; #using the hash > $data .= "This message is an automated alert to let you know that\n"; > $data .= "one or more parameters are outside the acceptable range.\n"; > $data .= "Please address this issue immediately.\n"; > Why not use a HERE document ? my $data = <<"MAIL"; To: Primary Contact Subject: Automated Alert Hello, $contact_info{name}, This message is an automated alert to let you know that one or more parameters are outside the acceptable range. Please address this issue immediately. MAIL > my $smtp = Net::SMTP->new('mailserver'); > $smtp->mail('[EMAIL PROTECTED]'); > $smtp->to($contanct_info{email}); #using the hash again $smtp->data([$data]); >$smtp->quit(); > > ################################ > > Disclaimer: This may need some tweaking since I haven't actually tested it yet. > Greetings, Janek -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]