asp-classic - クラシック ASP で CDOSys を使用して、見つかったレコードセットから複数の電子メールを送信する

Question

私の非常に限られた知識で、次のコードを組み合わせて、CDOSys を使用する電子メール アドレスを持つデータベースで見つかったすべてのレコードに送信して電子メールで送信しました。

メールは正常に送信されますが、ページはエラーを返します。

CDO.Message.1 エラー '8004020c'

少なくとも 1 人の受信者が必要ですが、見つかりませんでした。

cdo-sys2.asp、42行目

42行目 = objMessage.Send

私が読んだことから、これは最終的に電子メールアドレスでレコードを見つけられないループと関係があります.1つの投稿では、1ではなく0が必要であると述べていますが、私の知識はここからどこに行くべきかを理解するにはあまりにも限られています.

このプロジェクトを完了するのを手伝ってくれる人に感謝します。

<%
Set OBJdbConnection = CreateObject("ADODB.Connection") 
OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("vfeast4fgrav4q3vfg3a34v12.mdb")
SQLQuery = "SELECT FirstName, Email_Address FROM AddressTable" 
Set Result = OBJdbConnection.Execute(SQLQuery) 
if Not Result.EOF then 
Do While Not Result.EOF 
SendMail Result("FirstName"), Result("Email_Address") 
Result.MoveNext 
Loop 
end if 
OBJdbConnection.Close()
Set OBJdbConnection = Nothing

Sub SendMail(TheName, TheAddress) 
Dim objMessage, Rcpt
smtpServer = "mail.mydomain.com"
body = "Hello World"

Rcpt = Chr(34) & TheName & Chr(34) & "<" & TheAddress & ">" 
set objMessage = Server.CreateObject("CDO.Message")  
set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
cdoConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
cdoConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="test@mail.mydomain.com"
cdoConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="123456"
cdoConfig.Fields.Update
set objMessage.Configuration = cdoConfig
objMessage.Subject = "This Month's Sales" 
objMessage.From = """Acme Sales"" <test@mail.mydomain.com>" 
objMessage.To = Rcpt
objMessage.HTMLBody = body 
objMessage.Send
End Sub
set objMessage = Nothing
set cdoConfig = Nothing
%>