Batch email with SBO 8.8 and Crystal

Question

Experts,
I have a client who wants to email Invoices added automatically to the customers. They have SBO 8.8 PL 10 and Crystal Reports.
Is there a way to do this with a Crystal report?
Thanks,
Marli

Answer 1

I got something like that creating a .exe that execute Crystal Report document in batch, save it as PDF and then send by email.
This is the main function:
Public Sub New()
        MyBase.New()
        '// Generamos un pdf a partir de Crystal Reports y lo enviamos por mail*
        Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim adjunto As String = "C:
eportePDF.pdf"
        Dim rptPath As String = "C:
eporte.rpt"
        'rptDocument.Load(sPathReporte)
        Dim crExportOptions As New CrystalDecisions.Shared.ExportOptions
        Dim crDiskFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions
        rptDocument.Load(rptPath)
        rptDocument.SetDatabaseLogon("sa", "SAPB1Admin")
        crDiskFileDestinationOptions.DiskFileName = adjunto
        crExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
        crExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
        crExportOptions.ExportDestinationOptions = crDiskFileDestinationOptions
        rptDocument.Export(crExportOptions)
        Try
            'enviamos el pdf por correo
            Dim correo As New MailMessage("yourmailfrom", "yourmailto")
            'Asunto
            correo.Subject = "Reporte diario SAP Business One"
            'Cuerpo del correo
            correo.Body = "Se adjunta listado de artículos"
            'Mostrar como HTML
            correo.IsBodyHtml = False
            'Prioridad de el correo
            correo.Priority = MailPriority.Normal
            Dim attachment As New System.Net.Mail.Attachment(adjunto)
            correo.Attachments.Add(attachment)
            'acto seguido le indicamos cual servidor utilizaremos
            'aquì usaremos por default a gmail y su puerto SMTP
            'pero en una futura entrega les mostraré como hacerlo
            'cn cualquier servidor
            Dim smtp As New SmtpClient()
            smtp.Host = "smtp.gmail.com"
            smtp.Port = 587
            smtp.Credentials = New System.Net.NetworkCredential("yourmailfrom", "yourpw")
            smtp.EnableSsl = True
            'listo tenemos la estructura de nuestro mensaje armada ahora enviemosla a nuestro destinatario y listo
            smtp.Send(correo)
        Catch ex As Exception
            Stop
        End Try
    End Sub
You have to change this code to generate your invoice (you should pass a parameter with docentry, by example), if you want to send the email just after invoice has been added, and integrate it in an add on, or also, you can change the code to iterate between all invoices have been created in the actual day and create and send one pdf for invoice, and use the windows task scheduler to run this .exe generated once a day, by example.
I wish it could help you.