アクセス2010のVBAについて教えて下さい
前回<http://okwave.jp/qa/q8035701.html>で2つのエラーを解消していただきましたが、新たにDoCmd.SendObject acSendNoObject, , acFormatTXT, RS!Email, "aaa@aaa.mil", , Subject, Body, TrueSetで「2498指定した式はいずれかの引数とデータ型が対応してません」というエラーで止まってしまいました。
「RS!Email」を消すと、メールを生成するので、ここが違っているのは分かりましたが、どう直せばいいのかがわかりません。。「Email」のデータ型はテキスト型になっています。、ハイパーリンク型も試しましたがダメでした。さらに記述を「RS![Email]」としてみましたが、それもダメでした。。
どうぞよろしくお願いします。
Private Sub EmailReminder_Click()
Dim DB As DAO.Database
Dim QD As DAO.QueryDef
Dim RS As DAO.Recordset
Dim Subject As String
Dim Body As String
Subject = "Audit Corrective Actions"
Body = "Good Morning Sir/Ma'am," & vbCrLf _
& "This is an auto generated email." & vbCrLf _
& "Please advise when these actions are completed. If you have any questions please feel free to contact our office. Thank you for your help and cooperation in this matter. Have a nice day." & vbCrLf & vbCrLf _
& "Corrective Actions:" & vbCrLf _
Set DB = CurrentDb()
Set QD = DB.QueryDefs("ReminderQuery")
With QD
.Parameters("[Forms]![fmReport]![ReportID]") = Forms!fmReport!ReportID
Set RS = .OpenRecordset
Do Until RS.EOF
Body = Body & "------------------------------------------------------" & vbCrLf _
& "[Due Date: " & RS!DueDate & "] [Agency: " & RS!Agency & "] [Report: " & RS!ReportNumber & "]" & vbCrLf _
& "Corrective Action: " & RS!CorrectiveAction & vbCrLf _
& "Recommendation: " & RS!Recommendation & vbCrLf
RS.MoveNext
Loop
DoCmd.SendObject acSendNoObject, , acFormatTXT, RS!Email, "aaa@aaa.mil", , Subject, Body, True
.Close
End With
End Sub
お礼
お礼が遅くなりまして申し訳ありません。 ご回答ありがとうございました。 書いた関係者に尋ねる機会がやっと巡って きまして、customer feedback と教えてもらいました。 （一般的ではないと思いました。） ありがとうございました。