Need Some Help
Hello, i have this script here which sends an e-mail.
The problem is that when i use greek letters in the form i get them in my e-mail as weird characters.
I assume that i must change the charset to iso-8859-7
Could anyone help by telling me how i can do that?
thanks
if($http_from)
{ print MAIL "From: $http_from\n"; }
else
{ print MAIL "From: $form{'email'}\n"; }
print MAIL "Reply-to: $form{'email'}\n";
print MAIL "Subject:Testing Guest Book\n";
print MAIL "\n";
print MAIL $separator;
print MAIL "Guest Book\n";
print MAIL $separator;
print MAIL "Name: .........$form{'title'} $form{'name'}\n";
print MAIL "Hospital: .....$form{'hospital'}\n";
print MAIL "Address: .....$form{'address'}\n";
print MAIL "Telephone: ..$form{'tel'}\n";
print MAIL "Fax: .............$form{'fax'}\n";
print MAIL "E-mail: ......$form{'email'}\n";
print MAIL $separator;
print MAIL "Interest area:\n";
print MAIL $separator;
print MAIL "$form{'renal'}\n";
print MAIL "$form{'diagnostic'}\n";
print MAIL "$form{'cardiovascular'}\n";
print MAIL "$form{'blood'}\n";
print MAIL "$form{'other'}\n";
print MAIL $separator;
print MAIL "Remarks:\n";
print MAIL "$form{'remarks'}\n";
print MAIL $separator;
close (MAIL);
print "<HTML>";
print "<TITLE>Form successfully sent</TITLE>\n";
print "<H1 align=center>Form successfully sent</H1>\n";
print "<H2 align=center>Thank you for taking the time to fill out our Guest Book.</H2>";
print "</BODY>";
print "</HTML>";
exit(0);
The problem is that when i use greek letters in the form i get them in my e-mail as weird characters.
I assume that i must change the charset to iso-8859-7
Could anyone help by telling me how i can do that?
thanks
if($http_from)
{ print MAIL "From: $http_from\n"; }
else
{ print MAIL "From: $form{'email'}\n"; }
print MAIL "Reply-to: $form{'email'}\n";
print MAIL "Subject:Testing Guest Book\n";
print MAIL "\n";
print MAIL $separator;
print MAIL "Guest Book\n";
print MAIL $separator;
print MAIL "Name: .........$form{'title'} $form{'name'}\n";
print MAIL "Hospital: .....$form{'hospital'}\n";
print MAIL "Address: .....$form{'address'}\n";
print MAIL "Telephone: ..$form{'tel'}\n";
print MAIL "Fax: .............$form{'fax'}\n";
print MAIL "E-mail: ......$form{'email'}\n";
print MAIL $separator;
print MAIL "Interest area:\n";
print MAIL $separator;
print MAIL "$form{'renal'}\n";
print MAIL "$form{'diagnostic'}\n";
print MAIL "$form{'cardiovascular'}\n";
print MAIL "$form{'blood'}\n";
print MAIL "$form{'other'}\n";
print MAIL $separator;
print MAIL "Remarks:\n";
print MAIL "$form{'remarks'}\n";
print MAIL $separator;
close (MAIL);
print "<HTML>";
print "<TITLE>Form successfully sent</TITLE>\n";
print "<H1 align=center>Form successfully sent</H1>\n";
print "<H2 align=center>Thank you for taking the time to fill out our Guest Book.</H2>";
print "</BODY>";
print "</HTML>";
exit(0);
Need Some Help