Perlからqmailでメールを送信するときのヘッダ情報

CGI-BBS > ＣＧＩ > Perl > Perlからqmailでメールを送信するときのヘッダ情報

質問者 まこりん投稿日 5/30(水) 10:53:05 [削除] (返信・回答が付いた後にこの質問の削除はできません)

大変申し訳ありません。

Perlからqmailでメールを送信するときのヘッダ情報について
お教えいただけないでしょうか・・・

下記のヘッダ情報の形式で
Perl 5.0　ＣＧＩのスクリプトから
qmail を利用してメールを配送しています。

そこで、

この方式での配信実績は、

●g**コ**ニ**のフリーメール  正常に受信できました。

●OutlookExpress5.0 for Win  正常に受信できました。

●某フリーメール  受信できません（みたところ）
　※問い合わせさえていただいたのですが・・・
　　ヘッダ情報に問題があると、ご指摘を頂いたものです。

でした。

=========ヘッダ情報ここから===========

Return-Path: <reg@****.com>
Delivered-To: makorin@****.com
Received: (qmail 27270 invoked by uid 501); 29 May 2001 11:15:04 +0900
Date: 29 May 2001 11:15:04 +0900
Message-ID: <20010529021504.27262.qmail@****.com>
To: makorin@****.com
From: reg@****.com
Subject:
=?ISO-2022-JP?B?UmVxdWVzdGVtgWmDioNOg0eDWINlg4CBaoOGgVuDVYFbj+6V8YLMgrKKbZRG
gsWCt4FC=?=
Errors-To: err@****.com
Mime-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;charset="ISO-2022-JP"

=========ヘッダ情報ここまで===========

=========Perlスクリプトここから==============

#メール設定
$sendmail = '/usr/lib/sendmail';
$nkfpath = '/usr/bin/nkf';

#日本語
require 'jcode.pl';
require "mimew.pl";

$recipient = $Email;
$Head = "ありがとう。";

use MIME::Base64;
$mimed = encode_base64($Head);

&jcode'convert(*Head, "jis");

chomp $mimed;
$Head = "=?ISO-2022-JP?B?".$mimed."=?=";

open MAIL , "| $sendmail -t " or die "メール送信処理失敗\n";

print MAIL "To: $Email\n";
print MAIL "Bcc: $PCEMAIL_L100\n";
print MAIL "From: $PCEMAIL_R110\n";
print MAIL "Subject: $Head\n";

if (length($Retmail) eq 0){
        print MAIL "Return-Path: $PCEMAIL_R110\n";
}else{
        print MAIL "Return-Path: $Retmail\n";
}

if (length($Errmail) eq 0){
        print MAIL "Errors-To: $PCEMAIL_R110\n";
}else{
        print MAIL "Errors-To: $Errmail\n";
}

print MAIL "Mime-Version: 1.0\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";

print MAIL "Content-Type: text/plain;charset=\"ISO-2022-JP\"\n\n";

$Mailbody .= "\n";
$Mailbody .= "  めーるありがとう。\n";
$Mailbody .= "\n";

&jcode'convert(*Mailbody, "jis");

print MAIL "$Mailbody\n";
close(MAIL);

=========Perlスクリプトここまで==============

何分初心者なもので、扱い方がわかりません。

ご教授の程、よろしくお願いいたします。

返信(回答)する

Ｗｅｂ裏技