Dim Nummail as integer=0
Dim DestinationcDoPage as CdoPage
'instanzia la classe cDoMails
Dim _cDoMails As New cDoMails(e.cDoConnect)
Try
'Carica la pagina che contiene il report
DestinationcDoPage = e.cDoPage.LoadcDoPage("testInvioMailMultiplo")
DestinationcDoPage("DOCTES").AutoStart=False
DestinationcDoPage.Show
'Cicla le righe: per ogni riga esegue la query che carica il report
'For Each _DataRow as DataRow in e.cDoPage("QUERY").DataTable.Rows
For i as integer=120 to 122
Nummail = Nummail + 1
Dim IdDocTes as integer=i ' _DataRow("IDDOCTES")
DestinationcDoPage.CdoStartValues("ID_DOCTES").Value = IdDocTes
DestinationcDoPage("DOCTES").ExecuteQuery
Dim cDoReport as cDoReport=DestinationcDoPage("REPORT").CdoReports(0)
'instanzia una mail
Dim _cDoMail As cDoMail = _cDoMails.NewMail(cDoReport)
Next
Catch ex As Exception
Finally
if Not DestinationcDoPage Is Nothing Then
DestinationcDoPage.Close
end if
End Try
if _cDoMails.Count>0 Then
_cDoMails.SendShow()
end if