こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

AccessのDoCmd.SendObjectについて

AccessVBA初心者(ExcelVBAはまあまあ経験有)の者です。
下記のようにプログラムを組んで実行してみたのですが、
複数レコードあるクエリを読んでいるにもかかわらず、
メールを一通しか送信してくれません。
色々と試してみたのですが、メール本文が短いと送信できるようです。
(送りたいメール本文は1KByte弱で、それだと失敗しますが、メール本文を「test」の四文字だけにするときちんとレコード数だけメール送信してくれます。)
回避策はあるでしょうか。

----------------------------------------
Public Function メール送信Sub()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim 件名 As String
Dim 本文 As String

Set db = CurrentDb
Set rs = db.OpenRecordset("022.メール送信用クエリ", dbOpenForwardOnly, dbDenyWrite)

Do Until rs.EOF

'件名の作成
件名 = "御注文品発送のご連絡"

'本文の作成
本文 = rs!メール本文
' 本文 = "test"
'メールの送信
DoCmd.SendObject , , acFormatTXT, rs!購入者Eメールアドレス, "(CC用メールアドレス)", , 件名, _
本文, False
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
End Function
----------------------------------------

投稿日時 - 2005-12-05 02:56:22

QNo.1820238

すぐに回答ほしいです

質問者が選んだベストアンサー

回答ではありませんが、参考になりませんか?
http://ww3.tiki.ne.jp/~kaya/Ac_tips.html#Tips1_009

投稿日時 - 2005-12-05 15:59:35

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問