marybailey
Programmer
Does anyone know why this is not working? It takes it but I never receive the email. Thanks!
sub send_mail {
$friend="mrsgbailey\@yahoo.com";
# Open The Mail Program
open(MAIL,"|$mailprog -t"
;
print MAIL "To: $friend\n";
print MAIL "From: $friend\n";
print MAIL "Subject: blah blah\n";
print MAIL "Content-Type: text/html; charset=us-ascii\n\n";
print MAIL "<html>\n";
print MAIL "<head>\n";
print MAIL "</head>\n";
print MAIL "<body>\n";
print MAIL "<BR>---------------------------------------------------<BR>\n";
print MAIL "</body>\n";
print MAIL "</html>\n";
close (MAIL);
sub send_mail {
$friend="mrsgbailey\@yahoo.com";
# Open The Mail Program
open(MAIL,"|$mailprog -t"
print MAIL "To: $friend\n";
print MAIL "From: $friend\n";
print MAIL "Subject: blah blah\n";
print MAIL "Content-Type: text/html; charset=us-ascii\n\n";
print MAIL "<html>\n";
print MAIL "<head>\n";
print MAIL "</head>\n";
print MAIL "<body>\n";
print MAIL "<BR>---------------------------------------------------<BR>\n";
print MAIL "</body>\n";
print MAIL "</html>\n";
close (MAIL);