ACCESS 宛先一括取得しメール送信

Question

クエリAに以下のようなデータがあります。
ID 氏名 メールアドレス 送信有無
1 あああ [e-mail] 〇
2 いいい [e-mail] ×
3 ううう [e-mail] 〇
4 えええ [e-mail] ×
これをsf_メール送信チェックでフォームを作成

フォームAにsf_メール送信チェックを設置。
sf_メール送信チェックの中から送信有無に〇がついている人のアドレスを宛先に表示させて、クエリAを添付してメール送信したいです。
宛先が1件ならばForms!フォームA!sf_メール送信チェック.Form.メールアドレスで設定できるのですが、複数の場合はどのようにすればよいかご教授ください。
※ccは固定なのですが、toは都度変わり件数も上下します。

※宛先が1件の場合は下記のコードで1人目の送信者を宛先にしてメールが立ち上がるのですが、対象者を全て宛先に入れる方法がわかりません。
対象者全員、同じ添付ファイル、同じ本文です。

sub()

Dim atesaki As String
Dim atesaki_CC As String
Dim kenmei As String
Dim honbun As String


atesaki = Forms!フォームA!sf_メール送信チェック.Form.メールアドレス
atesaki_CC = "[e-mail] ;  [e-mail]"
kenmei = "ご確認ください"
honbun = "ご担当者様" & vbCrLf & "いつもお世話になっております。" & vbCrLf & "〇〇〇〇本文表示〇〇〇"

DoCmd.SendObject acSendQuery, "クエリA", acFormatXLSX, atesaki, atesaki_CC, , kenmei, honbun, True, ""

End sub

コード

宜しくお願い致します。

Comments

[退会済みユーザー]

質問本文を修正頂いた所で恐縮ですが、
これだとやりたいことの丸投げになります。

そうではなく、やったこととその結果を追記して下さい。

しかも、この質問の仕方だともう結論が出てますよ。
セミコロン区切りで指定するだけです。

[subka]

知りたいことが複数の宛先への送付であれば、busyoda 様の提示した方法でよいのではないですか。
逆にそれで何が解決しないのでしょうか。
既に指摘されていますが、それが分からないと回答のしようがないのではないかと思います。

[退会済みユーザー]

busyoda様、subka様
着手する時間がなく返事が遅くなり申し訳ございません。
宛先を複数にする場合、；区切りで指定するのですが、クエリで抽出された対象者すべての宛先を一括で取得して宛先にセットしたく、常に対処件数も変動します。
それをどのように取得すればよいか検討中です。
クロス集計にて対象者のアドレスを横並びにして、サブフォームに取り込みそれぞれのテキストボックスをアドレスに；で指定してみているところです。

Answer 1

他の方で同じような質問をされているのを見つけて参考にしました。
選択クエリを①クロス集計にし、アドレスを列方向に表示する。
①をサブフォームにし、テキストボックスの値を宛先にセットすることで解決しました。

Answer 2

テキストボックスに表示させる意味が理解できませんが、
セミコロン区切りで複数の宛先を指定できます。

https://docs.microsoft.com/ja-jp/office/vba/api/access.docmd.sendobject

試行錯誤の中身が提示されていないのでどう間違えてるかは分かりませんが、
暫定的に atesaki の値をリテラルで指定した上でプログラムを実行して期待通りの動作になるか確認して下さい。

その結果が期待通りになるのであれば、
その際に利用したリテラルが生成されるように宛先のデータを抽出、加工すれば良いと思います。

追記
コメント頂いた件確認しました。
クエリの出力を配列で受け取って繋げればいいだけと思います。

配列に格納せずレコードセットの操作でも構いません。
BOF から EOF まで回して間にセミコロン入れるだけです。

後、この内容であれば質問内容は複数の宛先への送信方法ではないです。
クエリの出力をどう取得・加工するかの話です。
質問件名と相違があるので修正して下さい。

Comments

[退会済みユーザー]

コメントありがとうございます。
セミコロン限りで複数指定できるは存じているのですが、複数指定する方法を質問させていただいております。
自分でも解決方法を検討しながら試行錯誤していますが、詳しい方にご教授いただけると助かります。

[退会済みユーザー]

>セミコロン限りで複数指定できるは存じているのですが、複数指定する方法を質問させていただいております。

理解不能です。

[退会済みユーザー]

ありがとうございました。

[退会済みユーザー]

いえ、ありがとうございました、ではなく、文章がおかしいことを理解して下さい。

後、最低限どう試行錯誤した結果、
どの様に上手くいかないのかが提示されない限り、
誰にも正確な回答はできません。

まずは、あなたがどの様に実装しているのかの現状と、
その結果がどの様なものであるかを提示下さい。

[退会済みユーザー]

本件の結論を端的に申し上げると、
「DoCmd.SendObject で複数の宛先を指定する方法は、引数 To にセミコロン区切りで複数の宛先を指定する」です。

それで上手くいかないならあなたが何かミスをしていると考えられます。
現状提示されいてる情報ではそのミスの検討がつきません。

という話をしています。

[退会済みユーザー]

BOF から EOF まで回して間にセミコロン入れるだけです。
全くわかりません...納期の時間もないため遠回りになるかもしれませんが、クエリで対応しようと思います。ありがとうございました。