![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
いつもお世話になります。
PerlでSendmail送信プログラムは何回か作ったことが有るのですが、いつもと同じように作っているつもりにも関わらず、送信されたメール本文の1~2行目に
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
が表示されます。
コードは$mailtoや$mail_from、$mail_subjectなどをMIMEエンコードしてから下記の様なコードでメールヘッダーを作成し
$header = <<END;
To: $mailto
Bcc:$mail
From: $mail_from<$mail>
Subject: $mail_subject
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
END
#メールの本文を下記のように作成
$body = <<END;
メール本文
END
$mbody=jcode::jis($body);
#Sendmailで送信する。
open(MAIL, "| $SENDMAIL -i -t -f $mail") or die("ERROR: exec sendmail.");
print MAIL $header, $mbody;
close MAIL;
というコード-です。
なにが原因かおわかりの方宜しくお願いします。
No.1ベストアンサー
- 回答日時:
がると申します。
直接的には「$mail_subjectの値がおかしい」ことが予想されます。もっと厳密に発言すると「$mail_subjectという変数に格納されている値の最後に改行コードがある」のが問題です。
一度、
open(MAIL, "| $SENDMAIL -i -t -f $mail") or die("ERROR: exec sendmail.");
print MAIL $header, $mbody;
close MAIL;
の部分を
# open(MAIL, "| $SENDMAIL -i -t -f $mail") or die("ERROR: exec sendmail.");
# print MAIL $header, $mbody;
print $header, $mbody;
# close MAIL;
として、その標準出力をチェックしてみてください。
後は「一番初めに出てきた"1カラム目の改行"がヘッダとボディとを切り分けるサイン」である、という知識があると、状況がつかめるかと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP phpのメールフォームの完了画面でメール受信のコードを書いています。 1 2023/05/31 11:39
- PHP php 完了画面の送信メールのコードを書いているのですが・・・ 2 2023/06/02 12:01
- Gmail 【お助け!】サーバーからのメール送信でGmailに送信されない問題について 1 2023/06/20 22:03
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- PHP Content-Typeが機能していない? 2 2022/07/17 11:10
- PHP PostgreSQLからCSV形式でエクスポートする際にカラム内の改行をとる方法 1 2023/02/22 10:05
- 英語 この"e-mail"が複数形でもなく、無冠詞なのはなぜですか? 「表現のための実践ロイヤル英文法」に 1 2022/07/10 16:12
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Gmail 家から自分のg-mailで添付ファイル付きのメールを4通、職場の自分宛てに送りました。次の日に見ると 3 2022/09/08 12:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルをディレクトリ分配の...
-
テキストファイルで提出とは?
-
Perlのエラーについてご教授く...
-
perlのrequireの動き方について...
-
Perlでファイルの末尾から指定...
-
TeraPadエディターの操作方法に...
-
Perl 特定のフォルダ以外削除
-
ラズベリーパイ初心者です。 ラ...
-
アルファベットに付いて質問し...
-
perlのプログラミング 部分入れ...
-
画像が表示でnull; this.src
-
Perlで特定文字列から特定文字...
-
INDIRECT 横に再度抽出したい
-
Wallpaper Engineでおすすめの...
-
openした後、closeしないでプロ...
-
Perlでの文字列置換
-
Perlで一定値以上の場合にデー...
-
Perl 複数ファイルの処理 log1....
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
sendmailで複数の宛先にメール...
-
Perlからメール送信で文字化け
-
フォームの日本語が文字化け
-
Sendmailで送信。メアドが違う...
-
CGI メールフォームからBCCのア...
-
perl フォームメール送信の...
-
Perl からbashを呼び出したい
-
sendmailで複数アドレスに送信...
-
perl で mailto: リンク
-
auのiPhoneでの受信メールが文...
-
crontabで
-
自動返信について
-
メールフォームの訪問者情報取...
-
sendmailが上手く動かないのか...
-
cgi.pmで作成されたsendmailプ...
-
メールのタグ(<a href="mailto:...
-
sendmailのFROMに日本語を使う
-
sendmailについて
-
メール送信のFromアドレスについて
-
Perlにて、sendmailを使用する...
おすすめ情報