Perl でメール送信プログラム。

質問

Perl でメール送信プログラムを作ったのですが、自宅の環境から会社に持ってきてテストすると文字化けしてしまいます。

自宅は、Yahoo ! , Biglobe なので送信できたのですが、会社は、自社でメールサーバを構築しているようです。

メールサーバは、qmail のようです。

ソースは、

$smtp = Net::SMTP->new("mailserver");
$smtp->mail($mailaddress);
$smtp->to($mailaddress);
$smtp->data();
$smtp->datasend("Date:$date\n");
$smtp->datasend("From:$mailaddress\n");
$smtp->datasend("To:$mailaddress\n");
$smtp->datasend("Subject:あいうえお\n");
$smtp->datasend("Content-Transfer-Encoding: 7bit\n");
$smtp->datasend("Content-Type: text/plain;charset=\"iso-2022-jp\"\n\n");
$smtp->datasend("\n");
$smtp->datasend("$StringBuffer\n");
$smtp->dataend();
$smtp->quit;

こんな感じで一般的なものです。

“あいうえお”が“ツつツつ「ツつ、ツつヲツつィツ”こんな感じに文字化けしています。

どなたかわかる方いませんか？

回答No.4

t-okura · ベストアンサー

subject は、ISO-2022-JP に変換した上で base64 でエンコードしましょう。

参考 : http://perltips.twinkle.cc/perl/encode_jis_subject.php

本文も ISO-2022-JP に変換するのが無難です。
$StringBuffer に入っている本文の文字コードは何でしょうか。
EUC-JP だとすると
$smtp->datasend(encode('ISO-2022-JP', decode('EUC-JP', $StringBuffer)));
となるのかな。

参考 : http://hikoboshi.org/perl/doc/encode.html

お礼

ありがとうございます！

うまくいきました！

やっぱり、基本が理解できてないとだめですね。。。。

勉強になりました！

回答No.3

DIooggooID

文字化けが起きるのは、Subjectの部分だけではないですか？

補足

本文のほうの文字化けが主です。

回答No.2

DIooggooID

ご参考

http://q.hatena.ne.jp/1136691036

お礼

$smtp->mail($mailaddress);
$smtp->to($mailaddress);

$date = &date;

$smtp->data();
$smtp->datasend("Date:$date\n");
$smtp->datasend("From:$mailaddress\n");
$smtp->datasend("To:$mailaddress\n");
$smtp->datasend("Subject:Software制作依頼\n");
$smtp->datasend("Content-Transfer-Encoding: 7bit\n");
$smtp->datasend("Content-Type: text/plain;charset=\"euc-jp\"\n\n");
$smtp->datasend("\n");
$smtp->datasend(encode("euc-jp", $StringBuffer)."\n");
$smtp->dataend();

$smtp->quit;

コードをこんな感じに直しましたが、文字化けしてしまいます。

あいうえお　→　 ???臓単?総蔵丹?総蔵・?臓俗?B こんな感じです。

補足

Linux の文字コードの設定は、EUC-JP でした。

回答No.1

SAYKA

Subjectの文字コードに関する資料を探したら良いよ。
簡単に言うと会社のサーバ(sendmailかな？)は他と違う文字コードが基準で駆動してるだけ。

補足

会社のメールサーバは、qmail のようです。
サーバは、Linux なのですが、基準の文字コードの調べ方はわかりますか？