VBS TextBodyに変数を使用する

Question

表題の件で質問お願いします
SQLで取得した結果をTextBodyに当てはめたいと考えています
SQLは結果テスト用に作った3行程度の簡単なSELECT文です

Sql = "SELECT index FROM datatest WHERE index = 100"
Set objRS = objADO.Execute(Sql)

Set a = CreateObject("ADODB.Recordset")
a.Open objRS

ただ、
objMail.TextBody = a
では構文エラーとなります
記述の仕方等あるのでしょうか？
調べても見つけられず苦戦しております
ぜひアドバイスよろしくお願いいたします

Answer 1

どのようなエラーですか？
objMailの属性と構造は？
aはRecordSetなので、objMailは同じ構造で無いと代入はエラーになると思いますけど。

Comments

[---stax---]

ありがとうございます
型が一致しません。:’TextBody’
コード：800A000D
という表示が出ます

WEBから引用したので属性や構文は把握できていないのですが
一部内容は記載していませんがSQL部分、メール部分は以下になります

Set objMail = CreateObject("CDO.Message")

objMail.From = "アドレス"
objMail.To = "アドレス"
objMail.Subject = "自動転送メール送信テスト"
objMail.TextBody = a

strConfigurationField ="http://schemas.microsoft.com/cdo/configuration/"
With objMail.Configuration.Fields
.Item(strConfigurationField & "sendusing") = 2
.Item(strConfigurationField & "smtpserver") = "------.co.jp"
.Item(strConfigurationField & "smtpserverport") = -----
.Item(strConfigurationField & "smtpusessl") = True
.Item(strConfigurationField & "smtpauthenticate") = 1
.Item(strConfigurationField & "sendusername") = "アドレス
.Item(strConfigurationField & "sendpassword") = "Test"
.Item(strConfigurationField & "smtpconnectiontimeout") = 60
.Update
end With

objMail.Send

Set objMail = Nothing

’SQL----------
ql = "SELECT index FROM datatest WHERE index = 100"
Set objRS = objADO.Execute(Sql)

Set a = CreateObject("ADODB.Recordset")
a.Open objRS

[sazi]

メール本文に取得したindexを設定するということなら、
objMail.TextBody = objRS("index")
だと思います。

[---stax---]

返信遅れて大変申し訳ありません
教えていただいたobjMail.TextBody = objRS("index")で結果を本文に設定出来たのですがテーブル先頭の1件しか記載できませんでした・・・。
コードの途中で
For i=0 to a.Fields.count +1

Call MsgBox(a.Fields("index").Value)

next
というコードを追加したのですがテーブル1行目の値だけが表示され、ほかのデータは表示されませんでした。
Set a = CreateObject("ADODB.Recordset")
a.Open objRS
上記のコードのaにはSELECTの結果すべてが入っていないのでしょうか・・・？
SELECTで複数の結果を取得している場合に、その結果すべてを記載したい場合はどのようにコードを書けばよいでしょうか。
お手数おかけしますが宜しくお願い致します。

[---stax---]

解決ではないのですがメッセージボックスにすべてのデータを以下のコードで表示させることは出来ました。
aにはSELECTの結果すべてが入っているという事ですね。

Do Until a.EOF
Call MsgBox(a.Fields("index").Value)
a.MoveNext
loop