vba - VBA Access 2007 を使用して複数のクエリ結果を電子メールで送信する

Question

みなさん、こんにちは。私は VBA でプログラミングするのが初めてで、1 週間使用しています。私は自分のコードを書くことを学ぼうとしていますが、問題が発生しました。

私の最終的な結果は、BCC フィールドに名前を付けて、すべてのベンダーに 1 つの電子メールを送信することです。私の現在のコードは、不要な連絡先ごとに電子メールを作成します。これは簡単な修正だと確信していますが、これまでのコードは次のとおりです。私はあなたの助けに感謝します！

 Private Sub Compose_Button_Click()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.mailItem
Dim objOultlookRecip As Outlook.Recipients
Dim objOutlookAttach As Outlook.Attachments
Dim TheAddress As String

Set db = CurrentDb
Set rst = Me.Recordset
rst.MoveFirst

Set objOutlook = CreateObject("Outlook.Application")

Do Until rst.EOF

'Create Email message

Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
TheAddress = rst![E-Mail]

    With objOutlookMsg
    Set objOutlookRecip = .Recipients.Add(TheAddress)
    objOutlookRecip.Type = olBCC

objOutlookMsg.Display

End With

rst.MoveNext

Loop
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing


End Sub

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