Hola grupo,
Necesito enviar un Informe (desde Creports) por mail, la idea es exportar el informe a PDF sin intervenciòn del usuario y luego mandarlo por correo.
Para exportar el informe a PDF estoy usando un ejemplo que encontré en la ayuda de VS 2002:
Còdigo:
************************** PARA EXPORTAR UN REPORTE ***************************
Dim Report As New Pago() 'Pago es un Creports
Dim exportOpts As New CrystalDecisions.Shared.ExportOptions()
Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions ()
Dim pdfFormatOpts As New CrystalDecisions.Shared.PdfRtfWordFormatOptions()
'Report.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
'Report.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
'diskOpts.DiskFileName = "C:\pormail.pdf"
'Report.ExportOptions.DestinationOptions = diskOpts
'Report.Export()
*************************** FIN ***************************
El problema es que arroja el sgte error y no se cual es la causa ni como solucionarlo.
******** ERROR AL INTENTAR EXPORTAR UN CREPORTS A PDF ***************
Excepción no controlada del tipo 'CrystalDecisions.CrystalReports.Engine.LogOnExcep tion' en
crystaldecisions.crystalreports.engine.dll
Información adicional: No es posible conectar.
********************************FIN *******************************
ACA INTENTO MANDAR UN MAIL (FALTA ADJUNTAR EL ARCHIVO EXPORTADO)
************************* ENVIAR MAIL *****************************
Dim email As New System.Web.Mail.MailMessage()
email.To = "[email protected]"
email.From = "[email protected]"
email.Body = "*******Cuerpo del mail*******"
email.Subject = "Informe Pago De Vendedor"
email.BodyFormat = Web.Mail.MailFormat.Text
email.Priority = Web.Mail.MailPriority.Normal
Try
System.Web.Mail.SmtpMail.Send(email)
Catch ex As Exception
MsgBox(ex.Message)
End Try
****************************** FIN **********************************
SI EXISTE OTRA FORMA DE EXPORTAR EL REPORTE Y ENVIARLO POR CORREO SE LOS AGRADESCO.
Gracias
P.D: Utilizo VB.net 2002
