ここから本文です

objWShell.Run を用いてsqlplusの実行結果をmail本文に記載したいです。 そもそも...

アバター

ID非公開さん

2018/5/2902:38:42

objWShell.Run を用いてsqlplusの実行結果をmail本文に記載したいです。
そもそも、objWShell.Runを変数に格納できるのでしょうか。不明点をコメント表示しています。

Option Explicit
Dim msg,uri
Dim objWShell,result

set msg = CreateObject("CDO.Message")
set objWShell = CreateObject("WScript.Shell")

'----Runメソッドでsqlplus起動後、test.sqlを実行しメール本文に追記したいです。
set result= objWShell.Run (cmd /c "sqlplus -s / as sysdba @test.sql")

msg.From = "aaa@xxx.co.jp"
msg.To = "bbb@xxx.co.jp"
msg.Subject = "【test】"

'----Runメソッドの結果をメール本文に記載したいです。
msg.TextBody = (result)

uri = "http://schemas.microsoft.com/cdo/configuration/"
msg.Configuration.Fields.Item(uri & "sendusing") = 2
msg.Configuration.Fields.Item(uri & "smtpserver") = "smtpサーバIP"
msg.Configuration.Fields.Item(uri & "smtpserverport") = 25
msg.Configuration.Fields.Update
msg.Send

-------------
test.sql
-------------
# select sessions_current,sessions_highwater from v$license;

[output(下記をメール本文に記載したいです)]
SESSIONS_CURRENT SESSIONS_HIGHWATER
---------------- ------------------
7 26

以上、宜しくお願いします。

補足execメソッドでもかまいません。

この質問は、活躍中のチエリアン・専門家に回答をリクエストしました。

閲覧数:
40
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

nor********さん

リクエストマッチ

2018/5/2919:25:41

メール本文にセットして送信するところは分かりませんがwishのExecメソッドから
StdOutでReadAllは可能です。
http://korokara.at.webry.info/200609/article_6.html

Sqlplusの実行結果について余計なものが入るかもしれませんが。

  • アバター

    質問者

    ID非公開さん

    2018/5/3006:06:00


    回答ありがとうございます!

    WScript.echo oExec.StdOut.ReadAll
    GUI表示ではなく、oExec.StdOut.ReadAllを変数に格納したいです。
    どうすれば、変数に格納できるのでしょうか。
    下記、コマンドの格納希望です。
    cmd /c "sqlplus -s / as sysdba @test.sql

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

アバター

質問した人からのコメント

2018/6/2 09:55:13

勉強になりました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる