Esportazione programmatica su Excel e invio Mail come allegato

Post date: Jun 1, 2011 12:33:21 PM

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