... or try Email::Sendmail
luke
On Wed, 10 Apr 2002 15:33:10 -0400
fliptop <[EMAIL PROTECTED]> wrote:
> t3tsu0 wrote:
>
> > Where:
> >
> > $mail_prog = '/usr/bin/sendmail';
> >
> >
> > sub send_mail {
> > local($from,$to_name,$to_addr,$subject,$content) = @_;
> > open(MAIL,"|$mail_prog -t") || &error("unable to send mail to:
> > $to_name - $to_addr");
> > print MAIL "From: $to_name ",'<',"$from",'>',"\n";
> > print MAIL "To: $to_name ",'<',"$to_addr",'>',"\n";
> > print MAIL "Subject: $subject\n";
> > print MAIL "$content\n";
> > close(MAIL);
> > print "Mail to: $to_name - $to_addr, completed.<BR>";
> > }
>
>
> have you guys ever considered using mime::lite? it simplifies sending
> mail, including attachments, etc.
>
> http://search.cpan.org/search?dist=MIME-Lite
>
> additionally, it's generally preferred that you not cross-post to
> several lists. pick the one that's most appropriate (in this case, i
> chose [EMAIL PROTECTED]) and post to that list only.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
