<% ' ' %> <% 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 tmps, i Dim PageType1 Dim FileName HyojiyoAtesakiMei = "" MailCD = Request("MailCD") TorihikisakiCD = Request("TorihikisakiCD") PageType = Request("PageType") RouteType = Request("RouteType") Dim Mode Mode = Request("Mode") If MailCD <> "" Then If TorihikisakiCD = "" Then Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" Else ' Query = "exec SPNメール開封 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" Query = "exec SPNメール開封2 '" & 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("内容") FileName = 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 Dim TenpuDir TenpuDir = "/" & HomeAlias & "/data/tenpu/" & EnshuCD & "/" & SakuseiKaisyaCD PageType1 = PageType If PageType = "" Then PageType = "NewMail" PageType1 = "SendMail" End If '生徒単位でのメール送信拒否設定を取得(091013小野) Dim MailSendKyohi Query = "exec SPV演習履歴取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MailSendKyohi = "" & Content.Fields("メール送信拒否") End If %> <% = HtmlHeader("") %>
<% If RouteType = "MailOnly" 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("受発信文書ウィンドウ" ,"tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=" & PageType1 & "&RouteType=" & RouteType & "&TorihikisakiCD=" & TorihikisakiCD & "&MailCD=" & MailCD & "&Mode=" & Mode & "')", "", "", "", "", "", "", "", "", "", "")) '「一覧に戻る」ボタンの飛び先はここで指定している 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("", "" ,"", "" ,"", "", "", "", "", "", "", "", "", "", "", "")) If TorihikisakiCD <> "" Then '生徒単位でメール送信拒否設定されている場合は返信ボタンを表示しない(091013小野) If MailSendKyohi = "1" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "","", "", "", "", "" ,"", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "返信","tblbtn( 'fn_mailsakusei.asp?RouteType=" & RouteType & "&TorihikisakiCD=" & TorihikisakiCD & "&MailCD=" & MailCD & "')", "", "", "", "" ,"", "")) End If Else '生徒単位でメール送信拒否設定されている場合は再作成ボタンを表示しない(091013小野) If MailSendKyohi = "1" Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "","", "", "", "", "" ,"", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "再作成", "tblbtn( 'fn_mailsakusei.asp?RouteType=" & RouteType & "&MailCD=" & MailCD & "')", "", "", "", "" ,"", "")) End If End If If PageType = "NewMail" Then 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 & "')")) ElseIf PageType = "RecvMail" Then Response.Write(HttpL3_2("受信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=" & RouteType & "')", "発信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Send&RouteType=" & RouteType & "')", "メール作成", "tblbtn( 'fn_mailsakusei.asp?RouteType=" & RouteType & "')", "受信メール", "" ,"送信メール", "tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=SendMail&RouteType=" & RouteType & "')")) Else Response.Write(HttpL3_2("受信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Recv&RouteType=" & RouteType & "')", "発信文書", "tblbtn( 'fn_jyuhasshinbunsyo.asp?PageType=Send&RouteType=" & RouteType & "')", "メール作成", "tblbtn( 'fn_mailsakusei.asp?RouteType=" & RouteType & "')", "受信メール", "tblbtn( 'fn_mailsakusei_ichiran.asp?PageType=RecvMail&RouteType=" & RouteType & "')" ,"送信メール", "")) End If If Mode = "Sakujo" Then Response.Write(HttpL4("照会", "削除済み")) Else Response.Write(HttpL4("照会", "")) End If %>
<% = HtmlFooter %> <% End Sub %>