perl 　フォームメール送信の文字化けについて

解決済

質問者：see-sky
質問日時：2014/06/06 15:05
回答数：2件

フォームメール送信の文字化けについてお教え下さい。
よろしくお願い致します。

まずは環境より申し上げます。

環境
xampp-win32-1.7.7-VC9
同封
apache2.2.21
php5.3.8
perl 同封されているもの
-----------------------------
　xmailサーバーも動いています。
内部、外部、外部から外部、ともに正常に送受信できています。

以前はANHTTPDとperlとsendまね～るで問題なく動いていましたが
このたびPHPが必要になりましたので以前のperlをアンインストールしてXAMPPをインストールしました。
以前からの自作のメールフォームを設置してメールを送信すると
受付確認メールと問い合わせ報告メールのすべてが文字化けしています。

一応　文字コードはUTF-8で　mail.html、 perlプログラム、ともに統一しています。

apacheのhttpd.confの中にはAddDefaultCharset・・・の設定項目がなぜかありませんので
apacheについては文字コードの設定などはおこなっておりません。

症状ですが
メールフォームに入力して確認ボタンを押すと現れる確認画面は
文字化けしておりません、高崎、申す、表示という文字も化けていません。
このあと送信ボタンを押すと　メールは宛先へ正常に届きますが
タイトルからすべてが文字化けで読む事はできません。

原因探しが三日くらい続き、気になって寝られません。

ひろいあつめて書いたコードですが、
よろしくお願いいたします。

# MIMEエンコード
$mail_to = mimeencode($MAILTO);
$mail_from = mimeencode($FORM{'name'});
$mail_subject = mimeencode($FORM{'subject'});

# 文字コードの変換
$body = jcode::jis($user_owner);

# メールヘッダーの生成
$header = <<END;
To: $mail_to
From: $mail_from<$FORM{'email'}>
Subject: $mail_subject
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP

# サーバー出力
print <<END;
Content-type: text/html; charset=utf-8

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">

# メールの送信
open(MAIL, "| $SENDMAIL -i -t -f $FORM{'email'}")
or die("エラー：sendmailへのパイプが開けません");
print MAIL $header, $body;
close MAIL;

部分的で分かりにくいかもしれませんが

どなたか　どうぞよろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： kumoz
回答日時：2014/06/06 17:34

> # MIMEエンコード

> $mail_to = mimeencode($MAILTO);
> $mail_from = mimeencode($FORM{'name'});
> $mail_subject = mimeencode($FORM{'subject'});
>
> # 文字コードの変換
> $body = jcode::jis($user_owner);

先頭が小文字の jcode は、UTF-8 をサポートしていないので変換できません。また、mimeencode も mimew.pl のものだとしたら、やはり UTF-8 はサポート外だと思います。