ASP 전자 메일 (레코드 세트 포함)

Question

Im asp에서 설계 중입니다.

InspectionCalendar 테이블에서 정보를 가져 와서 특정 날짜에 이메일을 보내야합니다. (액세스 할 수 있습니다.)

특정 일에 보낸해야 하나 이상의 통지 될 것입니다. (검사)

어떻게 i를 하나 개의 컬럼 정보를 선택하여 여러 이메일을 전송하여 레코드를 통해 루프 사용할 수있는 각 레코드는 무엇입니까?

Set myMail=CreateObject("CDO.Message") 
myMail.Subject= (SmsInfo.Fields.Item("Subject").Value) 
myMail.From= (SmsInfo.Fields.Item("Email").Value) 
myMail.To= mail_to 
myMail.HTMLBody= (Tag.Fields.Item("MaintenanceTag1").Value) &  (Agent.Fields.Item("Abreviation").Value) & (Reference.Fields.Item("MaintenanceID").Value) &  "." & (Tag.Fields.Item("MaintenanceTag2").Value) &  (Tag.Fields.Item("MaintenanceTag3").Value) & "." 

myMail.Configuration.Fields.Item  ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 
myMail.Configuration.Fields.Item("schemas.microsoft/cdo/configuration/smtpserverport") = 25 
myMail.Configuration.Fields.Item("schemas.microsoft/cdo/configuration/smtpserver") = "localhost" 
myMail.Configuration.Fields.Item("schemas.microsoft/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" 
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 'basic (clear-text)  authentication 
myMail.Configuration.Fields.Update 
myMail.Send 

set myMail=nothing 

Answer 1

어떤 레코드 집합을 반복해야합니까? 네 개가있는 것 같습니다 : SmsInfo, Tag, Reference 및 Agent입니다.

기본 레코드 루프는 다음과 같이 보일 것이다 :

Do Until SmsInfo.EOF 

    ' Call a SendEmail() routine (not shown) for each record in SmsInfo... 
    SendEmail SmsInfo("Subject"), SmsInfo("Email")   

    SmsInfo.MoveNext 

Loop