<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	:メール照会
'	 作成日:2002/9/18
'	 作成者:山崎
'	 目的 :メールの照会処理をする。
'	 概要	:
'		<<表示>>
'	・メールの表示
'
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query,Content
	Dim SakuseiKaisyaCD
	Dim MailCD, Sakuseibi, TorihikisakiCD, Kenmei, Naiyo, KaifuFlg, SakujyoFlg, HyojiyoAtesakiCD, HyojiyoAtesakiMei
	Dim PageType
	Dim RouteType
	Dim AutoFlg
	Dim tmps, i
	Dim PageType1

	HyojiyoAtesakiMei = ""
	MailCD = Request("MailCD")
	TorihikisakiCD = Request("TorihikisakiCD")
	PageType = Request("PageType")
	RouteType = Request("RouteType")

	If MailCD <> "" Then

		If TorihikisakiCD = "" Then
			Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'"
		Else
			Query = "exec SPNメール開封 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'"

			Set Content = OpenQuery(Query)
			Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'"
		End If
		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

			MailCD = Content.Fields("メールCD")
			Sakuseibi = SetTimeYYYYMMDD(Content.Fields("作成日"))
			SakuseiKaisyaCD = Content.Fields("作成会社CD")
			Kenmei = Content.Fields("件名")
			Naiyo = Content.Fields("内容")
			KaifuFlg = Content.Fields("開封フラグ")
			SakujyoFlg = Content.Fields("削除フラグ")

			tmps = split(Content.Fields("表示用宛先CD"), ",")

			If PageType = "RecvMail" Then
				HyojiyoAtesakiMei = ConvKaisyaMeisyo(Content.Fields("会社CD"))
			Else
				For i = 0 To UBound(tmps)
					If HyojiyoAtesakiMei <> "" Then
						HyojiyoAtesakiMei = HyojiyoAtesakiMei + "、"
					End If
					If UBound(tmps) = 0 Then
						HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaMeisyo(tmps(i))
					Else
						HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaRyakuMeisyo(tmps(i))
					End If
				Next
			End If
		End If
	End If

	PageType1 = PageType

	If PageType = "" Then
		PageType = "NewMail"
		PageType1 = "SendMail"
	End If
	'060207 追加 ヘッダー部分のプリント処理のため By Hamada
If RouteType = "Hakushi" Then

	AutoFlg = -1

Else

	AutoFlg = 0

End If


	'送信前に事前印刷するフラグ ※先生による目視チェック用(151027小野)
	Dim PrintPreview
	PrintPreview = Request("PrintPreview")

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";

	//印刷余白指定(ミリ指定)
	PrintTopMargin = 20;
	PrintLeftMargin = 20;
//	PrintTopMargin = 0;
//	PrintLeftMargin = 0;


	//送信前の事前印刷 ※先生による目視チェック用(151027小野)
	function PrintPreview() {
		var TmpAtesaki = "";
		for (ii=0; ii<parent.document.form1.TorihikisakiCD.length; ii++) {
			if (parent.document.form1.TorihikisakiCD.options[ii].selected) {
				if (TmpAtesaki != "") {
					TmpAtesaki = TmpAtesaki + "、";
				}
				TmpAtesaki = TmpAtesaki + parent.document.form1.TorihikisakiCD.options[ii].text;
			}
		}
		document.getElementById("PrintAtesaki").innerText = TmpAtesaki;
		document.getElementById("PrintSakuseibi").innerText = parent.document.form1.Sakuseibi.value;
		document.getElementById("PrintKenmei").innerText = parent.document.form1.Kenmei.value;
		document.getElementById("PrintNaiyo").innerText = parent.document.form1.Naiyo.value;
	}

-->
</SCRIPT>

<body onload="<% If PrintPreview = "1" Then %>PrintPreview();<% End If %><% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% = PrintScriptX %>

<form OnKeyDown="FormKeyDown(this)"	 name="form1" method="POST" action="fn_mailsakusei_bin.asp">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td align="left" valign="top">
		<%
		Response.Write(PrintHeader(AutoFlg, ""))
		%>
			<table width="500" height="375" border="0" cellpadding="20" cellspacing="5" bgcolor="#FFFFFF" STYLE="BORDER:solid 1px #000000">
				<tr>
					<td align="center" valign="top" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table width="500" height="350" border="0" cellpadding="5" cellspacing="0">
							<tr>
								<td height="100" align="center">
									<table width="100%" height="100" border="0" cellpadding="2" cellspacing="0" STYLE="BORDER:solid 2px #80AEFF" CLASS="tx1416">
										<tr>
											<td width="60" height="25" align="right" class="tx1416">受信者:</td>
											<td id="PrintAtesaki"><% = HyojiyoAtesakiMei %></td>
											<td width="55" rowspan="3">
											<% If PageType = "NewMail" Or PageType = "SendMail" Then %>
											<img src="/<% = HomeAlias %>/images/mltab_icon_snd.gif?<% = GB_STU %>" width="45" height="45" align="absmiddle">
											<% Else %>
											<img src="/<% = HomeAlias %>/images/mltab_icon_rcv.gif?<% = GB_STU %>" width="45" height="45" align="absmiddle">
											<% End If %>
											</td>
										</tr>
										<tr>
											<td width="60" height="25" align="right" class="tx1416">送信者:</td>
											<td id="PrintSakuseiKaisya"><% If PrintPreview = "1" Then %><% = ConvKaisyaMeisyo(KaisyaCD) %><% Else %><% = ConvKaisyaMeisyo(SakuseiKaisyaCD) %><% End If %></td>
										</tr>
										<tr>
											<td width="60" height="25" align="right" class="tx1416">送信日:</td>
											<td id="PrintSakuseibi"><% = Sakuseibi %></td>
										</tr>
										<tr>
											<td width="60" height="25" align="right" class="tx1416">件名:</td>
											<td id="PrintKenmei"><% = Kenmei %></td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td>
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:100%; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
										<table border="1" width="100%" cellspacing="0" bordercolordark="#C0C0C0" bgcolor="#FFFFFF" bordercolorlight="#808080" height="100%">
											<tr>
												<td valign="top" CLASS="tx1416" id="PrintNaiyo"><%
													Naiyo = Replace(Naiyo, "<br>", vbCrLf)
													Naiyo = Server.HTMLEncode(Naiyo)
													Naiyo = Replace(Naiyo, vbCrLf, "<br>" & vbCrLf)
													Response.Write(Naiyo)
												%></td>
											</tr>
										</table>
									</div>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</form>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>