出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[466] メールを複数送信
投稿者：とどろきさん 2001/08/01 11:10:29
メールを複数のメンバーへ送信する際に、BASP21コンポーネントを使用し、
Do〜Loopで処理をしています。ソースは以下のとおりです。
Loopされる処理は、全部で200件ほどです。

'###ここから
Do While not RS.EOF

m_to = RS("mail") '送信先
m_from = "xxxx@xxxxxxx.com>" '送信者
m_srv = "mail.xxxxxxx.com" 'メールサーバー
m_subj = "こんにちは" 'subject
m_file = ""
m_log = ""
m_body = "送信メッセージ" '本文

rc = bobj.SendMailEx(m_log,m_srv,m_to,m_from,m_subj,m_body,m_file)

If rc <> "" Then
senderr = senderr + 1　'エラーカウント
End If

busu = busu + 1 '送信数カウント

RS.MoveNext

Loop
'### ここまで

このソースを使い、RS("mail")を自分のメールアドレスに置換え、
試したところ、100通は受信できましたが、残り100通は受信できませんでした。
その時の変数senderrは0で、busuは200でした。
BASP21でメールを複数送信するというのは無理なのでしょうか？
よろしくお願いします。

レンタルサーバー仕様
Windows2000 + IIS5.0
BASP21利用可
メールを複数送信 　 とどろきさん [2001/08/01 11:10:29] [466]
　 Re:メールを複数送信 　 YasNet（管理人）さん [2001/08/01 13:47:37] [467]
　 　 Re:メールを複数送信 　 とどろきさん [2001/08/01 14:53:25] [468]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ