Access2013から複数名にメール送信するVBA

###前提・実現したいこと
ここに質問したいことを詳細に書いてください
(例)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/ツール等のバージョンなど)
より詳細な情報

退会済みユーザー

2017/05/10 08:19

質問テンプレートの不要な箇所は削除してください、読みづらいです。

行動規範の内容に同意します

回答1件

引数の設定位置がおかしいようです。

DoCmd.SendObject メソッド (Access)

DoCmd.SendObject , , ,R1!メールアドレス, R1!CCアドレス, , R1!タイトル, R1!内容, False

じゃないかな。あるいは、引数名を指定して記述したほうが読みやすいですね。

DoCmd.SendObject To:=R1!メールアドレス, _
                 Cc:=R1!CCアドレス, _
                 Subject:=R1!タイトル, _
                 MessageText:=R1!内容, _
                 EditMessage:=False

投稿2017/05/10 08:01

hatena19

総合スコア33715

kama2017

2017/05/11 02:07

DoCmd.SendObject から教えて頂いた内容に変更してみました。実行したところ、outlookが起動しかけて途中で止まってしまいます。実行時エラー2293が表示され、デバックを確認するとDoCmd.SendObjectから黄色く返されてしまいます。私が作成したDoCmd.SendObject , , ,R1!メールアドレス, R1!CCアドレス, , R1!タイトル, R1!内容, False に於いては、outlookは起動するが、アドレス・タイトルなどのデータがバラバラにoutlookのメールに反映される現象がおきました。未熟者で適切な質問ができていないと思いますが、頑張って勉強しますのでどうぞご教授ください。お願いします。