質問編集履歴
1
clipmailのコードを追加しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -33,3 +33,27 @@
|
|
|
33
33
|
メールサーバーは「Microsoft 365」
|
|
34
34
|
レンタルサーバーは「ヘテムル（heteml）」
|
|
35
35
|
|
|
36
|
+
|
|
37
|
+
### 返信内容フォーマット・・・clipmail
|
|
38
|
+
my $res_body;
|
|
39
|
+
if ($cf{auto_res}) {
|
|
40
|
+
# 件名MIMEエンコード
|
|
41
|
+
my $re_sub = mime_unstructured_header($cf{sub_reply});
|
|
42
|
+
|
|
43
|
+
$res_body .= "To: $email\n";
|
|
44
|
+
$res_body .= "From: $cf{mailto}\n";
|
|
45
|
+
$res_body .= "Subject: $re_sub\n";
|
|
46
|
+
$res_body .= "MIME-Version: 1.0\n";
|
|
47
|
+
$res_body .= "Date: $date2\n";
|
|
48
|
+
|
|
49
|
+
if ($cf{send_b64} == 1) {
|
|
50
|
+
$res_body .= "Content-type: text/plain; charset=utf-8\n";
|
|
51
|
+
$res_body .= "Content-Transfer-Encoding: base64\n";
|
|
52
|
+
} else {
|
|
53
|
+
$res_body .= "Content-type: text/plain; charset=iso-2022-jp\n";
|
|
54
|
+
$res_body .= "Content-Transfer-Encoding: 7bit\n";
|
|
55
|
+
}
|
|
56
|
+
|
|
57
|
+
$res_body .= "X-Mailer: $cf{version}\n\n";
|
|
58
|
+
$res_body .= "$reply\n";
|
|
59
|
+
}
|