<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：メール作成
' 作成日：2002/9/18
' 作成者：山崎
' 目的 ：メールの作成画面を表示する。
' 概要 ：
' <<表示>>
' ・メールの作成画面
'
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query,Content
'FAX利用可否判定（添付メールは常時利用に変更したので非利用）
Dim FAXRiyo
Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
' Set Content = OpenQuery(Query)
' If Not(Content.BOF Or Content.EOF) Then
' FAXRiyo = "" & Content.Fields("FAX利用")
' End If
Dim SakuseiKaisyaCD
Dim MailCD, Sakuseibi, TorihikisakiCD, Kenmei, Naiyo, KaifuFlg, SakujyoFlg, TorihikisakiMaisyo
Dim AtesakiCD
MailCD = Request("MailCD")
TorihikisakiCD = Request("TorihikisakiCD")
Dim ShitagakiCD
Dim RouteType
RouteType = Request("RouteType")
Dim Mode
Mode = Request("Mode")
If MailCD <> "" Then
If TorihikisakiCD = "" Then
'下書き再編集または送信メール再作成の場合
Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
MailCD = Content.Fields("メールCD")
If Mode = "Shitagaki" Then
ShitagakiCD = Content.Fields("メールCD")
End If
Sakuseibi = SetTimeYYYYMMDD(Content.Fields("作成日"))
' TorihikisakiCD = Content.Fields("宛先CD")
AtesakiCD = Content.Fields("表示用宛先CD")
Kenmei = Content.Fields("件名")
Naiyo = Content.Fields("内容")
SakuseiKaisyaCD = Content.Fields("作成会社CD")
KaifuFlg = Content.Fields("開封フラグ")
SakujyoFlg = Content.Fields("削除フラグ")
TorihikisakiMaisyo = ConvKaisyaRyakuMeisyoDx(EnshuCD, Content.Fields("会社CD"))
Kenmei = Server.HTMLEncode(Kenmei)
Naiyo = Replace(Naiyo, "<br>", vbCrLf)
Naiyo = Server.HTMLEncode(Naiyo )
End If
Else
'返信モード
Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
MailCD = Content.Fields("メールCD")
' Sakuseibi = Content.Fields("作成日")
' TorihikisakiCD = Content.Fields("宛先CD")
'AtesakiCD = Content.Fields("表示用宛先CD")
Kenmei = Content.Fields("件名")
Naiyo = Content.Fields("内容")
SakuseiKaisyaCD = Content.Fields("作成会社CD")
KaifuFlg = Content.Fields("開封フラグ")
SakujyoFlg = Content.Fields("削除フラグ")
TorihikisakiMaisyo = ConvKaisyaRyakuMeisyoDx(EnshuCD, Content.Fields("会社CD"))
Kenmei = Server.HTMLEncode(Kenmei)
Kenmei = "Re: " & Kenmei
Naiyo = Replace(Naiyo, "<br>", vbCrLf)
Naiyo = Server.HTMLEncode(Naiyo )
Naiyo = Replace(Naiyo, vbCrLf, vbCrLf & "> ")
Naiyo = "> " & Naiyo
End If
End If
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 %>";
ExitFlg = 2;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#8D9BCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name="form1" method="POST" action="fn_mailsakusei_bin.asp" ENCTYPE="multipart/form-data" autocomplete="off">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="ShitagakiCD" value="<% = ShitagakiCD %>">
<input type="hidden" name="Mode" value="">
<%
If InStr(RouteType, "MailOnly") > 0 Then
Response.Write(HtmlDesign(6))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(3))
If InStr(RouteType, "MailOnly") > 0 Then
Response.Write(HttpL2("受発信文書ウィンドウ" ,"", "", "", "", "", "", "", "", "", "", ""))
ElseIf GB_Gyosyu <> "B" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", "メール" , "", "", ""))
Else
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", ConvKubunMeisyo("業種CD", GB_Gyosyu) , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "受発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/')", "メール", "", "", "", "", ""))
End If
Response.Write(HttpL3("","" ,"", "" ,"", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_view_print.asp") & "?PageType=SendMail&PrintPreview=1');", "送信", "SubmitCheck('');", "送信せずに保存", "SubmitCheck('Shitagaki');", "下書き一覧", "tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=SendMail&Mode=Shitagaki&RouteType=" & RouteType & "');", "", ""))
Response.Write(HttpL3_2("受信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=" & RouteType & "')", "発信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Send&RouteType=" & RouteType & "')", "メール作成", "", "受信メール", "tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=" & RouteType & "')" ,"送信メール", "tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=SendMail&RouteType=" & RouteType & "')"))
Response.Write(HttpL4("メール", "メール作成"))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table border="0" cellpadding="20" cellspacing="5" bgcolor="#FFFFFF" STYLE="BORDER:solid 1px #000000">
<tr>
<td align="center" valign="middle" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="280" valign="top">
<table width="100%" height="245" border="0" cellpadding="0" cellspacing="0" STYLE="BORDER:solid 2px #80AEFF">
<tr>
<td height="10" colspan="2" class="tx1416"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="100" height="10"></td>
</tr>
<tr>
<td height="20" class="tx1416"> 宛先：</td>
</tr>
<tr>
<td>
<select size="20" name="TorihikisakiCD" multiple style="width:250px;" class="tx1416">
<%
Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim TmpKaisyaCD
TmpKaisyaCD = Content.Fields("会社CD")
If TmpkaisyaCD <> KaisyaCD Then
Response.Write("<option value=""" & Content.Fields("会社CD") & """")
If Content.Fields("会社CD") = SakuseiKaisyaCD Or Content.Fields("会社CD") = AtesakiCD Or InStr(AtesakiCD, "," & Content.Fields("会社CD")) > 0 Or InStr(AtesakiCD, Content.Fields("会社CD") & ",") > 0 Then
Response.Write(" selected")
End If
Response.Write(">")
Response.Write(Content.Fields("会社名称") & "</option>" & vbCrLf)
End If
Content.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td height="20" colspan="2" align="center" class="tx1214">（Ctrlキーで複数選択できます）
</td>
</tr>
</table>
<table width="100%" height="55" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="bottom"><img src="/<% = HomeAlias %>/images/mltab_icon_new.gif?<% = GB_STU %>" width="45" height="45" align="absmiddle"></td>
</tr>
</table>
</td>
<td width="10"> </td>
<td width="502" valign="top">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" STYLE="BORDER:solid 2px #80AEFF">
<tr>
<td height="10" colspan="2" class="tx1416"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="1" height="10"></td>
</tr>
<tr>
<td width="66" height="25" align="right" class="tx1416">作成日：</td>
<td height="25">
<input type="text" name="Sakuseibi" size="12" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true);" class="tbox4_w" value="<% = Sakuseibi %>" onkeydown="FormKeyDown(this);">
</td>
</tr>
<tr>
<td height="35" align="right" class="tx1416">件名：</td>
<td height="35">
<input type="text" name="Kenmei" size="66" onBlur="FormStrLeftIME(this,50,true);" class="tbox4_ime_w" value="<% = Kenmei %>" onkeydown="FormKeyDown(this);">
</td>
</tr>
<tr>
<td height="337" align="right" valign="top" class="tx1416"><div><% = Spacer(1,5) %></div>内容：</td>
<td>
<textarea rows="20" wrap="hard" name="Naiyo" cols="66" onBlur="FormStrLeftIME(this,800,true);" class="tarea4_ime_w"><% = Naiyo %></textarea><BR>
</td>
</tr>
<% 'If EnableFAX = 0 Or FAXRiyo = "0" Then %>
<tr>
<td height="30" align="right" class="tx1416">添付：</td>
<td>
<input type="file" name="UpFile" value="" size="56" class="tbox4_w" UNSELECTABLE="On">
</td>
</tr>
<% 'End If %>
<tr>
<td height="10" colspan="2" class="tx1416"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="100" height="10"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
<!--印刷出力用フレーム-->
<IFRAME name="PrintoutInline" SRC="" WIDTH="0" HEIGHT="0" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex="-1"></IFRAME>
</body>
<SCRIPT LANGUAGE="JavaScript">
function SubmitCheck(Mode) {
if (Mode != "Shitagaki") {
var bCheck;
bCheck = false;
for (i=0;i < form1.TorihikisakiCD.length; i ++) {
if (form1.TorihikisakiCD.options[i].selected) bCheck = true;
}
if (!bCheck) {
alert("送信先が選択されていません ");
return;
}
if (form1.Sakuseibi.value == "") {
alert("作成日を入力してください ");
return false;
}
} else {
if (form1.Kenmei.value == "") {
alert("件名を入力してください ");
return false;
}
if (form1.UpFile.value != "") {
if (!confirm("下書き保存では添付ファイルは保存されません。\nよろしいですか？")) {
return false;
}
}
}
form1.Mode.value = Mode;
SubmitReal(form1);
return true;
}
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>