<% ' ' ' %> <% main() Sub main() Dim MailCD Dim TorihikisakiCD, Sakuseibi, Kenmei, Naiyo Dim AtesakiCD Dim Query, Content Dim RouteType RouteType = Request("RouteType") '############################################### １．データの引継ぎ 'ヘッダ部 TorihikisakiCD = Request("TorihikisakiCD") Sakuseibi = Request("Sakuseibi") Kenmei = Request("Kenmei") Naiyo = Request("Naiyo") Naiyo = Replace(Naiyo, vbCrLf, "
") TorihikisakiCD = Replace(TorihikisakiCD, ", ", ",") '送信元メール作成 Query = "exec SPNメール作成 " Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ", '" & KaisyaCD & "'" '会社CD Query = Query & ", ''" Query = Query & ", '" & Sakuseibi & "'" '作成日 Query = Query & ", 'S'" '送受信フラグ Query = Query & ", '" & KaisyaCD & "'" '作成会社CD Query = Query & ", '" & TorihikisakiCD & "'" '表示用宛先CD Query = Query & ", '" & Kenmei & "'" '件名 Query = Query & ", '" & Naiyo & "'" '内容 Query = Query & ", '" & GakuseiNo & "'" '学生番号 Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MailCD = Content.Fields(0) '送信元メールCDを取得する（開封通知のためのリレーション情報）（090706小野） End If '受信先メール作成 Dim tmps tmps = Split(TorihikisakiCD, ",") Dim i For i = 0 To UBound(tmps) AtesakiCD = tmps(i) Query = "exec SPNメール作成2 " Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ", '" & AtesakiCD & "'" '会社CD Query = Query & ", ''" Query = Query & ", " & MailCD '送信元メールCD（開封通知のためのリレーション情報）（090706小野） Query = Query & ", '" & Sakuseibi & "'" '作成日 Query = Query & ", 'R'" '送受信フラグ Query = Query & ", '" & KaisyaCD & "'" '作成会社CD Query = Query & ", '" & TorihikisakiCD & "'" '表示用宛先CD Query = Query & ", '" & Kenmei & "'" '件名 Query = Query & ", '" & Naiyo & "'" '内容 'Query = Query & ",'" & GakuseiNo & "'" '学生番号 '061106 Query = Query & ",'" & AtesakiCD & "'" '学生番号 Set Content = OpenQuery(Query) Next ' While Not Content Is Nothing ' If Content.Fields.Count > 0 Then ' MailCD = Content.Fields(0) ' End If ' Set Content = Content.NextRecordset ' Wend '############################################### ４．更新データをビューで表示 Response.Redirect("fn_mailsakusei_view.asp?mailCD=" & MailCD & "&RouteType=" & RouteType) Response.Write(Query) End Sub %>