HELP!#!/usr/local/bin/perl use Mail::SendMail; $smtpserver = "mail.karger.net"; $smtpport = 25; $sender = 'Karger <karger@karger.com>'; $subject = "OMG NO"; $recipient = '<karger@karger.com>'; $replyto = $sender; $header = "X-Mailer"; $headervalue = "Perl SendMail Module 1.09"; $obj = new Mail::SendMail(); $obj = new SendMail($smtpserver); $obj = new SendMail($smtpserver, $smtpport); $obj->From($sender); $obj->Subject($subject); $obj->To($recipient); $obj->ReplyTo($replyto); $obj->setMailHeader($header, $headervalue); if ($obj->sendMail() != 0) { print $obj->{'error'}."\n"; } $obj->reset();
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |