###前提・実現したいこと
ここに質問したいことを詳細に書いてください
(例)PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。
accessからoutlookを起動させてメールを送信するVBAを作成しています。
複数名に送信させ、かつ本文に記載するコメントを人により少し
変える予定です。
送付宛の人の情報(名前・メールアドレス)はaccesss テーブルで管理しています。そのテーブルの内容を参照させメールを自動作成したいです。
*最終目標
テーブルで管理している対象者名簿(宛先)へ講座の開講の案内
開始時間(時間は人により違うのでテーブルに指定時刻を入れている)
を送信していきたい。
###発生している問題・エラーメッセージ
outlookは稼働するが、宛先・名前など参照したデータを
メールに流し込む方法がわからない。
エラーメッセージ DoCmd.SendObject から黄色くなって返される。
###該当のソースコード
ここにご自身が実行したソースコードを書いてください
Option Compare Database
Private Sub Form_Current()
End Sub
Private Sub コマンド0_Click()
Dim DB As DAO.Database
Dim R1 As Recordset
Set DB = CurrentDb
Set R1 = DB.OpenRecordset("テーブル1")
R1.MoveFirst
Do Until R1.EOF
DoCmd.SendObject , R1!メールアドレス, R1!CCアドレス, R1!内容, R1!タイトル, , True
R1.MoveNext
Loop
End Sub
###試したこと
課題に対してアプローチしたことを記載してください
accessのフォームからボタンを作りイベントプロシーじゃより
上記を記載して実施をかけたところ、メールは作成されますが
テーブルの情報を参照できません。
*テーブルで信先の複数名の名簿を管理していますが
データ参照がとても難しいです。ご教授おねがいします。
###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報