Dim PathFileExcel as string="c:\Test.xls"
'Esporta query su
'//// CdoSection.ExportToExcelFile(PathFile As String, Formatted As Boolean = False) As Boolean
e.cDoPage("QUERY").ExportToExcelFile(PathFileExcel, True)
'Invia mail con allegato
Dim _cDoMails As New cDoMails(e.cDoConnect)
Try
Dim _cDoMail As cDoMail = _cDoMails.NewMail
'Commentare o scommentare una delle due seguenti righe
_cDoMail.BodyMode = cDomailBase.EnumBodyMode.HtmlCode
'_cDoMail.BodyMode = cDomailBase.EnumBodyMode.Text
_cDoMail.From="miaMail@sample.it"
_cDoMail.To="TuaMail@Sample.it;AltraMail@sample2it"
_cDoMail.Subject = "Oggetto della mail"
_cDoMail.Body = "Body riga 1" & vbcrlf & "Body riga 2"
_cDoMail.AttachmentsAddPathFile(PathFileExcel)
'_cDoMails.Send() 'Invio automatico
_cDoMails.SendShow() 'Invio con interfaccia
Catch ex As Exception
domsgbox (Ex.Message)
End Try