FRM002.php
1.49 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
<?php
//*****************************************************************************
//*
//* プログラム名：部門情報DB設定処理
//* プログラムID：CON003_1_1
//* 機能 ：部門情報をDB設定する
//* 作成者 ：石田 英治
//*
//*****************************************************************************
header("Content-type: text/html; charset=EUC-JP");
include("include/session_start.inc");
include("include/SessionChk.inc");
$strDBinc="include/dbcon.inc";
include($strDBinc);
mb_language('Japanese');
mb_internal_encoding('EUC-JP'); // ☆
//20170112 サーバ移行時にmedia-tek.co.jpへメールが飛ばない対応
$mlto = $email1."@".$email2;
$mlfr = $email3."@".$email4;
$Headers = "Date: ".$GMT_RFC."\n";
$Headers .= "From: ".$mlfr."\n";
$Headers .= "Subject: $MailSubject\n";
$Headers .= "MIME-Version: 1.0\n";
$Headers .= "X-Mailer: PHP/".phpversion()."\n";
$Headers .= "Content-type: text/plain; charset=ISO-2022-JP\n";
$Headers .= "Content-Transfer-Encoding: 7bit";
// mb_language("Japanese");
//$headers ="From:".$email3."@".$email4;
// mail($email1."@".$email2,mb_convert_encoding($mail_subject,"UTF-8","EUC-JP"),$memo,"From: ".$email3."@".$email4);
//mb_send_mail($email1."@".$email2,$mail_subject,$memo,$headers);
$mlsb = "=?iso-2022-jp?B?" .base64_encode(mb_convert_encoding(stripslashes($mail_subject), "JIS", "EUC-JP")). "?=";
$mlms = mb_convert_encoding(stripslashes($memo), "JIS", "EUC-JP");
$rcd = mail($mlto, $mlsb, $mlms, $Headers, "-f".$mlfr);
header("Location: ADR001.php");
?>