プロが教えるわが家の防犯対策術!

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
----------------------------------------

A 回答 (1件)

回答ではありませんが、参考になりませんか?


http://ww3.tiki.ne.jp/~kaya/Ac_tips.html#Tips1_009
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています