%
'
'
%>
<%
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("") %>