<% ' ' %> <% 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 HyojiyoAtesakiMei = "" MailCD = Request("MailCD") TorihikisakiCD = Request("TorihikisakiCD") Dim PageType PageType = Request("PageType") Dim RouteType RouteType = Request("RouteType") Dim AutoFlg 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 = Content.Fields("作成日") SakuseiKaisyaCD = Content.Fields("作成会社CD") Kenmei = Content.Fields("件名") Naiyo = Content.Fields("内容") KaifuFlg = Content.Fields("開封フラグ") SakujyoFlg = Content.Fields("削除フラグ") Dim tmps, i tmps = split(Content.Fields("表示用宛先CD"), ",") If PageType = "受信メール" Then HyojiyoAtesakiMei = ConvKaisyaRyakuMeisyo(Content.Fields("会社CD")) Else For i = 0 To UBound(tmps) If HyojiyoAtesakiMei <> "" Then HyojiyoAtesakiMei = HyojiyoAtesakiMei + "," End If HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaRyakuMeisyo(tmps(i)) Next End If End If End If Dim PageType1 PageType1 = PageType If PageType = "" Then PageType = "メール作成" PageType1 = "送信メール" End If '060207 追加 ヘッダー部分のプリント処理のため By Hamada If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = AppTitle %>
<% Response.Write(PrintHeader(AutoFlg, "")) %>
受信者： <% = HyojiyoAtesakiMei %>
送信者： <% = ConvKaisyaRyakuMeisyo(SakuseiKaisyaCD) %> <% If PageType = "メール作成" Or PageType = "送信メール" Then %> <% Else %> <% End If %>
送信日： <% = Sakuseibi %>
件名： <% = Kenmei %>
<% Naiyo = Replace(Naiyo, "
", vbCrLf) Naiyo = Server.HTMLEncode(Naiyo) Naiyo = Replace(Naiyo, vbCrLf, "
" & vbCrLf) Response.Write(Naiyo) %>
<% = HtmlFooter %> <% End Sub %>