I can't get perl to send out an email. Below is the code I was using. All messages print fine. No errors reported. Just don't get any email. <br /><br />Any ideas???<br /><br /><!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1-->#!/usr/bin/perl<br /># Define Variables<br />$mailprog = '/usr/sbin/sendmail';<br />print "Content-type: text/html\n\n";<br />print "<html><body>this is a 6 test</body></HTML>\n";<br />open (MAIL, "|$mailprog <!-- e --><a href="mailto:[email protected]">[email protected]</a><!-- e -->") || die "Can't open $mailprog!\n";<br />print MAIL "From: <!-- e --><a href="mailto:[email protected]">[email protected]</a><!-- e --> \n";<br />print MAIL "To: <!-- e --><a href="mailto:[email protected]">[email protected]</a><!-- e -->\n";<br />print MAIL "Subject: test 29\n\n";<br />print MAIL "THIS IS THE TEST\n";<br />close (MAIL);<!--c2--></div><!--ec2--><!--content-->
Perl Email
- Thread starter liunx
- Start date