<% ' ' %> <% 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, "
", 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, "
", vbCrLf) Naiyo = Server.HTMLEncode(Naiyo ) Naiyo = Replace(Naiyo, vbCrLf, vbCrLf & "> ") Naiyo = "> " & Naiyo End If End If End If %> <% = HtmlHeader("") %>
<% 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("メール", "メール作成")) %>
<% = HtmlFooter %> <% End Sub %>