<!-- #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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
//印刷余白指定（ミリ指定）
PrintTopMargin = 20;
PrintLeftMargin = 20;
// PrintTopMargin = 0;
// PrintLeftMargin = 0;
-->
</SCRIPT>
<body onload="<% = 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><% = 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><% = ConvKaisyaMeisyo(SakuseiKaisyaCD) %></td>
</tr>
<tr>
<td width="60" height="25" align="right" class="tx1416">送信日：</td>
<td><% = Sakuseibi %></td>
</tr>
<tr>
<td width="60" height="25" align="right" class="tx1416">件名：</td>
<td><% = 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"><%
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
%>