#!/usr/bin/perl use Mail::Mailer; $mailer=Mail::Mailer->new("sendmail"); print "\nRecipient Address:"; $too=<>; chomp($too); @to=split(";",$too); print "\nSubject:"; $mail_subject=<>; chomp($mail_subject); print "\nContent:"; $mail_content=<STDIN>; $mailer->open( { From => $from, To => \@to, Subject => $mail_subject }); print $mailer $mail_content; close($mailer);
In reply to Email using sendmail by alandev
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |