For someone: untested should work.
use Mail::Sender;
sub sendmail { my ($subject,$from, $rep, $to, $cc) = (@_);
my $sender = new Mail::Sender {
smtp => $SMTP_SERVER_NAME,
from => $MAIL_RETURN_ADDRESS,
};
die $Mail::Sender::Error if not ref $sender;
$_ = $sender->MailMsg({
to => $to,
cc => $cc,
subject => $subject,
msg => $rep
});
die $Mail::Sender::Error if not ref $_;
warn "Sent.\n";
}
Lee Goddard
perl -e "while(1){print rand>0.5?chr 47:chr 92}"
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
