1

次のコードは、データベースから名前と電子メールを抽出し、見つかったレコードに CDOSys と電子メールを介して送信します。

私のホスティング サービスでは受信者数が 10 に制限されているため、検索を最初の 10 レコードに制限し、送信してから次の 10 レコードを検索し、送信などを最後まで繰り返すことは可能ではないかと考えています。テーブルに到達しましたか？

<%
Set OBJdbConnection = CreateObject("ADODB.Connection") 
OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("myData.mdb")
SQLQuery = "SELECT FirstName, Email_Address FROM MyTable" 
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
    If (TheName <> "" AND TheAddress <> "") Then
        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") ="smtp@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"" <me@mydomain.com>" 
        objMessage.To = Rcpt
        objMessage.HTMLBody = body 
        objMessage.Send
    End If
End Sub
set objMessage = Nothing
set cdoConfig = Nothing
%>
4

1 に答える 1

0

やりたいことができると思います。

<%
if Not Result.EOF then 
i = 0
Do While  i<10
SendMail Result("FirstName"), Result("Email_Address") 
Result.MoveNext 
i= i+1
Loop
.... 
%>
于 2013-06-30T15:41:10.723 に答える