INVIO MAIL CON CDOSECTION QUERY NEL CORPO

e.cDoPage("QUERY").ExecuteQuery

Dim _cDoMails As New cDoMails(e.cDoConnect)

_cDoMails.SmtpServer = "?????"

_cDoMails.SmtpServerUser = "?????"

_cDoMails.SmtpServerPassword = "?????"

_cDoMails.SmtpUseCredentials = true

Try

Dim _cDoMail As cDoMail = _cDoMails.NewMail

_cDoMail.BodyMode = cDomailBase.EnumBodyMode.HtmlCode

_cDoMail.From="?????"

_cDoMail.To="?????"

_cDoMail.Subject = "?????"

_cDoMail.Body = ""

_cDoMail.Body &= e.cDoPage("QUERY").ExportToHtml

if IsDebug Then

_cDoMails.SendShow() 'Invio con interfaccia

else

_cDoMails.Send() 'Invio automatico

end if

Catch ex As Exception

domsgbox (Ex.Message)

End Try