Torna al Thread
Dim report As ReportDocument = New ReportDocument
Dim allegato As String
Try
report.Load(<nome report>)
report.SetDataSource(<datatable con i dati>)
allegato = "xxxxxxx.pdf"
report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, allegato)
Call InviaMail(<vari parametri>)
Catch ex As Exception
cLogger.logEvent("Errore nell'esportazione del file temporaneo " & allegato & ". " & ex.Message, cLogger.CST_ERRORE)
Exit Sub
End Try