kazin_ has asked for the wisdom of the Perl Monks concerning the following question:
use CGI; use CGI::Carp qw(carpout fatalsToBrowser); use Mail::SendEasy; print "Content-type: text/html\n\n"; print "Done"; my $cgi = new CGI; my $Reminder = $cgi->param('Reminder'); my $message =<<EOF; <html> <head> </head> <body> $Reminder </body> </html> EOF my $status = Mail::SendEasy::send( smtp => 'localhost' , user => 'user' , pass => 'password' , from => 'me@domain.com' , from_title => 'ME' , to => 'me@domain.com' , subject => "Reminder Message" , html => $message, msgid => "0101" , ) ; if (!$status) { Mail::SendEasy::error ;}
|
---|