Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
- Thread starter korndogg
- Start date
If you are on a UNIX system with sendmail, this should work. Slightly altered to protect the innocent from a copy that works, but I may have introduced a typo.<br><br><FONT FACE=monospace><br>#!/usr/local/bin/perl<br>$mailprog = '/usr/lib/sendmail'; # <font color=red>point this to your sendmail</font><br>$hdr = 'Some Header Stuff Here';<br>$recipient = '<A HREF="mailto:whoever@whereTheyAre.com">whoever@whereTheyAre.com</A>';<br>$command = "$mailprog -f $hdr $recipient";<br><br># open a pipe to the sendmail program<br>open (MAIL, "¦$command"
¦¦ die "Can't open $mailprog!\n";<br>print MAIL "From: Someone Relevant\n";<br>print MAIL "Reply-To: \n";<br>print MAIL "Subject: Subject of Message.\n";<br>print MAIL "Precedence: bulk\n\n";<br>print MAIL "--------------------------------------------------------------\n";<br>print MAIL "Some content for the message\n\n";<br>foreach $error (@errors) { print MAIL "$error\n"; }<br># Send mail to Recipient<br>close MAIL;<br></font> <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo
¦¦ die "Can't open $mailprog!\n";<br>print MAIL "From: Someone Relevant\n";<br>print MAIL "Reply-To: \n";<br>print MAIL "Subject: Subject of Message.\n";<br>print MAIL "Precedence: bulk\n\n";<br>print MAIL "--------------------------------------------------------------\n";<br>print MAIL "Some content for the message\n\n";<br>foreach $error (@errors) { print MAIL "$error\n"; }<br># Send mail to Recipient<br>close MAIL;<br></font> <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo- Status
Similar threads
