こんにちは、Access データベースに保存されている電子メール アドレスのリストから別のメールを送信するために、VB で小さなアプリケーションを開発しています。VB と Access を接続するために ADODC コントローラーを使用しています。しかし、ADODC コントローラーをループしているときに、「項目が移動または削除されました」というエラーが表示されます。皆さん、これについて私を助けてもらえますか? 以下は私が使用しているコードです。アドレスごとにメールを分けて送りたいので、.Recipients.Add
コマンドが使えません。
Private Sub Send_Click()
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
Adodc1.Recordset.MoveFirst
While Adodc1.Recordset.EOF = False
.To = Text1.Text <------ getting error in this line in second iteration
.Subject = Subject.Text
.Body = MsgBody.Text
If path1.Text <> "" Then
.Attachments.Add path1.Text, olByValue, 1
End If
.Send
Adodc1.Recordset.MoveNext
Wend
End Sub